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

[Git][cmucl/cmucl][master] 2 commits: Update version so bootfiles are loaded from the dir
by Raymond Toy 11 Oct '15

11 Oct '15

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 5590ed0e by Raymond Toy at 2015-10-10T18:01:41Z Update version so bootfiles are loaded from the dir - - - - - 323c6cdb by Raymond Toy at 2015-10-10T18:04:25Z Add new release notes file for 21b. - - - - - 2 changed files: - bin/build.sh - + src/general-info/release-21b.txt Changes: ===================================== bin/build.sh ===================================== --- a/bin/build.sh +++ b/bin/build.sh @@ -39,7 +39,7 @@ ENABLE2="yes" ENABLE3="yes" ENABLE4="yes" -version=20f +version=21a SRCDIR=src BINDIR=bin TOOLDIR=$BINDIR ===================================== src/general-info/release-21b.txt ===================================== --- /dev/null +++ b/src/general-info/release-21b.txt @@ -0,0 +1,49 @@ +========================== C M U C L 21 a ============================= + +[Work in progress] + +The CMUCL project is pleased to announce the release of CMUCL 21b. +This is a major release which contains numerous enhancements and +bug fixes from the 21a 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: + + * Gitlab 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 +21a; you will need to recompile FASL files. + +See <URL:http://www.cmucl.org> or +<URL:http://trac.common-lisp.net/cmucl> for download information, +guidelines on reporting bugs, and mailing list details. + + +We hope you enjoy using this release of CMUCL! View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/6f0643637e3207c57d039f5b…

1 0

[Git][cmucl/cmucl][master] Remove -mmacosx-version-min=10.5
by Raymond Toy 11 Oct '15

11 Oct '15

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 6f064363 by Raymond Toy at 2015-10-10T17:58:40Z Remove -mmacosx-version-min=10.5 When making an executable on some random machine, we can't depend on the user having the 10.5 SDK around. So remove the flag, but add -Wl,-no_pie to suppress the warning about PIE disabled due to absolute addressing. - - - - - 1 changed file: - src/tools/linker.sh Changes: ===================================== src/tools/linker.sh ===================================== --- a/src/tools/linker.sh +++ b/src/tools/linker.sh @@ -98,7 +98,7 @@ case $uname_s in # the desired version.) This gets rid of a PIE warning # when creating the executable on 10.8. (See ticket:112.) - OPT_EXTRA="-segaddr __LINKEDIT 0x99000000 -rdynamic -mmacosx-version-min=10.5" + OPT_EXTRA="-segaddr __LINKEDIT 0x99000000 -rdynamic -Wl,-no_pie" OS_LIBS= ;; powerpc) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/6f0643637e3207c57d039f5be…

1 0

[Git][cmucl/cmucl][master] Give hint on what the last value of the printed process is
by Raymond Toy 11 Oct '15

11 Oct '15

Raymond Toy pushed to branch master at cmucl / cmucl Commits: ae08122d by Raymond Toy at 2015-10-10T17:48:16Z Give hint on what the last value of the printed process is Left this out in the previous commit. - - - - - 1 changed file: - src/code/run-program.lisp Changes: ===================================== src/code/run-program.lisp ===================================== --- a/src/code/run-program.lisp +++ b/src/code/run-program.lisp @@ -97,9 +97,10 @@ (defun %print-process (proc stream depth) (declare (ignore depth)) (print-unreadable-object (proc stream :type t :identity t) - (format stream "~D ~S ~D" + (format stream "~D ~S ~S ~D" (process-pid proc) (process-status proc) + :exit-code (process-exit-code proc)))) ;;; PROCESS-STATUS -- Public. View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/ae08122d15bdb758da47dbcf6…

1 0

[Git][cmucl/cmucl][master] Use PRINT-UNREADABLE-OBJECT to print the process structure.
by Raymond Toy 11 Oct '15

11 Oct '15

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 131c1e3f by Raymond Toy at 2015-10-10T17:41:27Z Use PRINT-UNREADABLE-OBJECT to print the process structure. - - - - - 1 changed file: - src/code/run-program.lisp Changes: ===================================== src/code/run-program.lisp ===================================== --- a/src/code/run-program.lisp +++ b/src/code/run-program.lisp @@ -96,10 +96,11 @@ (defun %print-process (proc stream depth) (declare (ignore depth)) - (format stream "#<process ~D ~S code: ~S>" - (process-pid proc) - (process-status proc) - (process-exit-code proc))) + (print-unreadable-object (proc stream :type t :identity t) + (format stream "~D ~S ~D" + (process-pid proc) + (process-status proc) + (process-exit-code proc)))) ;;; PROCESS-STATUS -- Public. ;;; View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/131c1e3f2f589f8a80e22916d…

1 0

[Git][cmucl/cmucl][master] Use correct path for git clone.
by Raymond Toy 10 Oct '15

10 Oct '15

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 8d7c3383 by Raymond Toy at 2015-10-10T13:39:42Z Use correct path for git clone. Noticed by Joram Schrijver who gave the correct path. - - - - - 1 changed file: - BUILDING Changes: ===================================== BUILDING ===================================== --- a/BUILDING +++ b/BUILDING @@ -55,7 +55,7 @@ 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 + git clone https://gitlab.common-lisp.net/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 View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/8d7c33830d953f67d1e8253f7…

1 0

[Git][cmucl/cmucl][master] Include the exit code when printing the process structure.
by Raymond Toy 10 Oct '15

10 Oct '15

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 3f5fb01a by Raymond Toy at 2015-10-09T22:17:20Z Include the exit code when printing the process structure. It's really nice to see the exit code of the process when printing out the process structure. Fix a typo too: "tings" -> "things". - - - - - 1 changed file: - src/code/run-program.lisp Changes: ===================================== src/code/run-program.lisp ===================================== --- a/src/code/run-program.lisp +++ b/src/code/run-program.lisp @@ -90,15 +90,16 @@ output ; Stream from child's output or nil. error ; Stream from child's error output or nil. status-hook ; Closure to call when PROC changes status. - plist ; Place for clients to stash tings. + plist ; Place for clients to stash things. cookie ; List of the number of pipes from the subproc. ) (defun %print-process (proc stream depth) (declare (ignore depth)) - (format stream "#<process ~D ~S>" + (format stream "#<process ~D ~S code: ~S>" (process-pid proc) - (process-status proc))) + (process-status proc) + (process-exit-code proc))) ;;; PROCESS-STATUS -- Public. ;;; View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/3f5fb01a6e5f8e4efb8d3843d…

1 0

[Git][cmucl/cmucl][master] Exit with the return code from obj_run_linker.
by Raymond Toy 10 Oct '15

10 Oct '15

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 11a7e37b by Raymond Toy at 2015-10-09T21:56:01Z Exit with the return code from obj_run_linker. obj_run_linker() returns the return code from the call to system(). Exit lisp with this return code to indicate if running the executable linker script worked or not. - - - - - 1 changed file: - src/lisp/save.c Changes: ===================================== src/lisp/save.c ===================================== --- a/src/lisp/save.c +++ b/src/lisp/save.c @@ -250,6 +250,7 @@ save_executable(char *filename, lispobj init_function) { char *dir_name; char *dir_copy; + int rc; #if defined WANT_CGC volatile lispobj *func_ptr = &init_function; @@ -357,9 +358,9 @@ save_executable(char *filename, lispobj init_function) printf("Linking executable...\n"); fflush(stdout); - obj_run_linker(init_function, filename); + rc = obj_run_linker(init_function, filename); printf("done.\n"); free(dir_copy); - exit(0); + exit(rc); } #endif View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/11a7e37bb39ee3e24e62c9382…

1 0

[Git][cmucl/cmucl][master] Support asdf's static-image-op.
by Raymond Toy 05 Oct '15

05 Oct '15

Raymond Toy pushed to branch master at cmucl / cmucl Commits: 20abbd7c by Raymond Toy at 2015-10-04T20:26:12Z Support asdf's static-image-op. * src/lisp/GNUMakefile * Don't add exec-final.o to lisp.a. (But still remove exec-init.o from it.) * src/tools/linker.sh * When linking the executable, need to link exec-final.o too. * bin/make-main-dist.sh * Need to install exec-init.o and exec-final.o. exec-init.o is needed to link a normal lisp; exec-final.o is used for the executable image. * Fix modes on some installed files. exec-init.o, exec-final.o, and lisp.a don't need to be executable. - - - - - 3 changed files: - bin/make-main-dist.sh - src/lisp/GNUmakefile - src/tools/linker.sh Changes: ===================================== bin/make-main-dist.sh ===================================== --- a/bin/make-main-dist.sh +++ b/bin/make-main-dist.sh @@ -96,7 +96,9 @@ install -d ${GROUP} ${OWNER} -m 0755 $DESTDIR/${MANDIR} install ${GROUP} ${OWNER} -m 0755 $TARGET/lisp/lisp $DESTDIR/bin/ if [ "$EXECUTABLE" = "true" ] then - install ${GROUP} ${OWNER} -m 0755 $TARGET/lisp/lisp.a $DESTDIR/lib/cmucl/lib/ + install ${GROUP} ${OWNER} -m 0555 $TARGET/lisp/lisp.a $DESTDIR/lib/cmucl/lib/ + install ${GROUP} ${OWNER} -m 0555 $TARGET/lisp/exec-init.o $DESTDIR/lib/cmucl/lib/ + install ${GROUP} ${OWNER} -m 0555 $TARGET/lisp/exec-final.o $DESTDIR/lib/cmucl/lib/ install ${GROUP} ${OWNER} -m 0755 src/tools/linker.sh $DESTDIR/lib/cmucl/lib/ if [ -f src/tools/$SCRIPT-cmucl-linker-script ]; then install ${GROUP} ${OWNER} -m 0755 src/tools/$SCRIPT-cmucl-linker-script $DESTDIR/lib/cmucl/lib/ ===================================== src/lisp/GNUmakefile ===================================== --- a/src/lisp/GNUmakefile +++ b/src/lisp/GNUmakefile @@ -52,21 +52,15 @@ version.o : version.c version $(CC) ${CFLAGS} $(CPPFLAGS) -DVERSION=`cat version` -c $< lisp: ${OBJS} version.o - $(CC) -g ${OS_LINK_FLAGS} -o ,lisp \ - ${OBJS} version.o \ - ${OS_LIBS} -lm + $(CC) -g ${OS_LINK_FLAGS} -o ,lisp $^ ${OS_LIBS} -lm mv -f ,lisp lisp # Create a library out of all the object files so we can build an # executable. However, we need to remove exec-init.o from the library -# and replace it with exec-final.o because exec-final.o sets the -# builtin_image_flag to 1 so that the runtime knows the runtime -# contains the core sections. lisp.a: version.o ${OBJS} ${EXEC_FINAL_OBJ} $(AR) crs lisp.a ${OBJS} version.o ifneq (${EXEC_FINAL_OBJ},) $(AR) d lisp.a exec-init.o - $(AR) r lisp.a ${EXEC_FINAL_OBJ} endif version: ===================================== src/tools/linker.sh ===================================== --- a/src/tools/linker.sh +++ b/src/tools/linker.sh @@ -139,5 +139,5 @@ trap 'rm -f $OUTDIR/$OPT_IFADDR $OUTDIR/CORRO.o $OUTDIR/CORSTA.o $OUTDIR/CORDYN. (cd $OUTDIR echo "long initial_function_addr = $IFADDR;" > $OPT_IFADDR -$CCOMPILER -m32 -o $OUTNAME $OPT_IFADDR $OPT_ARCHIVE $OPT_CORE $RO_ADDR $STATIC_ADDR $DYN_ADDR $OPT_EXTRA $OS_LIBS -lm) +$CCOMPILER -m32 -o $OUTNAME $OPT_IFADDR $OPT_ARCHIVE $CMUCLLIB/exec-final.o $OPT_CORE $RO_ADDR $STATIC_ADDR $DYN_ADDR $OPT_EXTRA $OS_LIBS -lm) View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/20abbd7c903455c9909ccdada…

1 0

[Git][cmucl/cmucl][rtoy-mmap-anon-control-and-binding-stacks] 2 commits: Rename local control_stack_size to current_stack_size to prevent
by Raymond Toy 04 Oct '15

04 Oct '15

Raymond Toy pushed to branch rtoy-mmap-anon-control-and-binding-stacks at cmucl / cmucl Commits: 0e258fd9 by Raymond Toy at 2015-10-04T15:05:08Z Rename local control_stack_size to current_stack_size to prevent confusion with the global control_stack_size. - - - - - 1d8db41a by Raymond Toy at 2015-10-04T15:05:22Z Replace BINDING_STACK_START and CONTROL_STACK_START appropriately. - - - - - 2 changed files: - src/lisp/Linux-os.c - src/lisp/gencgc.c Changes: ===================================== src/lisp/Linux-os.c ===================================== --- a/src/lisp/Linux-os.c +++ b/src/lisp/Linux-os.c @@ -454,17 +454,17 @@ sigsegv_handler(HANDLER_ARGS) #ifdef i386 interrupt_handle_now(signal, contextstruct); #else -#define CONTROL_STACK_TOP (((char*) CONTROL_STACK_START) + control_stack_size) +#define CONTROL_STACK_TOP (((char*) control_stack) + control_stack_size) addr = arch_get_bad_addr(signal, code, context); if (addr != NULL && context->sc_regs[reg_ALLOC] & (1 << 63)) { context->sc_regs[reg_ALLOC] -= (1 << 63); interrupt_handle_pending(context); - } else if (addr > CONTROL_STACK_TOP && addr < BINDING_STACK_START) { + } else if (addr > CONTROL_STACK_TOP && addr < (os_vm_address_t)binding_stack) { fprintf(stderr, "Possible stack overflow at 0x%08lX!\n", addr); /* try to fix control frame pointer */ - while (!(CONTROL_STACK_START <= *current_control_frame_pointer && + while (!((lispobj)control_stack <= *current_control_frame_pointer && *current_control_frame_pointer <= CONTROL_STACK_TOP)) ((char *) current_control_frame_pointer) -= sizeof(lispobj); ldb_monitor(); ===================================== src/lisp/gencgc.c ===================================== --- a/src/lisp/gencgc.c +++ b/src/lisp/gencgc.c @@ -7501,16 +7501,16 @@ scavenge_interrupt_handlers(void) static void scavenge_control_stack(void) { - unsigned long control_stack_size; + unsigned long current_stack_size; - control_stack_size = current_control_stack_pointer - control_stack; + current_stack_size = current_control_stack_pointer - control_stack; #ifdef PRINTNOISE printf("Scavenging the control stack (%d bytes) ...\n", - control_stack_size * sizeof(lispobj)); + current_stack_size * sizeof(lispobj)); #endif - scavenge(control_stack, control_stack_size); + scavenge(control_stack, current_stack_size); #ifdef PRINTNOISE printf("Done scavenging the control stack.\n"); View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/ec4c78fb89c45860344d819d…

1 0

[Git][cmucl/cmucl][rtoy-mmap-anon-control-and-binding-stacks] Define SIGNAL_STACK_SIZE
by Raymond Toy 04 Oct '15

04 Oct '15

Raymond Toy pushed to branch rtoy-mmap-anon-control-and-binding-stacks at cmucl / cmucl Commits: ec4c78fb by Raymond Toy at 2015-10-04T12:58:54Z Define SIGNAL_STACK_SIZE - - - - - 2 changed files: - src/lisp/ppc-validate.h - src/lisp/sparc-validate.h Changes: ===================================== src/lisp/ppc-validate.h ===================================== --- a/src/lisp/ppc-validate.h +++ b/src/lisp/ppc-validate.h @@ -49,6 +49,8 @@ #define CONTROL_STACK_END (CONTROL_STACK_START + control_stack_size) #endif +#define SIGNAL_STACK_SIZE SIGSTKSZ + #if 0 #define BINDING_STACK_START (0x38000000) #endif ===================================== src/lisp/sparc-validate.h ===================================== --- a/src/lisp/sparc-validate.h +++ b/src/lisp/sparc-validate.h @@ -109,6 +109,8 @@ #define CONTROL_STACK_END (CONTROL_STACK_START + control_stack_size) #endif +#define SIGNAL_STACK_SIZE SIGSTKSZ + #define DYNAMIC_0_SPACE_START (SpaceStart_TargetDynamic) /* This isn't used with GENCGC */ View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/commit/ec4c78fb89c45860344d819de…

1 0