November 2011 - cmucl-cvs - mailman3.common-lisp.net

[cmucl-cvs] [git] CMU Common Lisp branch master updated. release-20c-23-geea8746
by Raymond Toy 19 Nov '11

19 Nov '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via eea87468f7479a152a34ff2ad8f6fd53a011c36b (commit) from 44ca897b25dda1179df1d8bfa3469d75594385d6 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit eea87468f7479a152a34ff2ad8f6fd53a011c36b Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Nov 18 20:27:26 2011 -0800 Remove hppa-assem.s. It's not referenced anywhere. diff --git a/src/lisp/hppa-assem.s b/src/lisp/hppa-assem.s deleted file mode 100644 index f021720..0000000 --- a/src/lisp/hppa-assem.s +++ /dev/null @@ -1,356 +0,0 @@ -#define LANGUAGE_ASSEMBLY - -#include "internals.h" -#include "lispregs.h" - - .import $global$,data - .import foreign_function_call_active,data - .import current_control_stack_pointer,data - .import current_control_frame_pointer,data - .import current_binding_stack_pointer,data - .import current_dynamic_space_free_pointer,data - - .space $TEXT$ - .subspa $CODE$ - .import $$dyncall,MILLICODE - - -/* - * Call-into-lisp - */ - - .export call_into_lisp -call_into_lisp - .proc - .callinfo entry_gr=18,save_rp - .enter - /* arg0=function, arg1=cfp, arg2=nargs */ - - /* Clear the descriptor regs, moving in args as approporate. */ - copy r0,reg_CODE - copy r0,reg_FDEFN - copy arg0,reg_LEXENV - zdep arg2,29,30,reg_NARGS - copy r0,reg_OCFP - copy r0,reg_LRA - copy r0,reg_A0 - copy r0,reg_A1 - copy r0,reg_A2 - copy r0,reg_A3 - copy r0,reg_A4 - copy r0,reg_A5 - copy r0,reg_L0 - copy r0,reg_L1 - copy r0,reg_L2 - - /* Establish NIL. */ - ldil L%NIL,reg_NULL - ldo R%NIL(reg_NULL),reg_NULL - - /* Turn on pseudo-atomic. */ - ldo 4(r0),reg_ALLOC - - /* No longer in foreign function call land. */ - addil L%foreign_function_call_active-$global$,dp - stw r0,R%foreign_function_call_active-$global$(0,r1) - - /* Load lisp state. */ - addil L%current_dynamic_space_free_pointer-$global$,dp - ldw R%current_dynamic_space_free_pointer-$global$(0,r1),r1 - add reg_ALLOC,r1,reg_ALLOC - addil L%current_binding_stack_pointer-$global$,dp - ldw R%current_binding_stack_pointer-$global$(0,r1),reg_BSP - addil L%current_control_stack_pointer-$global$,dp - ldw R%current_control_stack_pointer-$global$(0,r1),reg_CSP - addil L%current_control_frame_pointer-$global$,dp - ldw R%current_control_frame_pointer-$global$(0,r1),reg_OCFP - copy arg1,reg_CFP - - /* End of pseudo-atomic. */ - addit,od -4,reg_ALLOC,reg_ALLOC - - /* Establish lisp arguments. */ - ldw 0(reg_CFP),reg_A0 - ldw 4(reg_CFP),reg_A1 - ldw 8(reg_CFP),reg_A2 - ldw 12(reg_CFP),reg_A3 - ldw 16(reg_CFP),reg_A4 - ldw 20(reg_CFP),reg_A5 - - /* Calculate the LRA. */ - ldil L%lra+type_OtherPointer,reg_LRA - ldo R%lra+type_OtherPointer(reg_LRA),reg_LRA - - /* Indirect the closure */ - ldw CLOSURE_FUNCTION_OFFSET(0,reg_LEXENV),reg_CODE - addi 6*4-type_FunctionPointer,reg_CODE,reg_LIP - - /* And into lisp we go. */ - .export break_here -break_here - be,n 0(sr5,reg_LIP) - - .align 8 -lra - .word type_ReturnPcHeader - copy reg_OCFP,reg_CSP - - /* Copy CFP (r4) into someplace else and restore r4. */ - copy reg_CFP,reg_NL1 - ldw -64(0,sp),r4 - - /* Copy the return value. */ - copy reg_A0,ret0 - - /* Turn on pseudo-atomic. */ - addi 4,reg_ALLOC,reg_ALLOC - - /* Store the lisp state. */ - copy reg_ALLOC,reg_NL0 - depi 0,31,3,reg_NL0 - addil L%current_dynamic_space_free_pointer-$global$,dp - stw reg_NL0,R%current_dynamic_space_free_pointer-$global$(0,r1) - addil L%current_binding_stack_pointer-$global$,dp - stw reg_BSP,R%current_binding_stack_pointer-$global$(0,r1) - addil L%current_control_stack_pointer-$global$,dp - stw reg_CSP,R%current_control_stack_pointer-$global$(0,r1) - addil L%current_control_frame_pointer-$global$,dp - stw reg_NL1,R%current_control_frame_pointer-$global$(0,r1) - - /* Back in C land. [CSP is just a handy non-zero value.] */ - addil L%foreign_function_call_active-$global$,dp - stw reg_CSP,R%foreign_function_call_active-$global$(0,r1) - - /* Turn off pseudo-atomic and check for traps. */ - addit,od -4,reg_ALLOC,reg_ALLOC - - /* And thats all. */ - .leave - .procend - - -/* - * Call-into-C - */ - - - .export call_into_c -call_into_c - /* Set up a lisp stack frame. Note: we convert the raw return pc into - * a fixnum pc-offset because we don't have ahold of an lra object. - */ - copy reg_CFP, reg_OCFP - copy reg_CSP, reg_CFP - addi 32, reg_CSP, reg_CSP - stw reg_OCFP, 0(0,reg_CFP) - sub reg_LIP, reg_CODE, reg_NL5 - addi 3-type_OtherPointer, reg_NL5, reg_NL5 - stw reg_NL5, 4(0,reg_CFP) - stw reg_CODE, 8(0,reg_CFP) - - /* Turn on pseudo-atomic. */ - addi 4, reg_ALLOC, reg_ALLOC - - /* Store the lisp state. */ - copy reg_ALLOC,reg_NL5 - depi 0,31,3,reg_NL5 - addil L%current_dynamic_space_free_pointer-$global$,dp - stw reg_NL5,R%current_dynamic_space_free_pointer-$global$(0,r1) - addil L%current_binding_stack_pointer-$global$,dp - stw reg_BSP,R%current_binding_stack_pointer-$global$(0,r1) - addil L%current_control_stack_pointer-$global$,dp - stw reg_CSP,R%current_control_stack_pointer-$global$(0,r1) - addil L%current_control_frame_pointer-$global$,dp - stw reg_CFP,R%current_control_frame_pointer-$global$(0,r1) - - /* Back in C land. [CSP is just a handy non-zero value.] */ - addil L%foreign_function_call_active-$global$,dp - stw reg_CSP,R%foreign_function_call_active-$global$(0,r1) - - /* Turn off pseudo-atomic and check for traps. */ - addit,od -4,reg_ALLOC,reg_ALLOC - - /* in order to be able to call incrementally linked (ld -A) functions, - we have to do some mild trickery here */ - copy reg_CFUNC,%r22 - bl $$dyncall,r31 - copy r31, r2 - - /* Clear the callee saves descriptor regs. */ - copy r0, reg_A5 - copy r0, reg_L0 - copy r0, reg_L1 - copy r0, reg_L2 - - /* Turn on pseudo-atomic. */ - ldi 4, reg_ALLOC - - /* Turn off foreign function call. */ - addil L%foreign_function_call_active-$global$,dp - stw r0,R%foreign_function_call_active-$global$(0,r1) - - /* Load ALLOC. */ - addil L%current_dynamic_space_free_pointer-$global$,dp - ldw R%current_dynamic_space_free_pointer-$global$(0,r1),r1 - add reg_ALLOC,r1,reg_ALLOC - - /* We don't need to load OCFP, CFP, CSP, or BSP because they are - * in caller saves registers. - */ - - /* End of pseudo-atomic. */ - addit,od -4,reg_ALLOC,reg_ALLOC - - /* Restore CODE. Even though it is in a callee saves register - * it might have been GC'ed. - */ - ldw 8(0,reg_CFP), reg_CODE - - /* Restore the return pc. */ - ldw 4(0,reg_CFP), reg_NL0 - addi type_OtherPointer-3, reg_NL0, reg_NL0 - add reg_CODE, reg_NL0, reg_LIP - - /* Pop the lisp stack frame, and back we go. */ - copy reg_CFP, reg_CSP - be 0(4,reg_LIP) - copy reg_OCFP, reg_CFP - - - -/* - * Stuff to sanctify a block of memory for execution. - */ - - .EXPORT sanctify_for_execution -sanctify_for_execution - .proc - .callinfo - .enter - /* arg0=start addr, arg1=length in bytes */ - add arg0,arg1,arg1 - ldo -1(arg1),arg1 - depi 0,31,5,arg0 - depi 0,31,5,arg1 - ldsid (arg0),r19 - mtsp r19,sr1 - ldi 32,r19 ; bytes per cache line -sanctify_loop - fdc 0(sr1,arg0) - comb,< arg0,arg1,sanctify_loop - fic,m r19(sr1,arg0) - .leave - .procend - - -/* - * Trampolines. - */ - - .EXPORT closure_tramp -closure_tramp - /* reg_FDEFN holds the fdefn object. */ - ldw FDEFN_FUNCTION_OFFSET(0,reg_FDEFN),reg_LEXENV - ldw CLOSURE_FUNCTION_OFFSET(0,reg_LEXENV),reg_L0 - addi FUNCTION_CODE_OFFSET, reg_L0, reg_LIP - bv,n 0(reg_LIP) - - .EXPORT undefined_tramp -undefined_tramp - break trap_Error,0 - /* Number of argument bytes */ - .byte 4 - .byte UNDEFINED_SYMBOL_ERROR - /* Escape to create 16bit BE number from following two values */ - .byte 254 - /* SC_OFFSET(sc_DescriptorReg,reg_LEXENV) */ - /* Shouldn't this be reg_FDEFN, instead? */ - .byte (0x40 + sc_DescriptorReg) - .byte 1 - .align 4 - - -/* - * Core saving/restoring support - */ - - .export call_on_stack -call_on_stack - /* arg0 = fn to invoke, arg1 = new stack base */ - - /* Compute the new stack pointer. */ - addi 64,arg1,sp - - /* Zero out the previous stack pointer. */ - stw r0,-4(0,sp) - - /* Invoke the function. */ - ble 0(4,arg0) - copy r31, r2 - - /* Flame out. */ - break 0,0 - - .export save_state -save_state - .proc - .callinfo entry_gr=18,entry_fr=21,save_rp,calls - .enter - - /* Remember the function we want to invoke */ - copy arg0,r19 - - /* Pass the new stack pointer in as arg0 */ - copy sp,arg0 - - /* Leave arg1 as arg1. */ - - /* do the call. */ - ble 0(4,r19) - copy r31, r2 - -_restore_state - .leave - .procend - - .export restore_state -restore_state - .proc - .callinfo - copy arg0,sp - b _restore_state - copy arg1,ret0 - .procend - - - - .export SingleStepTraps -SingleStepTraps - break trap_SingleStepBreakpoint,0 - break trap_SingleStepBreakpoint,0 - - - - .align 8 - .export function_end_breakpoint_guts -function_end_breakpoint_guts - .word type_ReturnPcHeader - /* multiple value return point -- just jump to trap. */ - b,n function_end_breakpoint_trap - /* single value return point -- convert to multiple w/ n=1 */ - copy reg_CSP, reg_OCFP - addi 4, reg_CSP, reg_CSP - addi 4, r0, reg_NARGS - copy reg_NULL, reg_A1 - copy reg_NULL, reg_A2 - copy reg_NULL, reg_A3 - copy reg_NULL, reg_A4 - copy reg_NULL, reg_A5 - - .export function_end_breakpoint_trap -function_end_breakpoint_trap - break trap_FunctionEndBreakpoint,0 - b,n function_end_breakpoint_trap - - .export function_end_breakpoint_end -function_end_breakpoint_end ----------------------------------------------------------------------- Summary of changes: src/lisp/hppa-assem.s | 356 ------------------------------------------------- 1 files changed, 0 insertions(+), 356 deletions(-) delete mode 100644 src/lisp/hppa-assem.s hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. release-20c-22-g44ca897
by Raymond Toy 17 Nov '11

17 Nov '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 44ca897b25dda1179df1d8bfa3469d75594385d6 (commit) from 667a476adeae105dd8b712a14d4e136f58e5810d (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 44ca897b25dda1179df1d8bfa3469d75594385d6 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Nov 16 23:21:18 2011 -0800 Forgot to compiler that DECODE-FLOAT can return +/- 1w0 for the sign. diff --git a/src/compiler/fndb.lisp b/src/compiler/fndb.lisp index 985ce24..6dcd544 100644 --- a/src/compiler/fndb.lisp +++ b/src/compiler/fndb.lisp @@ -306,7 +306,9 @@ (defknown decode-float (float) (values (float 0.5d0 (1d0)) float-exponent - (member 1f0 -1f0 -1d0 1d0)) + (member 1f0 -1f0 -1d0 1d0 + #+double-double -1w0 + #+double-double 1w0)) (movable foldable flushable explicit-check)) (defknown scale-float (float float-exponent) float (movable foldable flushable explicit-check)) ----------------------------------------------------------------------- Summary of changes: src/compiler/fndb.lisp | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch rearrange-dir updated. release-20c-21-g667a476
by Raymond Toy 07 Nov '11

07 Nov '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, rearrange-dir has been updated via 667a476adeae105dd8b712a14d4e136f58e5810d (commit) from 26f37caf6696a9a8816c5872526c88d94845c187 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 667a476adeae105dd8b712a14d4e136f58e5810d Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Nov 6 19:13:00 2011 -0800 Don't add .git directory to src tarball! If compression or version is not given, use some reasonable default so we don't end up with a weird tarball. diff --git a/bin/make-src-dist.sh b/bin/make-src-dist.sh index f19dae2..a65aad8 100755 --- a/bin/make-src-dist.sh +++ b/bin/make-src-dist.sh @@ -25,7 +25,18 @@ done shift `expr $OPTIND - 1` -VERSION=$1 +# If no compression given, default to gzip (on the assumption that +# that is available everywhere.) +if [ -z "$ENABLE_BZIP" -a -z "$ENABLE_GZIP" ]; then + ENABLE_GZIP=-b +fi + +# If no version is given, default to today's date +if [ -n "$1" ]; then + VERSION=$1 +else + VERSION="`date '+%Y-%m-%d-%H:%M:%S'`" +fi echo Creating source distribution if [ -n "$ENABLE_GZIP" ]; then @@ -37,7 +48,7 @@ if [ -n "$ENABLE_BZIP" ]; then ZIPEXT="bz2" fi -GTAR_OPTIONS="--exclude=CVS --exclude='*.pot.~*~'" +GTAR_OPTIONS="--exclude=.git --exclude='*.pot.~*~'" if [ -z "$INSTALL_DIR" ]; then echo " Compressing with $ZIP" ${GTAR:-tar} ${GTAR_OPTIONS} -cf - src | ${ZIP} > cmucl-src-$VERSION.tar.$ZIPEXT ----------------------------------------------------------------------- Summary of changes: bin/make-src-dist.sh | 15 +++++++++++++-- 1 files changed, 13 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch rearrange-dir updated. release-20c-20-g26f37ca
by Raymond Toy 06 Nov '11

06 Nov '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, rearrange-dir has been updated via 26f37caf6696a9a8816c5872526c88d94845c187 (commit) from 4f7056212a2c6de20d0ae59776e9c29cdb4e9d26 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 26f37caf6696a9a8816c5872526c88d94845c187 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Nov 5 22:51:11 2011 -0700 Update paths to new locations. diff --git a/BUILDING b/BUILDING index 675cb99..c11ef26 100644 --- a/BUILDING +++ b/BUILDING @@ -55,17 +55,14 @@ Setting up a build environment or, if you want to use the git sources directly: - git clone git://common-lisp.net/projects/cmucl/cmucl.git src - - (The "src" is important to keep everything the same with git as it - was with cvs.) + git clone git://common-lisp.net/projects/cmucl/cmucl.git Whatever you do, the sources must be in a directory named src inside the base directory. Since the build tools keep all generated files in separate target directories, the src directory can be read-only (e.g. mounted read-only via NFS, etc.) - The build tools are all in the src/tools directory. + The build tools are all in the bin directory. That's it, you are now ready to build CMU CL. @@ -82,7 +79,7 @@ a) Simple builds Use this to build from a version of CMUCL that is very close to the sources you are trying to build now: - src/tools/build.sh -C "" -o "<name-of-old-lisp> <options-to-lisp>" + bin/build.sh -C "" -o "<name-of-old-lisp> <options-to-lisp>" This will build CMUCL 3 times, each time with the result of the previous build. The last time, the additional libraries like CLX, @@ -101,7 +98,7 @@ b) Slightly more complicated builds For these, you can use this: - src/tools/build.sh -C "" -o "<old-lisp>" -B boot1.lisp -B boot2.lisp + bin/build.sh -C "" -o "<old-lisp>" -B boot1.lisp -B boot2.lisp The bootstrap files listed with the -B option (as many as needed) are loaded in order, so be sure to get them right. @@ -124,8 +121,8 @@ read the bootfiles for additional instructions, if any. If there are no bootfiles, then you can use a) above. -The build.sh script supports other options, and src/tools/build.sh -? -will give a quick summary. Read src/tools/build.sh for more +The build.sh script supports other options, and bin/build.sh -? +will give a quick summary. Read bin/build.sh for more information. A general outline of the build process @@ -219,10 +216,10 @@ To complete the build so that you something similar to what the releases of CMUCL do, there are a few more steps: e) Build the utilities like Gray streams, simple streams, CLX, CLM, - and Hemlock. Use the src/tools/build-utils.sh script for this, as + and Hemlock. Use the bin/build-utils.sh script for this, as described below -f) Create tarfiles using the src/tools/make-dist.sh script, as +f) Create tarfiles using the bin/make-dist.sh script, as explained below. With these tarfiles, you can install them anywhere. The contents of @@ -246,13 +243,13 @@ the scripts included with this little text? Overview of the included build scripts -------------------------------------- -* src/tools/build.sh [-123obvuBCU?] +* bin/build.sh [-123obvuBCU?] This is the main build script. It essentially calls the other build scripts described below in the proper sequence to build cmucl from an existing binary of cmucl. -* src/tools/create-target.sh target-directory [lisp-variant [motif-variant]] +* bin/create-target.sh target-directory [lisp-variant [motif-variant]] This script creates a new target directory, which is a shadow of the source directory, that will contain all the files that are created by @@ -290,7 +287,7 @@ sample setenv.lisp includes a set of features that should work for the intended configuration. Note also that some adding or removing some features may require a cross-compile instead of a normal compile. -* src/tools/clean-target.sh [-l] target-directory [more dirs] +* bin/clean-target.sh [-l] target-directory [more dirs] Cleans the given target directory, so that all created files will be removed. This is useful to force recompilation. If the -l flag is @@ -298,7 +295,7 @@ given, then the C runtime is also removed, including all the lisp executable, any lisp cores, all object files, lisp.nm, internals.h, and the config file. -* src/tools/build-world.sh target-directory [build-binary] [build-flags...] +* bin/build-world.sh target-directory [build-binary] [build-flags...] Starts a complete world build for the given target, using the lisp binary/core specified as a build host. The recompilation step will @@ -309,13 +306,13 @@ step of the world build will inform you of that fact. In that case, you'll have to use the rebuild-lisp.sh script, and then restart the world build process with build-world.sh -* src/tools/rebuild-lisp.sh target-directory +* bin/rebuild-lisp.sh target-directory This script will force a complete recompilation of the C runtime code of CMU CL (aka the lisp executable). Doing this will necessitate building a new kernel.core file, using build-world.sh. -* src/tools/load-world.sh target-directory version +* bin/load-world.sh target-directory version This will finish the CMU CL rebuilding process, by loading the remaining compiled files generated in the world build process into the @@ -330,14 +327,14 @@ ISO8601 format is often a good idea, e.g. "18d+ 2002-05-06" for a binary that is based on sources current on the 6th May, 2002, which is post the 18d release. -* src/tools/build-utils.sh target-directory +* bin/build-utils.sh target-directory This script will build auxiliary libraries packaged with CMU CL, including CLX, CMUCL/Motif, the Motif debugger, inspector, and control panel, and the Hemlock editor. It will use the lisp executable and core of the given target. -* src/tools/make-dist.sh [-bg] [-G group] [-O owner] target-directory version arch os +* bin/make-dist.sh [-bg] [-G group] [-O owner] target-directory version arch os This script creates both main and extra distribution tarballs from the given target directory, using the make-main-dist.sh and @@ -369,7 +366,7 @@ names will have the form: Of course, the "bz2" will be "gz" if you specified gzip compression instead of bzip. -* /src/tools/make-main-dist.sh target-directory version arch os +* /bin/make-main-dist.sh target-directory version arch os This is script is not normally invoked by the user; make-dist will do it appropriately. @@ -382,7 +379,7 @@ simple streams. This is intended to be run from make-dist.sh. -* src/tools/make-extra-dist.sh target-directory version arch os +* bin/make-extra-dist.sh target-directory version arch os This is script is not normally invoked by the user; make-dist will do it appropriately. @@ -426,7 +423,7 @@ Set up everything as described in the setup section above. Then execute: # Create a new target directory structure/config for OpenBSD: -src/tools/create-target.sh openbsd OpenBSD_gencgc OpenBSD +bin/create-target.sh openbsd OpenBSD_gencgc OpenBSD # edit openbsd/setenv.lisp to contain what we want: cat <<EOF > openbsd/setenv.lisp @@ -452,7 +449,7 @@ cat <<EOF > openbsd/setenv.lisp EOF # Recompile the lisp world, and dump a new kernel.core: -src/tools/build-world.sh openbsd lisp # Or whatever you need to invoke your +bin/build-world.sh openbsd lisp # Or whatever you need to invoke your # current lisp binary+core # If build-world tells you (as it will the first time) that: @@ -462,15 +459,15 @@ src/tools/build-world.sh openbsd lisp # Or whatever you need to invoke your # build-world.sh: # Recompile lisp binary itself: -src/tools/rebuild-lisp.sh openbsd +bin/rebuild-lisp.sh openbsd # Restart build-world.sh now: -src/tools/build-world.sh openbsd lisp +bin/build-world.sh openbsd lisp # Now we populate the kernel.core with further compiled files, # and dump the final lisp.core file: -src/tools/load-world.sh openbsd "18d+ 2002-05-06" +bin/load-world.sh openbsd "18d+ 2002-05-06" # The second argument above is the version number that the built # core will announce. Please always put the build-date and some @@ -555,8 +552,8 @@ up-to-date with the current sources. Create a cross-compiler directory to hold the cross-compiler and a target directory to hold the result: - src/tools/create-target.sh xcross - src/tools/create-target.sh xtarget + bin/create-target.sh xcross + bin/create-target.sh xtarget 2. Adjust cross-compilation script @@ -592,13 +589,13 @@ up-to-date with the current sources. 3. Build the cross compiler and target Now compile the result: - src/tools/cross-build-world.sh xtarget xcross xtarget/cross.lisp [v9 binary] + bin/cross-build-world.sh xtarget xcross xtarget/cross.lisp [v9 binary] 4. Rebuild the lisp files: When this finishes, you need to compile the C code: - src/tools/rebuild-lisp.sh xtarget + bin/rebuild-lisp.sh xtarget At this point, you may want to run cross-build-world.sh again to generate a new kernel.core. It shouldn't build anything; @@ -608,7 +605,7 @@ up-to-date with the current sources. With the new kernel.core, we need to create a lisp.core: - src/tools/load-world.sh xtarget "new lisp" + bin/load-world.sh xtarget "new lisp" Test the result with @@ -635,8 +632,8 @@ same file system, via NFS or something else. compiled target. We assume we are on ppc/darwin. So, when running create-target.sh we need to specify the target: - src/tools/create-target.sh x86-cross x86 - src/tools/create-target.sh x86-target x86 + bin/create-target.sh x86-cross x86 + bin/create-target.sh x86-target x86 2. Adjust the cross-compilation script. An example for ppc/darwin to x86/linux is in src/tools/cross-scripts/cross-ppc-x86.lisp. @@ -644,7 +641,7 @@ same file system, via NFS or something else. 3. Build the cross compiler and target, as above, using the specified cross-compile script: - src/tools/cross-build-world.sh x86-target x86-cross cross.lisp [ppc binary] + bin/cross-build-world.sh x86-target x86-cross cross.lisp [ppc binary] where cross.lisp is the cross-compile script from 2) above. @@ -661,13 +658,13 @@ same file system, via NFS or something else. Compile the lisp code: - src/tools/rebuild-lisp.sh x86-target + bin/rebuild-lisp.sh x86-target 5. Now run load-world.sh to create the desired lisp.core from lisp and kernel.core. As above, PCL has not been compiled, so select restart 3 (return nil from pclload) to create lisp.core - src/tools/load-world.sh x86-target "new x86" + bin/load-world.sh x86-target "new x86" At this point, you will have a shiny new lisp on the new platform. Since it's missing PCL, you will need to do at least one normal build ----------------------------------------------------------------------- Summary of changes: BUILDING | 69 +++++++++++++++++++++++++++++-------------------------------- 1 files changed, 33 insertions(+), 36 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch rearrange-dir updated. release-20c-19-g4f70562
by Raymond Toy 06 Nov '11

06 Nov '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, rearrange-dir has been updated via 4f7056212a2c6de20d0ae59776e9c29cdb4e9d26 (commit) from ea38b2b7063d0b9885ab3a9768e8e9ef4b6f6215 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 4f7056212a2c6de20d0ae59776e9c29cdb4e9d26 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Nov 5 22:46:44 2011 -0700 Move make-dist.sh, make-extra-dist.sh, make-main-dist.sh and make-src-dist.sh to bin. diff --git a/src/tools/make-dist.sh b/bin/make-dist.sh similarity index 100% rename from src/tools/make-dist.sh rename to bin/make-dist.sh diff --git a/src/tools/make-extra-dist.sh b/bin/make-extra-dist.sh similarity index 100% rename from src/tools/make-extra-dist.sh rename to bin/make-extra-dist.sh diff --git a/src/tools/make-main-dist.sh b/bin/make-main-dist.sh similarity index 100% rename from src/tools/make-main-dist.sh rename to bin/make-main-dist.sh diff --git a/src/tools/make-src-dist.sh b/bin/make-src-dist.sh similarity index 100% rename from src/tools/make-src-dist.sh rename to bin/make-src-dist.sh ----------------------------------------------------------------------- Summary of changes: {src/tools => bin}/make-dist.sh | 0 {src/tools => bin}/make-extra-dist.sh | 0 {src/tools => bin}/make-main-dist.sh | 0 {src/tools => bin}/make-src-dist.sh | 0 4 files changed, 0 insertions(+), 0 deletions(-) rename {src/tools => bin}/make-dist.sh (100%) rename {src/tools => bin}/make-extra-dist.sh (100%) rename {src/tools => bin}/make-main-dist.sh (100%) rename {src/tools => bin}/make-src-dist.sh (100%) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch rearrange-dir updated. release-20c-18-gea38b2b
by Raymond Toy 06 Nov '11

06 Nov '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, rearrange-dir has been updated via ea38b2b7063d0b9885ab3a9768e8e9ef4b6f6215 (commit) from 5a6e97592b24a38bf3802c9479ba40c98f45c62b (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit ea38b2b7063d0b9885ab3a9768e8e9ef4b6f6215 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Nov 5 21:47:37 2011 -0700 Move cross-build-world.sh to bin. diff --git a/src/tools/cross-build-world.sh b/bin/cross-build-world.sh similarity index 100% rename from src/tools/cross-build-world.sh rename to bin/cross-build-world.sh ----------------------------------------------------------------------- Summary of changes: {src/tools => bin}/cross-build-world.sh | 0 1 files changed, 0 insertions(+), 0 deletions(-) rename {src/tools => bin}/cross-build-world.sh (100%) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch rearrange-dir updated. release-20c-16-g6ec65ff
by Raymond Toy 05 Nov '11

05 Nov '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, rearrange-dir has been updated via 6ec65ff00b9f7c5d55303dd2c26fe3aca906b3fa (commit) from f389de8f2e3dea95e3c5905a60853be380f6094b (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 6ec65ff00b9f7c5d55303dd2c26fe3aca906b3fa Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Nov 4 23:50:15 2011 -0700 Exit after print the usage message. diff --git a/bin/build-all.sh b/bin/build-all.sh index 8aa4c84..8455de6 100755 --- a/bin/build-all.sh +++ b/bin/build-all.sh @@ -50,7 +50,7 @@ do v) VERSION="$OPTARG"; VERSION_SET=true ;; U) UPDATE_TRANS="-U" ;; P) UPDATE_POT="" ;; - \?) usage ;; + \?) usage; exit 1 ;; esac done ----------------------------------------------------------------------- Summary of changes: bin/build-all.sh | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch rearrange-dir updated. release-20c-15-gf389de8
by Raymond Toy 05 Nov '11

05 Nov '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, rearrange-dir has been updated via f389de8f2e3dea95e3c5905a60853be380f6094b (commit) via 1dcbb5c068d0a2bf10f6e36bb1c77d6ca7c264f9 (commit) via 30f2e52433028cb9502f0b8b987e318c5d8c2fde (commit) from e3281db3226d7180bb5c6ba6c6754d8045d29ed3 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit f389de8f2e3dea95e3c5905a60853be380f6094b Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Nov 4 22:42:16 2011 -0700 Ignore linux and sparc build directories. diff --git a/.gitignore b/.gitignore index 2a6211a..c122cd7 100644 --- a/.gitignore +++ b/.gitignore @@ -1,6 +1,10 @@ # Ignore default build directories darwin-[234] darwin-8bit-[234] +linux-[234] +linux-8bit-[234] +sparc-[234] +sparc-8bit-[234] # Ignore files generated by TeX src/docs/cmu-user/*.aux commit 1dcbb5c068d0a2bf10f6e36bb1c77d6ca7c264f9 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Nov 4 22:40:45 2011 -0700 If -b is not given, try to choose a suitable name from the OS type. diff --git a/bin/build-all.sh b/bin/build-all.sh index 937396c..8aa4c84 100755 --- a/bin/build-all.sh +++ b/bin/build-all.sh @@ -18,6 +18,8 @@ usage () echo "" echo " -b d Basename of the different build directories." echo " ${d}-2, ${d}-3, ${d}-4 for unicode" + echo " If -b is not given, a suitable name is chosen" + echo " based on the OS." echo " ${d}-8bit-2, ${d}-8bit-3, ${d}-8bit-4 for non-unicode" echo " -B file Use file as a boot file. Maybe be specified more than once" echo " The file is relative to the bootfiles/<version> directory" @@ -34,7 +36,6 @@ usage () echo " translations" } -BASE=build CREATE_OPT="" UPDATE_POT="-P" @@ -53,9 +54,20 @@ do esac done -if [ "$BASE" = "" ]; then - echo "-b option required" - exit 1 +# If -b not given, try to derive one instead of just using "build". +if [ -z "$BASE" ]; then + case `uname -s` in + Darwin) # We only support darwin-x86 now. No ppc available anymore. + BASE=darwin ;; + SunOS) + case `uname -m` in + sun4u) BASE=sparc ;; + i86pc) BASE=sol-x86 ;; + esac ;; + Linux) BASE=linux ;; + # Add support for FreeBSD and NetBSD? Otherwise default to just build. + *) BASE=build ;; + esac fi if [ "$OLDLISP" = "" -a "$OLD8" = "" ]; then diff --git a/bin/build.sh b/bin/build.sh index 00c7fc6..537354b 100755 --- a/bin/build.sh +++ b/bin/build.sh @@ -47,7 +47,6 @@ VERSION="`date '+%Y-%m-%d %H:%M:%S'`" GIT_HASH="`(cd src; git describe --dirty 2>/dev/null)`" # Add the tree hash to the version VERSION="$VERSION $GIT_HASH" -BASE=build OLDLISPFLAGS="-noinit -nositeinit" OLDLISP="cmulisp" @@ -78,7 +77,7 @@ usage () echo " -o x Use specified Lisp to build. Default is cmulisp" echo " (only applicable for build 1)" echo ' -b d The different build directories are named ${d}-2, ${d}-3 ${d}-4' - echo ' with a default of "build"' + echo ' If -b is not given, a suitable name based on the OS is used.' echo ' -v v Use the given string as the version. Default is' echo " today's date" echo " -u Don't build CLX, CLM, or Hemlock" @@ -174,6 +173,24 @@ do esac done +# If -b not given, try to derive one instead of just using "build". +if [ -z "$BASE" ]; then + case `uname -s` in + Darwin) # We only support darwin-x86 now. No ppc available anymore. + BASE=darwin ;; + SunOS) + case `uname -m` in + sun4u) BASE=sparc ;; + i86pc) BASE=sol-x86 ;; + esac ;; + Linux) BASE=linux ;; + # Add support for FreeBSD and NetBSD? Otherwise default to just build. + *) BASE=build ;; + esac +fi + +echo base = $BASE + bootfiles_dir=$SRCDIR/bootfiles/$version if [ -n "$bootfiles" ]; then for file in $bootfiles; do commit 30f2e52433028cb9502f0b8b987e318c5d8c2fde Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Nov 4 22:40:06 2011 -0700 Ignore darwin build directories. diff --git a/.gitignore b/.gitignore index 453b96e..2a6211a 100644 --- a/.gitignore +++ b/.gitignore @@ -1,3 +1,8 @@ +# Ignore default build directories +darwin-[234] +darwin-8bit-[234] + +# Ignore files generated by TeX src/docs/cmu-user/*.aux src/docs/cmu-user/*.cdx src/docs/cmu-user/*.cnd ----------------------------------------------------------------------- Summary of changes: .gitignore | 9 +++++++++ bin/build-all.sh | 20 ++++++++++++++++---- bin/build.sh | 21 +++++++++++++++++++-- 3 files changed, 44 insertions(+), 6 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. release-20c-8-g17c9b81
by Raymond Toy 05 Nov '11

05 Nov '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via 17c9b814e38d6416ab3046effa39e3cba050218d (commit) via 8d915bdb5a9fa8a3fe52846ad54affb2b7c264ac (commit) from d4dc2cd1b3f80a3b6ef30eaf7e9741d2208cf676 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 17c9b814e38d6416ab3046effa39e3cba050218d Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Nov 3 21:52:46 2011 -0700 Update from change log. diff --git a/general-info/release-20d.txt b/general-info/release-20d.txt index 460cc3c..0c926f7 100644 --- a/general-info/release-20d.txt +++ b/general-info/release-20d.txt @@ -23,7 +23,13 @@ New in this release: * Feature enhancements * Changes - + * ASDF2 updated to version 2.018. + * Behavior of STRING-TO-OCTETS has changed. This is an + incompatible change from the previous version but should be more + useful when a buffer is given which is not large enough to hold + all the octets for the given string. See docstring for more + details. + * ANSI compliance fixes: * Bugfixes: commit 8d915bdb5a9fa8a3fe52846ad54affb2b7c264ac Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Nov 3 21:39:36 2011 -0700 STRING-TO-OCTETS returns the buffer, the number of octets written and the number of characters converted when a buffer is given. If the buffer is not large enough, not all characters are converted. This is an incompatible change from the previous version. Suggested by Helmut Eller, cmucl-imp, 2011-10-29. diff --git a/code/extfmts.lisp b/code/extfmts.lisp index 5936ca7..43adbcc 100644 --- a/code/extfmts.lisp +++ b/code/extfmts.lisp @@ -851,39 +851,66 @@ character and illegal outputs are replaced by a question mark.") (funcall f state)))) (def-ef-macro ef-string-to-octets (extfmt lisp::lisp +ef-max+ +ef-so+) - `(lambda (string start end buffer error &aux (ptr 0) (state nil)) + `(lambda (string start end buffer buffer-start buffer-end error bufferp + &aux (ptr buffer-start) (state nil) (last-octet buffer-start)) (declare #|(optimize (speed 3) (safety 0) (space 0) (debug 0))|# (type simple-string string) (type kernel:index start end ptr) (type (simple-array (unsigned-byte 8) (*)) buffer) (ignorable state)) - (dotimes (i (- end start) (values buffer ptr)) - (declare (type kernel:index i)) - (char-to-octets ,extfmt (schar string (+ start i)) state - (lambda (b) - (when (= ptr (length buffer)) - (setq buffer (adjust-array buffer (* 2 ptr)))) - (setf (aref buffer (1- (incf ptr))) b)) - error)))) + (if bufferp + (block ef-string-done + (dotimes (i (- end start) (values buffer ptr i)) + (declare (type kernel:index i)) + (char-to-octets ,extfmt (schar string (+ start i)) state + (lambda (b) + (when (= ptr buffer-end) + (return-from ef-string-done + (values buffer last-octet i))) + (setf (aref buffer (1- (incf ptr))) b)) + error) + (setf last-octet ptr))) + (dotimes (i (- end start) (values buffer ptr i)) + (declare (type kernel:index i)) + (char-to-octets ,extfmt (schar string (+ start i)) state + (lambda (b) + (when (= ptr (length buffer)) + (setq buffer (adjust-array buffer (* 2 ptr)))) + (setf (aref buffer (1- (incf ptr))) b)) + error))))) (defun string-to-octets (string &key (start 0) end (external-format :default) (buffer nil bufferp) + (buffer-start 0) error) "Convert String to octets using the specified External-format. The string is bounded by Start (defaulting to 0) and End (defaulting to the end of the string. If Buffer is given, the octets are stored - there. If not, a new buffer is created." + there. If not, a new buffer is created. Buffer-start specifies + where in the buffer the first octet will be placed. + + Three values are returned: The buffer, the number of valid octets + written, and the number of characters converted. Note that the + actual number of octets written may be greater than the returned + value, These represent the partial octets of the next character to + be converted, but there was not enough room to hold the complete set + of octets." (declare (type string string) (type kernel:index start) (type (or kernel:index null) end) - (type (or (simple-array (unsigned-byte 8) (*)) null) buffer)) + (type (or (array (unsigned-byte 8) (*)) null) buffer)) (let* ((buffer (or buffer (make-array (length string) :element-type '(unsigned-byte 8))))) - (multiple-value-bind (buffer ptr) - (lisp::with-array-data ((string string) (start start) (end end)) - (funcall (ef-string-to-octets external-format) - string start end buffer error)) - (values (if bufferp buffer (lisp::shrink-vector buffer ptr)) ptr)))) + (lisp::with-array-data ((b buffer) (b-start) + (b-end)) + (multiple-value-bind (result ptr octets) + (lisp::with-array-data ((string string) (start start) (end end)) + (funcall (ef-string-to-octets external-format) + string start end b + (+ b-start buffer-start) b-end + error bufferp)) + (values (if bufferp buffer (lisp::shrink-vector result ptr)) + (- ptr b-start buffer-start) octets))))) (def-ef-macro ef-octets-to-string (extfmt lisp::lisp +ef-max+ +ef-os+) `(lambda (octets ptr end state string s-start s-end error ----------------------------------------------------------------------- Summary of changes: code/extfmts.lisp | 59 ++++++++++++++++++++++++++++++----------- general-info/release-20d.txt | 8 +++++- 2 files changed, 50 insertions(+), 17 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. release-20c-6-gd4dc2cd
by Raymond Toy 04 Nov '11

04 Nov '11

This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CMU Common Lisp". The branch, master has been updated via d4dc2cd1b3f80a3b6ef30eaf7e9741d2208cf676 (commit) via fe137557eb2d4b58701e91e3da1da184813fb2e0 (commit) from 77e3035adb95ee2eff7db6e9109dc10a9214c3d3 (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit d4dc2cd1b3f80a3b6ef30eaf7e9741d2208cf676 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Nov 3 21:25:50 2011 -0700 Initial version for 20d release notes. diff --git a/general-info/release-20d.txt b/general-info/release-20d.txt new file mode 100644 index 0000000..460cc3c --- /dev/null +++ b/general-info/release-20d.txt @@ -0,0 +1,46 @@ +========================== C M U C L 20 d ============================= + +[Not yet released] + +The CMUCL project is pleased to announce the release of CMUCL 20d. +This is a major release which contains numerous enhancements and +bug fixes from the 20c release. + +CMUCL is a free, high performance implementation of the Common Lisp +programming language which runs on most major Unix platforms. It +mainly conforms to the ANSI Common Lisp standard. CMUCL provides a +sophisticated native code compiler; a powerful foreign function +interface; an implementation of CLOS, the Common Lisp Object System, +which includes multi-methods and a meta-object protocol; a source-level +debugger and code profiler; and an Emacs-like editor implemented in +Common Lisp. CMUCL is maintained by a team of volunteers collaborating +over the Internet, and is mostly in the public domain. + +New in this release: + + * Known issues: + + * Feature enhancements + + * Changes + + * ANSI compliance fixes: + + * Bugfixes: + + * Trac Tickets: + + * Other changes: + + * Improvements to the PCL implementation of CLOS: + + * Changes to building procedure: + +This release is not binary compatible with code compiled using CMUCL +20c; you will need to recompile FASL files. + +See <URL:http://www.cons.org/cmucl/> for download information, +guidelines on reporting bugs, and mailing list details. + + +We hope you enjoy using this release of CMUCL! commit fe137557eb2d4b58701e91e3da1da184813fb2e0 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Nov 3 21:25:11 2011 -0700 Change bootfile directory from 20b to 20c. diff --git a/tools/build.sh b/tools/build.sh index 392637e..830ec2d 100755 --- a/tools/build.sh +++ b/tools/build.sh @@ -39,7 +39,7 @@ ENABLE2="yes" ENABLE3="yes" ENABLE4="yes" -version=20b +version=20c SRCDIR=src TOOLDIR=$SRCDIR/tools VERSION="`date '+%Y-%m-%d %H:%M:%S'`" ----------------------------------------------------------------------- Summary of changes: general-info/release-20d.txt | 46 ++++++++++++++++++++++++++++++++++++++++++ tools/build.sh | 2 +- 2 files changed, 47 insertions(+), 1 deletions(-) create mode 100644 general-info/release-20d.txt hooks/post-receive -- CMU Common Lisp

1 0