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

[cmucl-cvs] [git] CMU Common Lisp annotated tag snapshot-2012-09 created. snapshot-2012-09
by Raymond Toy 01 Sep '12

01 Sep '12

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 annotated tag, snapshot-2012-09 has been created at f721c450f4843a8100651a7a219c258b6bfb0e26 (tag) tagging 4fd2baf278cc7d8d732d40a3c587bff02a3c1330 (commit) replaces snapshot-2012-08 tagged by Raymond Toy on Sat Sep 1 12:11:05 2012 -0700 - Log ----------------------------------------------------------------- Snapshot 2012-09 Raymond Toy (13): Support Lion and Mountain Lion which return x86-64 for uname -m. Use /usr/bin/sed instead of whatever is in the path. src/lisp/os.h: Move the FPU save/restore stuff from os.h to arch.h Floating-point micro-optimizations Need to wrap EVAL-WHEN around USE-PACKAGE since use-package doesn't Change %primitive print.to output strings in utf8 instead of utf16. Minor cleanups of utf8 code. Clean up debug_print. Surrogate pairs are always high surrogate Update to asdf 2.24. Clean up RCS ids Update from logs. Split x86-validate into separate files. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-08-13-g4fd2baf
by Raymond Toy 01 Sep '12

01 Sep '12

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 4fd2baf278cc7d8d732d40a3c587bff02a3c1330 (commit) via 7ce792af9ca1d7afc9ffec3b85e2b996191e6d4c (commit) via eeab7066adf9381bb734240b01d5c715a17ddf08 (commit) from b6f29d0ea8a591fde0cd7fdc623bfe8959d87a75 (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 4fd2baf278cc7d8d732d40a3c587bff02a3c1330 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Sep 1 11:08:01 2012 -0700 Split x86-validate into separate files. src/lisp/x86-validate.h: o Remove linux, darwin, and solaris parts src/lisp/x86-validate-linux.h: src/lisp/x86-validate-darwin.h: src/lisp/x86-validate-solaris.h: o New files for each os. diff --git a/src/lisp/x86-validate-darwin.h b/src/lisp/x86-validate-darwin.h new file mode 100644 index 0000000..53166e8 --- /dev/null +++ b/src/lisp/x86-validate-darwin.h @@ -0,0 +1,56 @@ +/* + * + * This code was written as part of the CMU Common Lisp project at + * Carnegie Mellon University, and has been placed in the public domain. + * + */ + +#ifndef _X86_VALIDATE_DARWIN_H_ +#define _X86_VALIDATE_DARWIN_H_ + +/* + * Also look in compiler/x86/parms.lisp for some of the parameters. + */ + +#define READ_ONLY_SPACE_START (SpaceStart_TargetReadOnly) +#define READ_ONLY_SPACE_SIZE (0x0ffff000) /* 256MB - 1 page */ + +#define STATIC_SPACE_START (SpaceStart_TargetStatic) +#define STATIC_SPACE_SIZE (0x0ffff000) /* 256MB - 1 page */ + +#define BINDING_STACK_START (0x38000000) +#define BINDING_STACK_SIZE (0x07fff000) /* 128MB - 1 page */ + +#define CONTROL_STACK_START (0x40000000) + +/* + * According to /usr/include/sys/signal.h, MINSIGSTKSZ is 32K and + * SIGSTKSZ is 128K. We should account for that appropriately. + */ +#define CONTROL_STACK_SIZE (0x07fdf000) /* 128MB - SIGSTKSZ - 1 page */ + +#define SIGNAL_STACK_START (0x47fe0000) /* One page past the end of the control stack */ +#define SIGNAL_STACK_SIZE SIGSTKSZ + +#define DYNAMIC_0_SPACE_START (SpaceStart_TargetDynamic) +#ifdef GENCGC + +/* + * On Darwin, /usr/lib/dyld appears to always be loaded at address + * #x8fe2e000. Hence, the maximum dynamic space size is 1206050816 + * bytes, or just over 1.150 GB. Set the limit to 1.150 GB. + */ +#define DYNAMIC_SPACE_SIZE (0x47E00000U) /* 1.150GB */ + +#else +#define DYNAMIC_SPACE_SIZE (0x04000000U) /* 64MB */ +#endif + +#define DEFAULT_DYNAMIC_SPACE_SIZE (0x20000000U) /* 512MB */ + +#ifdef LINKAGE_TABLE +#define FOREIGN_LINKAGE_SPACE_START (LinkageSpaceStart) +#define FOREIGN_LINKAGE_SPACE_SIZE (0x100000) /* 1MB */ +#endif + +#endif /*_X86_VALIDATE_DARWIN_H_*/ diff --git a/src/lisp/x86-validate-linux.h b/src/lisp/x86-validate-linux.h new file mode 100644 index 0000000..4a0e46c --- /dev/null +++ b/src/lisp/x86-validate-linux.h @@ -0,0 +1,64 @@ +/* + * + * This code was written as part of the CMU Common Lisp project at + * Carnegie Mellon University, and has been placed in the public domain. + * + */ + +#ifndef _X86_VALIDATE_LINUX_H_ +#define _X86_VALIDATE_LINUX_H_ + +/* + * Also look in compiler/x86/parms.lisp for some of the parameters. + * + * Address map: + * + * Linux: + * 0x00000000->0x08000000 128M Unused. + * 0x08000000->0x10000000 128M C program and memory allocation. + * 0x10000000->0x20000000 256M Read-Only Space. + * 0x20000000->0x28000000 128M Binding stack growing up. + * 0x28000000->0x38000000 256M Static Space. + * 0x38000000->0x40000000 128M Control stack growing down. + * 0x40000000->0x48000000 128M Reserved for shared libraries. + * 0x58000000->0x58100000 16M Foreign Linkage Table + * 0x58100000->0xBE000000 1631M Dynamic Space. + * 0xBFFF0000->0xC0000000 Unknown Linux mapping + * + * (Note: 0x58000000 allows us to run on a Linux system on an AMD + * x86-64. Hence we have a gap of unused memory starting at + * 0x48000000.) + */ + +#define READ_ONLY_SPACE_START (SpaceStart_TargetReadOnly) +#define READ_ONLY_SPACE_SIZE (0x0ffff000) /* 256MB - 1 page */ + +#define STATIC_SPACE_START (SpaceStart_TargetStatic) +#define STATIC_SPACE_SIZE (0x0ffff000) /* 256MB - 1 page */ + +#define BINDING_STACK_START (0x20000000) +#define BINDING_STACK_SIZE (0x07fff000) /* 128MB - 1 page */ + +#define CONTROL_STACK_START 0x38000000 +#define CONTROL_STACK_SIZE (0x07fff000 - 8192) + +#define SIGNAL_STACK_START CONTROL_STACK_END +#define SIGNAL_STACK_SIZE SIGSTKSZ + +#define DYNAMIC_0_SPACE_START (SpaceStart_TargetDynamic) + +#ifdef GENCGC +#define DYNAMIC_SPACE_SIZE (0x66000000) /* 1.632GB */ +#else +#define DYNAMIC_SPACE_SIZE (0x04000000) /* 64MB */ +#endif + +#define DEFAULT_DYNAMIC_SPACE_SIZE (0x20000000) /* 512MB */ + +#ifdef LINKAGE_TABLE +#define FOREIGN_LINKAGE_SPACE_START (LinkageSpaceStart) +#define FOREIGN_LINKAGE_SPACE_SIZE (0x100000) /* 1MB */ +#endif + +#endif + diff --git a/src/lisp/x86-validate-solaris.h b/src/lisp/x86-validate-solaris.h new file mode 100644 index 0000000..32e3a2f --- /dev/null +++ b/src/lisp/x86-validate-solaris.h @@ -0,0 +1,60 @@ +/* + * + * This code was written as part of the CMU Common Lisp project at + * Carnegie Mellon University, and has been placed in the public domain. + * + */ + +#ifndef _X86_VALIDATE_SOLARIS_H_ +#define _X86_VALIDATE_SOLARIS_H_ + +/* + * Also look in compiler/x86/parms.lisp for some of the parameters. + * + * The memory map for Solaris/x86 looks roughly like + * + * 0x08045000->0x08050000 C stack? + * 0x08050000-> Code + C heap + * 0x10000000->0x20000000 256 MB read-only space + * 0x20000000->0x28000000 128M Binding stack growing up. + * 0x28000000->0x30000000 256M Static Space. + * 0x30000000->0x31000000 16M Foreign linkage table + * 0x38000000->0x40000000 128M Control stack growing down. + * 0x40000000->0xD0000000 2304M Dynamic Space. + * + * Starting at 0xd0ce0000 there is some mapped anon memory. libc + * seems to start at 0xd0d40000 and other places. Looks like memory + * above 0xd0ffe000 or so is not mapped. + */ + +#define READ_ONLY_SPACE_START (SpaceStart_TargetReadOnly) +#define READ_ONLY_SPACE_SIZE (0x0ffff000) /* 256MB - 1 page */ + +#define STATIC_SPACE_START (SpaceStart_TargetStatic) +#define STATIC_SPACE_SIZE (0x0ffff000) /* 256MB - 1 page */ + +#define BINDING_STACK_START (0x20000000) +#define BINDING_STACK_SIZE (0x07fff000) /* 128MB - 1 page */ + +#define CONTROL_STACK_START 0x38000000 +#define CONTROL_STACK_SIZE (0x07fff000 - 8192) +#define SIGNAL_STACK_START CONTROL_STACK_END +#define SIGNAL_STACK_SIZE SIGSTKSZ + +#define DYNAMIC_0_SPACE_START (SpaceStart_TargetDynamic) + +#ifdef GENCGC +#define DYNAMIC_SPACE_SIZE (0x90000000) /* 2.304GB */ +#else +#define DYNAMIC_SPACE_SIZE (0x04000000) /* 64MB */ +#endif + +#define DEFAULT_DYNAMIC_SPACE_SIZE (0x20000000) /* 512MB */ + +#ifdef LINKAGE_TABLE +#define FOREIGN_LINKAGE_SPACE_START (LinkageSpaceStart) +#define FOREIGN_LINKAGE_SPACE_SIZE (0x100000) /* 1MB */ +#endif + +#endif + diff --git a/src/lisp/x86-validate.h b/src/lisp/x86-validate.h index 5580401..8db3bcb 100644 --- a/src/lisp/x86-validate.h +++ b/src/lisp/x86-validate.h @@ -8,6 +8,14 @@ #ifndef _X86_VALIDATE_H_ #define _X86_VALIDATE_H_ +#if defined(__linux__) +#include "x86-validate-linux.h" +#endif + +#if defined(DARWIN) +#include "x86-validate-darwin.h" +#endif + /* * Also look in compiler/x86/parms.lisp for some of the parameters. * @@ -119,7 +127,7 @@ #define DEFAULT_DYNAMIC_SPACE_SIZE (0x20000000) /* 512MB */ #endif -#if defined(__NetBSD__) || defined(DARWIN) +#if defined(__NetBSD__) #define READ_ONLY_SPACE_START (SpaceStart_TargetReadOnly) #define READ_ONLY_SPACE_SIZE (0x0ffff000) /* 256MB - 1 page */ @@ -130,73 +138,26 @@ #define BINDING_STACK_SIZE (0x07fff000) /* 128MB - 1 page */ #define CONTROL_STACK_START (0x40000000) -#if defined(DARWIN) -/* - * According to /usr/include/sys/signal.h, MINSIGSTKSZ is 32K and - * SIGSTKSZ is 128K. We should account for that appropriately. - */ -#define CONTROL_STACK_SIZE (0x07fdf000) /* 128MB - SIGSTKSZ - 1 page */ -#define SIGNAL_STACK_START (0x47fe0000) /* One page past the end of the control stack */ -#define SIGNAL_STACK_SIZE SIGSTKSZ -#else #define CONTROL_STACK_SIZE (0x07fd8000) /* 128MB - SIGSTKSZ */ #define SIGNAL_STACK_START (0x47fd8000) #define SIGNAL_STACK_SIZE SIGSTKSZ -#endif #define DYNAMIC_0_SPACE_START (SpaceStart_TargetDynamic) #ifdef GENCGC -#if defined(DARWIN) -/* - * On Darwin, /usr/lib/dyld appears to always be loaded at address - * #x8fe2e000. Hence, the maximum dynamic space size is 1206050816 - * bytes, or just over 1.150 GB. Set the limit to 1.150 GB. - */ -#define DYNAMIC_SPACE_SIZE (0x47E00000U) /* 1.150GB */ -#else #define DYNAMIC_SPACE_SIZE (0x67800000U) /* 1.656GB */ -#endif #else #define DYNAMIC_SPACE_SIZE (0x04000000U) /* 64MB */ #endif + #define DEFAULT_DYNAMIC_SPACE_SIZE (0x20000000U) /* 512MB */ #ifdef LINKAGE_TABLE #define FOREIGN_LINKAGE_SPACE_START (LinkageSpaceStart) #define FOREIGN_LINKAGE_SPACE_SIZE (0x100000) /* 1MB */ #endif -#endif /* __NetBSD__ || DARWIN */ - -#ifdef __linux__ -#define READ_ONLY_SPACE_START (SpaceStart_TargetReadOnly) -#define READ_ONLY_SPACE_SIZE (0x0ffff000) /* 256MB - 1 page */ - -#define STATIC_SPACE_START (SpaceStart_TargetStatic) -#define STATIC_SPACE_SIZE (0x0ffff000) /* 256MB - 1 page */ - -#define BINDING_STACK_START (0x20000000) -#define BINDING_STACK_SIZE (0x07fff000) /* 128MB - 1 page */ - -#define CONTROL_STACK_START 0x38000000 -#define CONTROL_STACK_SIZE (0x07fff000 - 8192) - -#define SIGNAL_STACK_START CONTROL_STACK_END -#define SIGNAL_STACK_SIZE SIGSTKSZ - -#define DYNAMIC_0_SPACE_START (SpaceStart_TargetDynamic) -#ifdef GENCGC -#define DYNAMIC_SPACE_SIZE (0x66000000) /* 1.632GB */ -#else -#define DYNAMIC_SPACE_SIZE (0x04000000) /* 64MB */ -#endif -#define DEFAULT_DYNAMIC_SPACE_SIZE (0x20000000) /* 512MB */ -#ifdef LINKAGE_TABLE -#define FOREIGN_LINKAGE_SPACE_START (LinkageSpaceStart) -#define FOREIGN_LINKAGE_SPACE_SIZE (0x100000) /* 1MB */ -#endif -#endif +#endif /* __NetBSD__ || DARWIN */ #ifdef SOLARIS /* commit 7ce792af9ca1d7afc9ffec3b85e2b996191e6d4c Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Sep 1 11:05:15 2012 -0700 Update from logs. diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt index 188479c..827a741 100644 --- a/src/general-info/release-20d.txt +++ b/src/general-info/release-20d.txt @@ -52,7 +52,9 @@ New in this release: happens and now matches how ppc and sparc behave. * OSX Lion and XCode 4 can now compile cmucl without problems. * OSX 10.4 is no longer supported. - + * Micro optimizations for floats: 2*x -> x+x and x/2^n -> + (2^(n))*x. + * ANSI compliance fixes: * CMUCL was not printing pathnames like (make-pathname :directory '(:absolute "tmp" "" "/")) correctly. This is now printed using @@ -88,6 +90,8 @@ New in this release: external format. It defaulted to using *DEFAULT-EXTERNAL-FORMAT* instead of the format used when compiling the file. + * Minor build issue in CLM debugger interface due to USE-PACKAGE + no longer having special compiler treatment. * Trac Tickets: * #50: Print/read error with make-pathname. @@ -100,9 +104,6 @@ New in this release: * Other changes: * The layout of the cmucl directories has been changed. - * On darwin/x86, gcc-4.2 is explicitly used in case Xcode 4 is - installed. CMUCL doesn't run correctly when built with gcc/llvm - in Xcode 4. * Add -R option to build.sh to force recompiling the C runtime. (Default it to compile only what is changed.) * Add -R option to build-all.sh to force recompiling the C commit eeab7066adf9381bb734240b01d5c715a17ddf08 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Sep 1 10:46:55 2012 -0700 Clean up RCS ids * Get rid of the RCS Header stuff. They're meaningless in git. * Add public domain comment to some of the files if the only comment was the RCS header. diff --git a/src/lisp/Darwin-os.c b/src/lisp/Darwin-os.c index f878a84..c18d47f 100644 --- a/src/lisp/Darwin-os.c +++ b/src/lisp/Darwin-os.c @@ -14,8 +14,6 @@ * Frobbed for OpenBSD by Pierre R. Mai, 2001. * Frobbed for Darwin by Pierre R. Mai, 2003. * - * $Header: /project/cmucl/cvsroot/src/lisp/Darwin-os.c,v 1.16.4.3 2009-03-18 15:37:29 rtoy Exp $ - * */ #include <stdio.h> diff --git a/src/lisp/Darwin-os.h b/src/lisp/Darwin-os.h index 0ea24f4..85991a5 100644 --- a/src/lisp/Darwin-os.h +++ b/src/lisp/Darwin-os.h @@ -1,7 +1,5 @@ /* - $Header: /project/cmucl/cvsroot/src/lisp/Darwin-os.h,v 1.7 2008-01-03 11:41:54 cshapiro Exp $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/FreeBSD-os.c b/src/lisp/FreeBSD-os.c index 7a06222..e42ea5b 100644 --- a/src/lisp/FreeBSD-os.c +++ b/src/lisp/FreeBSD-os.c @@ -12,8 +12,6 @@ * Much hacked by Paul Werkowski * GENCGC support by Douglas Crosher, 1996, 1997. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/FreeBSD-os.c,v 1.38 2011/09/01 05:18:26 rtoy Exp $ - * */ #include "os.h" diff --git a/src/lisp/FreeBSD-os.h b/src/lisp/FreeBSD-os.h index 7150316..3e1aee6 100644 --- a/src/lisp/FreeBSD-os.h +++ b/src/lisp/FreeBSD-os.h @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/FreeBSD-os.h,v 1.23 2009/01/20 04:45:18 agoncharov Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/Linux-os.c b/src/lisp/Linux-os.c index 8f85101..296ff2a 100644 --- a/src/lisp/Linux-os.c +++ b/src/lisp/Linux-os.c @@ -15,8 +15,6 @@ * GENCGC support by Douglas Crosher, 1996, 1997. * Alpha support by Julian Dolby, 1999. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Linux-os.c,v 1.52 2011/09/01 05:18:26 rtoy Exp $ - * */ #include <stdio.h> diff --git a/src/lisp/Linux-os.h b/src/lisp/Linux-os.h index b00e454..3ab1877 100644 --- a/src/lisp/Linux-os.h +++ b/src/lisp/Linux-os.h @@ -1,4 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Linux-os.h,v 1.30 2009/11/02 15:05:07 rtoy Rel $ +/* This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/NetBSD-os.c b/src/lisp/NetBSD-os.c index 2cc359e..e73d693 100644 --- a/src/lisp/NetBSD-os.c +++ b/src/lisp/NetBSD-os.c @@ -15,7 +15,6 @@ * Frobbed for OpenBSD by Pierre R. Mai, 2001. * Frobbed for NetBSD by Pierre R. Mai, 2002. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/NetBSD-os.c,v 1.20 2011/09/01 05:18:26 rtoy Exp $ * */ diff --git a/src/lisp/NetBSD-os.h b/src/lisp/NetBSD-os.h index 497429a..e2a8fe8 100644 --- a/src/lisp/NetBSD-os.h +++ b/src/lisp/NetBSD-os.h @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/NetBSD-os.h,v 1.9 2009/08/30 19:17:55 rswindells Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/OpenBSD-os.c b/src/lisp/OpenBSD-os.c index 40b2a70..088d96a 100644 --- a/src/lisp/OpenBSD-os.c +++ b/src/lisp/OpenBSD-os.c @@ -13,8 +13,6 @@ * GENCGC support by Douglas Crosher, 1996, 1997. * Frobbed for OpenBSD by Pierre R. Mai, 2001. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/OpenBSD-os.c,v 1.11 2011/09/01 05:18:26 rtoy Exp $ - * */ #include <stdio.h> diff --git a/src/lisp/OpenBSD-os.h b/src/lisp/OpenBSD-os.h index c69dcdb..dac5e15 100644 --- a/src/lisp/OpenBSD-os.h +++ b/src/lisp/OpenBSD-os.h @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/OpenBSD-os.h,v 1.6 2007/06/12 03:21:46 cshapiro Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/alloc.c b/src/lisp/alloc.c index ed181d0..074203a 100644 --- a/src/lisp/alloc.c +++ b/src/lisp/alloc.c @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alloc.c,v 1.12 2009/06/11 16:04:01 rtoy Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #include <stdio.h> #include <string.h> diff --git a/src/lisp/alloc.h b/src/lisp/alloc.h index 5df9fcb..040393e 100644 --- a/src/lisp/alloc.h +++ b/src/lisp/alloc.h @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alloc.h,v 1.3 2009/01/20 03:58:11 agoncharov Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _ALLOC_H_ #define _ALLOC_H_ diff --git a/src/lisp/alpha-arch.c b/src/lisp/alpha-arch.c index 91af4b1..21f516d 100644 --- a/src/lisp/alpha-arch.c +++ b/src/lisp/alpha-arch.c @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-arch.c,v 1.11 2008/03/19 09:17:10 cshapiro Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/alpha-lispregs.h b/src/lisp/alpha-lispregs.h index 9900cf0..25a745a 100644 --- a/src/lisp/alpha-lispregs.h +++ b/src/lisp/alpha-lispregs.h @@ -1,4 +1,10 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-lispregs.h,v 1.4 2005/01/13 19:55:00 fgilham Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ + #ifndef _ALPHA_LISPREGS_H_ #define _ALPHA_LISPREGS_H_ diff --git a/src/lisp/alpha-validate.h b/src/lisp/alpha-validate.h index 6e7206c..65dac94 100644 --- a/src/lisp/alpha-validate.h +++ b/src/lisp/alpha-validate.h @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-validate.h,v 1.4 2005/01/13 19:55:00 fgilham Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/amd64-arch.c b/src/lisp/amd64-arch.c index 95a6c95..a6aa496 100644 --- a/src/lisp/amd64-arch.c +++ b/src/lisp/amd64-arch.c @@ -1,6 +1,5 @@ /* x86-arch.c -*- Mode: C; comment-column: 40 -*- * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/amd64-arch.c,v 1.11 2009/11/02 15:05:07 rtoy Rel $ * */ diff --git a/src/lisp/amd64-lispregs.h b/src/lisp/amd64-lispregs.h index aa5c67a..16de1da 100644 --- a/src/lisp/amd64-lispregs.h +++ b/src/lisp/amd64-lispregs.h @@ -1,5 +1,5 @@ /* x86-lispregs.h -*- Mode: C; -*- - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/amd64-lispregs.h,v 1.6 2009/11/02 15:05:07 rtoy Rel $ + */ /* These register names and offsets correspond to definitions diff --git a/src/lisp/arch.h b/src/lisp/arch.h index 3c6dd9f..66ab511 100644 --- a/src/lisp/arch.h +++ b/src/lisp/arch.h @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/arch.h,v 1.10 2008/11/12 15:04:24 rtoy Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/backtrace.c b/src/lisp/backtrace.c index cb9cd8c..871b692 100644 --- a/src/lisp/backtrace.c +++ b/src/lisp/backtrace.c @@ -1,5 +1,4 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/backtrace.c,v 1.21 2010/02/01 19:27:07 rtoy Rel $ - * +/* * Simple backtrace facility. More or less from Rob's lisp version. */ diff --git a/src/lisp/breakpoint.c b/src/lisp/breakpoint.c index bd9025d..b9c56fb 100644 --- a/src/lisp/breakpoint.c +++ b/src/lisp/breakpoint.c @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/breakpoint.c,v 1.26 2008/09/12 21:09:07 rtoy Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/breakpoint.h b/src/lisp/breakpoint.h index c8b8574..a2113ab 100644 --- a/src/lisp/breakpoint.h +++ b/src/lisp/breakpoint.h @@ -1,6 +1,9 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/breakpoint.h,v 1.4 2005/09/15 18:26:51 rtoy Rel $ - */ + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _BREAKPOINT_H_ #define _BREAKPOINT_H_ diff --git a/src/lisp/cgc.c b/src/lisp/cgc.c index 2bf5647..1d4ceaa 100644 --- a/src/lisp/cgc.c +++ b/src/lisp/cgc.c @@ -1,5 +1,4 @@ /* cgc.c -*- Mode: C; comment-column: 40; -*- - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/cgc.c,v 1.14 2008/03/19 09:17:10 cshapiro Rel $ * * Conservative Garbage Collector for CMUCL x86. * diff --git a/src/lisp/core.h b/src/lisp/core.h index a2375d5..dcc2b39 100644 --- a/src/lisp/core.h +++ b/src/lisp/core.h @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/core.h,v 1.9 2009/01/20 03:58:11 agoncharov Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _CORE_H_ #define _CORE_H_ diff --git a/src/lisp/coreparse.c b/src/lisp/coreparse.c index bdba500..d9b5006 100644 --- a/src/lisp/coreparse.c +++ b/src/lisp/coreparse.c @@ -1,4 +1,10 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/coreparse.c,v 1.14 2009/01/20 03:58:11 agoncharov Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ + #include <stdio.h> #include <sys/types.h> #include <sys/file.h> diff --git a/src/lisp/dynbind.c b/src/lisp/dynbind.c index 76158b2..60f192b 100644 --- a/src/lisp/dynbind.c +++ b/src/lisp/dynbind.c @@ -1,6 +1,4 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/dynbind.c,v 1.4 2005/09/15 18:26:51 rtoy Rel $ - * * Support for dynamic binding from C. */ diff --git a/src/lisp/dynbind.h b/src/lisp/dynbind.h index 67aefb8..b518b4e 100644 --- a/src/lisp/dynbind.h +++ b/src/lisp/dynbind.h @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/dynbind.h,v 1.3 2005/09/15 18:26:51 rtoy Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _DYNBIND_H_ #define _DYNBIND_H_ diff --git a/src/lisp/exec-final.c b/src/lisp/exec-final.c index a446964..9501047 100644 --- a/src/lisp/exec-final.c +++ b/src/lisp/exec-final.c @@ -1,8 +1,6 @@ /* * Variables for executable support. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/exec-final.c,v 1.1 2010/07/29 01:51:12 rtoy Rel $ - * */ /* diff --git a/src/lisp/exec-init.c b/src/lisp/exec-init.c index a5cf340..8a3cc14 100644 --- a/src/lisp/exec-init.c +++ b/src/lisp/exec-init.c @@ -1,8 +1,6 @@ /* * Variables for executable support. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/exec-init.c,v 1.2 2010/07/20 23:34:09 rtoy Rel $ - * */ /* See lisp.c for documentation */ diff --git a/src/lisp/gc.c b/src/lisp/gc.c index b4879cc..dc75e15 100644 --- a/src/lisp/gc.c +++ b/src/lisp/gc.c @@ -1,8 +1,6 @@ /* * Stop and Copy GC based on Cheney's algorithm. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.c,v 1.26 2007/01/01 11:53:03 cshapiro Rel $ - * * Written by Christopher Hoover. */ diff --git a/src/lisp/gc.h b/src/lisp/gc.h index 33ac1f3..35c3974 100644 --- a/src/lisp/gc.h +++ b/src/lisp/gc.h @@ -1,7 +1,6 @@ /* * Header file for GC * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gc.h,v 1.4 2005/09/15 18:26:51 rtoy Rel $ */ #ifndef _GC_H_ diff --git a/src/lisp/gencgc.c b/src/lisp/gencgc.c index 905f551..c2129e2 100644 --- a/src/lisp/gencgc.c +++ b/src/lisp/gencgc.c @@ -7,8 +7,6 @@ * * Douglas Crosher, 1996, 1997, 1998, 1999. * - * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.c,v 1.112 2011-01-09 00:12:36 rtoy Exp $ - * */ #include <limits.h> diff --git a/src/lisp/gencgc.h b/src/lisp/gencgc.h index 6dabc0c..f5273b5 100644 --- a/src/lisp/gencgc.h +++ b/src/lisp/gencgc.h @@ -7,7 +7,6 @@ * * Douglas Crosher, 1996, 1997. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.h,v 1.17 2011/01/09 00:12:36 rtoy Exp $ * */ diff --git a/src/lisp/globals.c b/src/lisp/globals.c index 471da1f..18b4556 100644 --- a/src/lisp/globals.c +++ b/src/lisp/globals.c @@ -1,5 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/globals.c,v 1.5 2005/09/15 18:26:51 rtoy Rel $ */ +/* + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ /* Variables everybody needs to look at or frob on. */ #include <stdio.h> diff --git a/src/lisp/globals.h b/src/lisp/globals.h index bfd8c6d..c382e48 100644 --- a/src/lisp/globals.h +++ b/src/lisp/globals.h @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/globals.h,v 1.13 2009/11/02 15:05:07 rtoy Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _GLOBALS_H_ #define _GLOBALS_H_ diff --git a/src/lisp/hppa-arch.c b/src/lisp/hppa-arch.c index 5a87f4c..73dbc13 100644 --- a/src/lisp/hppa-arch.c +++ b/src/lisp/hppa-arch.c @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/hppa-arch.c,v 1.10 2005/09/15 18:26:51 rtoy Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/hppa-lispregs.h b/src/lisp/hppa-lispregs.h index d87d907..48fee8f 100644 --- a/src/lisp/hppa-lispregs.h +++ b/src/lisp/hppa-lispregs.h @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/hppa-lispregs.h,v 1.3 2005/01/13 19:55:00 fgilham Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _HPPA_LISPREGS_H_ #define _HPPA_LISPREGS_H_ diff --git a/src/lisp/hppa-validate.h b/src/lisp/hppa-validate.h index be42ded..21993d2 100644 --- a/src/lisp/hppa-validate.h +++ b/src/lisp/hppa-validate.h @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/hppa-validate.h,v 1.5 2005/01/13 19:55:00 fgilham Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/hpux-os.c b/src/lisp/hpux-os.c index 4a614f6..3957566 100644 --- a/src/lisp/hpux-os.c +++ b/src/lisp/hpux-os.c @@ -1,5 +1,4 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/hpux-os.c,v 1.11 2011/09/01 05:18:26 rtoy Exp $ * * OS-dependent routines. This file (along with os.h) exports an * OS-independent interface to the operating system VM facilities. diff --git a/src/lisp/hpux-os.h b/src/lisp/hpux-os.h index e2033ce..39db864 100644 --- a/src/lisp/hpux-os.h +++ b/src/lisp/hpux-os.h @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/hpux-os.h,v 1.3 2005/01/13 19:55:00 fgilham Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/interr.c b/src/lisp/interr.c index a203d57..5b43b6a 100644 --- a/src/lisp/interr.c +++ b/src/lisp/interr.c @@ -1,6 +1,4 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interr.c,v 1.10 2009/06/11 16:04:01 rtoy Rel $ - * * Stuff to handle internal errors. * */ diff --git a/src/lisp/interr.h b/src/lisp/interr.h index a9d8275..29f4eb7 100644 --- a/src/lisp/interr.h +++ b/src/lisp/interr.h @@ -1,6 +1,9 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interr.h,v 1.4 2005/09/15 18:26:51 rtoy Rel $ - */ + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _INTERR_H_ #define _INTERR_H_ diff --git a/src/lisp/interrupt.c b/src/lisp/interrupt.c index 25fb2f6..0bbff65 100644 --- a/src/lisp/interrupt.c +++ b/src/lisp/interrupt.c @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interrupt.c,v 1.60 2009/11/02 15:05:07 rtoy Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ /* Interrupt handling magic. */ diff --git a/src/lisp/interrupt.h b/src/lisp/interrupt.h index ecd7565..7889233 100644 --- a/src/lisp/interrupt.h +++ b/src/lisp/interrupt.h @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/interrupt.h,v 1.11 2007/01/01 11:53:03 cshapiro Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _INTERRUPT_H_ #define _INTERRUPT_H_ diff --git a/src/lisp/irix-os.c b/src/lisp/irix-os.c index 97d6a05..ededc66 100644 --- a/src/lisp/irix-os.c +++ b/src/lisp/irix-os.c @@ -1,6 +1,4 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/irix-os.c,v 1.7 2011/09/01 05:18:26 rtoy Exp $ - * * OS-dependent routines. This file (along with os.h) exports an * OS-independent interface to the operating system VM facilities. * Suprisingly, this interface looks a lot like the Mach interface diff --git a/src/lisp/irix-os.h b/src/lisp/irix-os.h index 490458f..6402698 100644 --- a/src/lisp/irix-os.h +++ b/src/lisp/irix-os.h @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/irix-os.h,v 1.4 2005/01/13 19:55:00 fgilham Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/lisp.c b/src/lisp/lisp.c index 4a1ed35..7b08fd1 100644 --- a/src/lisp/lisp.c +++ b/src/lisp/lisp.c @@ -1,8 +1,6 @@ /* * main() entry point for a stand alone lisp image. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.c,v 1.84 2011/09/01 05:18:26 rtoy Exp $ - * */ #include <stdio.h> diff --git a/src/lisp/lisp.h b/src/lisp/lisp.h index 9b48af7..70a2c7d 100644 --- a/src/lisp/lisp.h +++ b/src/lisp/lisp.h @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lisp.h,v 1.12 2010/10/10 14:54:52 rtoy Exp $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _LISP_H_ #define _LISP_H_ diff --git a/src/lisp/lispregs.h b/src/lisp/lispregs.h index 1f9633a..be85680 100644 --- a/src/lisp/lispregs.h +++ b/src/lisp/lispregs.h @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lispregs.h,v 1.8 2005/01/13 19:55:00 fgilham Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _LISPREGS_H_ #define _LISPREGS_H_ diff --git a/src/lisp/mach-o.c b/src/lisp/mach-o.c index 441358e..b7ab848 100644 --- a/src/lisp/mach-o.c +++ b/src/lisp/mach-o.c @@ -1,5 +1,4 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mach-o.c,v 1.7 2010/08/02 21:59:43 rtoy Rel $ * * This code was written by Raymond Toy as part of CMU Common Lisp and * has been placed in the public domain. diff --git a/src/lisp/mach-os.c b/src/lisp/mach-os.c index 0b08cdc..5620430 100644 --- a/src/lisp/mach-os.c +++ b/src/lisp/mach-os.c @@ -1,6 +1,4 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mach-os.c,v 1.9 2011/09/01 05:18:26 rtoy Exp $ - * * OS-dependent routines. This file (along with os.h) exports an * OS-independent interface to the operating system VM facilities. * Suprisingly, this interface looks a lot like the Mach interface diff --git a/src/lisp/mach-os.h b/src/lisp/mach-os.h index e11825c..d24b1ad 100644 --- a/src/lisp/mach-os.h +++ b/src/lisp/mach-os.h @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mach-os.h,v 1.3 2005/01/13 19:55:00 fgilham Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/mips-arch.c b/src/lisp/mips-arch.c index 003d252..6f324e1 100644 --- a/src/lisp/mips-arch.c +++ b/src/lisp/mips-arch.c @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-arch.c,v 1.12 2008/03/19 09:17:13 cshapiro Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/mips-lispregs.h b/src/lisp/mips-lispregs.h index cb89b5e..2109a9c 100644 --- a/src/lisp/mips-lispregs.h +++ b/src/lisp/mips-lispregs.h @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-lispregs.h,v 1.2 2005/01/13 19:55:00 fgilham Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _MIPS_LISPREGS_H_ #define _MIPS_LISPREGS_H_ diff --git a/src/lisp/mips-validate.h b/src/lisp/mips-validate.h index 8eff0d0..7cd1918 100644 --- a/src/lisp/mips-validate.h +++ b/src/lisp/mips-validate.h @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-validate.h,v 1.4 2005/01/13 19:55:00 fgilham Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/monitor.c b/src/lisp/monitor.c index 64e44f5..8d3bd35 100644 --- a/src/lisp/monitor.c +++ b/src/lisp/monitor.c @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/monitor.c,v 1.22 2010/01/26 18:54:18 rtoy Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #include <stdio.h> #include <sys/types.h> diff --git a/src/lisp/monitor.h b/src/lisp/monitor.h index 3670ebe..e93f0a7 100644 --- a/src/lisp/monitor.h +++ b/src/lisp/monitor.h @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/monitor.h,v 1.2 2005/01/13 19:55:00 fgilham Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _MONITOR_H_ #define _MONITOR_H_ diff --git a/src/lisp/os-common.c b/src/lisp/os-common.c index 9ea6f46..2ba4bfd 100755 --- a/src/lisp/os-common.c +++ b/src/lisp/os-common.c @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/os-common.c,v 1.33 2010/12/22 02:12:52 rtoy Exp $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/os.h b/src/lisp/os.h index 5d43446..daba404 100644 --- a/src/lisp/os.h +++ b/src/lisp/os.h @@ -1,6 +1,4 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/os.h,v 1.28 2011/09/01 05:18:26 rtoy Exp $ - * * Common interface for os-dependent functions. * */ diff --git a/src/lisp/osf1-os.c b/src/lisp/osf1-os.c index af10b8e..eea1ce4 100644 --- a/src/lisp/osf1-os.c +++ b/src/lisp/osf1-os.c @@ -1,5 +1,4 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/osf1-os.c,v 1.7 2011/09/01 05:18:26 rtoy Exp $ * * OS-dependent routines. This file (along with os.h) exports an * OS-independent interface to the operating system VM facilities. diff --git a/src/lisp/osf1-os.h b/src/lisp/osf1-os.h index 2fdf0ed..2d18a16 100644 --- a/src/lisp/osf1-os.h +++ b/src/lisp/osf1-os.h @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/osf1-os.h,v 1.3 2005/01/13 19:55:00 fgilham Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/parse.c b/src/lisp/parse.c index 7fbaec0..505ad07 100644 --- a/src/lisp/parse.c +++ b/src/lisp/parse.c @@ -1,4 +1,10 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/parse.c,v 1.12 2008/03/19 09:17:13 cshapiro Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ + #include <stdio.h> #include <ctype.h> #include <signal.h> diff --git a/src/lisp/parse.h b/src/lisp/parse.h index 452a53f..c3ff61e 100644 --- a/src/lisp/parse.h +++ b/src/lisp/parse.h @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/parse.h,v 1.2 2005/01/13 19:55:00 fgilham Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _PARSE_H_ #define _PARSE_H_ diff --git a/src/lisp/ppc-arch.c b/src/lisp/ppc-arch.c index bda9499..6c2ef6b 100644 --- a/src/lisp/ppc-arch.c +++ b/src/lisp/ppc-arch.c @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/ppc-arch.c,v 1.14 2008/11/12 15:04:24 rtoy Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/ppc-validate.h b/src/lisp/ppc-validate.h index 444e2aa..40530f7 100644 --- a/src/lisp/ppc-validate.h +++ b/src/lisp/ppc-validate.h @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/ppc-validate.h,v 1.9 2006/11/30 02:34:24 rtoy Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/print.c b/src/lisp/print.c index f8a9086..34aa0ce 100644 --- a/src/lisp/print.c +++ b/src/lisp/print.c @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.c,v 1.30 2010/10/22 04:07:33 rtoy Exp $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #include <stdio.h> #include <string.h> diff --git a/src/lisp/print.h b/src/lisp/print.h index 8347aca..79a7cf9 100644 --- a/src/lisp/print.h +++ b/src/lisp/print.h @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/print.h,v 1.2 2005/01/13 19:55:00 fgilham Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _PRINT_H_ #define _PRINT_H_ diff --git a/src/lisp/purify.c b/src/lisp/purify.c index a80e07c..c9a1bb7 100644 --- a/src/lisp/purify.c +++ b/src/lisp/purify.c @@ -10,8 +10,6 @@ and x86/GENCGC stack scavenging, by Douglas Crosher, 1996, 1997, 1998. - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.c,v 1.43 2009/06/11 16:04:01 rtoy Rel $ - */ #include <stdio.h> #include <sys/types.h> diff --git a/src/lisp/purify.h b/src/lisp/purify.h index 5240d58..78c472a 100644 --- a/src/lisp/purify.h +++ b/src/lisp/purify.h @@ -1,6 +1,9 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.h,v 1.2 2005/01/13 19:55:00 fgilham Rel $ - */ + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _PURIFY_H_ #define _PURIFY_H_ diff --git a/src/lisp/regnames.c b/src/lisp/regnames.c index b88ca36..5d43253 100644 --- a/src/lisp/regnames.c +++ b/src/lisp/regnames.c @@ -1,4 +1,10 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/regnames.c,v 1.1 1992/07/28 20:15:27 wlott Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ + #include "lispregs.h" diff --git a/src/lisp/runprog.c b/src/lisp/runprog.c index ad5d00c..4832ff8 100644 --- a/src/lisp/runprog.c +++ b/src/lisp/runprog.c @@ -1,6 +1,4 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/runprog.c,v 1.7 2005/09/15 18:26:52 rtoy Rel $ - * * Support for run-program. * */ diff --git a/src/lisp/save.c b/src/lisp/save.c index f6fb4bd..27b03ea 100644 --- a/src/lisp/save.c +++ b/src/lisp/save.c @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/save.c,v 1.29 2010/09/24 04:08:39 rtoy Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/save.h b/src/lisp/save.h index 1f10ace..eaeed21 100644 --- a/src/lisp/save.h +++ b/src/lisp/save.h @@ -1,6 +1,9 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/save.h,v 1.4 2008/12/10 16:16:11 rtoy Rel $ - */ + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _SAVE_H_ #define _SAVE_H_ diff --git a/src/lisp/search.c b/src/lisp/search.c index a97c756..234207e 100644 --- a/src/lisp/search.c +++ b/src/lisp/search.c @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/search.c,v 1.4 2005/09/15 18:26:52 rtoy Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/search.h b/src/lisp/search.h index e67b89a..9393f2c 100644 --- a/src/lisp/search.h +++ b/src/lisp/search.h @@ -1,6 +1,9 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/search.h,v 1.2 2005/09/15 18:26:52 rtoy Rel $ - */ + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _SEARCH_H_ #define _SEARCH_H_ diff --git a/src/lisp/solaris-os.c b/src/lisp/solaris-os.c index b0dfc4c..b28c3cc 100644 --- a/src/lisp/solaris-os.c +++ b/src/lisp/solaris-os.c @@ -1,6 +1,4 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/solaris-os.c,v 1.30 2011/09/01 05:18:26 rtoy Exp $ - * * OS-dependent routines. This file (along with os.h) exports an * OS-independent interface to the operating system VM facilities. * Suprisingly, this interface looks a lot like the Mach interface diff --git a/src/lisp/sparc-arch.c b/src/lisp/sparc-arch.c index 5027179..761a794 100644 --- a/src/lisp/sparc-arch.c +++ b/src/lisp/sparc-arch.c @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sparc-arch.c,v 1.30 2008/11/12 15:04:24 rtoy Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/sparc-lispregs.h b/src/lisp/sparc-lispregs.h index e74547a..67a81e3 100644 --- a/src/lisp/sparc-lispregs.h +++ b/src/lisp/sparc-lispregs.h @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sparc-lispregs.h,v 1.10 2005/09/15 18:26:52 rtoy Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _SPARC_LISPREGS_H_ #define _SPARC_LISPREGS_H_ diff --git a/src/lisp/sparc-validate.h b/src/lisp/sparc-validate.h index 7ef7af4..0a6a6ce 100644 --- a/src/lisp/sparc-validate.h +++ b/src/lisp/sparc-validate.h @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sparc-validate.h,v 1.21 2005/09/15 18:26:52 rtoy Rel $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/sunos-os.c b/src/lisp/sunos-os.c index ccbabd8..d9b47fd 100644 --- a/src/lisp/sunos-os.c +++ b/src/lisp/sunos-os.c @@ -1,6 +1,4 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sunos-os.c,v 1.13 2011/09/01 05:18:26 rtoy Exp $ - * * OS-dependent routines. This file (along with os.h) exports an * OS-independent interface to the operating system VM facilities. * Suprisingly, this interface looks a lot like the Mach interface diff --git a/src/lisp/sunos-os.h b/src/lisp/sunos-os.h index 4f59a1a..4cb2904 100644 --- a/src/lisp/sunos-os.h +++ b/src/lisp/sunos-os.h @@ -1,7 +1,5 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/sunos-os.h,v 1.14 2010/12/22 02:12:52 rtoy Exp $ - This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. diff --git a/src/lisp/time.c b/src/lisp/time.c index 4af9b16..51ef62e 100644 --- a/src/lisp/time.c +++ b/src/lisp/time.c @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/time.c,v 1.3 2005/09/15 18:26:52 rtoy Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ /* Time support routines that are easier to do in C then in lisp. */ diff --git a/src/lisp/undefineds.c b/src/lisp/undefineds.c index b4d7002..e78e0cb 100644 --- a/src/lisp/undefineds.c +++ b/src/lisp/undefineds.c @@ -1,5 +1,10 @@ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ /* Routines that must be linked into the core for lisp to work. */ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/undefineds.c,v 1.7 2005/09/15 18:26:53 rtoy Rel $ */ #ifdef sun #ifndef MACH diff --git a/src/lisp/undefineds.h b/src/lisp/undefineds.h index 6d47eda..017da61 100644 --- a/src/lisp/undefineds.h +++ b/src/lisp/undefineds.h @@ -1,5 +1,4 @@ /* Routines that must be linked into the core for lisp to work. */ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/undefineds.h,v 1.41 2008/10/07 20:32:03 rtoy Rel $ */ /* * Do not wrap this inside an #ifndef/#endif! diff --git a/src/lisp/validate.c b/src/lisp/validate.c index efe7273..7872a12 100644 --- a/src/lisp/validate.c +++ b/src/lisp/validate.c @@ -1,6 +1,4 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/validate.c,v 1.25 2007/07/09 16:04:12 fgilham Rel $ - * * Memory Validation */ diff --git a/src/lisp/validate.h b/src/lisp/validate.h index 1cb91ae..784258e 100644 --- a/src/lisp/validate.h +++ b/src/lisp/validate.h @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/validate.h,v 1.6 2005/01/13 19:55:01 fgilham Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _VALIDATE_H_ #define _VALIDATE_H_ diff --git a/src/lisp/vars.c b/src/lisp/vars.c index 379a886..6ce216a 100644 --- a/src/lisp/vars.c +++ b/src/lisp/vars.c @@ -1,4 +1,10 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/vars.c,v 1.7 2008/03/19 09:17:13 cshapiro Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ + #include <stdio.h> #include <sys/types.h> #include <stdlib.h> diff --git a/src/lisp/vars.h b/src/lisp/vars.h index 73898c4..cbe5934 100644 --- a/src/lisp/vars.h +++ b/src/lisp/vars.h @@ -1,4 +1,9 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/vars.h,v 1.3 2005/09/15 18:26:53 rtoy Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _VARS_H_ #define _VARS_H_ diff --git a/src/lisp/version.c b/src/lisp/version.c index e0f531b..229f965 100644 --- a/src/lisp/version.c +++ b/src/lisp/version.c @@ -1,2 +1,8 @@ -/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/version.c,v 1.1 1992/07/28 20:15:40 wlott Rel $ */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ + int version = VERSION; diff --git a/src/lisp/x86-arch.c b/src/lisp/x86-arch.c index ee38f92..5670334 100644 --- a/src/lisp/x86-arch.c +++ b/src/lisp/x86-arch.c @@ -1,8 +1,9 @@ -/* x86-arch.c -*- Mode: C; comment-column: 40 -*- - * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-arch.c,v 1.43 2010/12/26 16:04:43 rswindells Exp $ - * - */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #include <stdio.h> #include <stdlib.h> diff --git a/src/lisp/x86-lispregs.h b/src/lisp/x86-lispregs.h index 3574f27..aa9608f 100644 --- a/src/lisp/x86-lispregs.h +++ b/src/lisp/x86-lispregs.h @@ -1,6 +1,9 @@ -/* x86-lispregs.h -*- Mode: C; -*- - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-lispregs.h,v 1.16 2010/12/24 06:01:34 rtoy Exp $ - */ +/* + + This code was written as part of the CMU Common Lisp project at + Carnegie Mellon University, and has been placed in the public domain. + +*/ #ifndef _X86_LISPREGS_H_ #define _X86_LISPREGS_H_ diff --git a/src/lisp/x86-validate.h b/src/lisp/x86-validate.h index c49ea50..5580401 100644 --- a/src/lisp/x86-validate.h +++ b/src/lisp/x86-validate.h @@ -3,8 +3,6 @@ * This code was written as part of the CMU Common Lisp project at * Carnegie Mellon University, and has been placed in the public domain. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-validate.h,v 1.34 2010/12/22 05:55:22 rtoy Exp $ - * */ #ifndef _X86_VALIDATE_H_ ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20d.txt | 9 +++-- src/lisp/Darwin-os.c | 2 - src/lisp/Darwin-os.h | 2 - src/lisp/FreeBSD-os.c | 2 - src/lisp/FreeBSD-os.h | 2 - src/lisp/Linux-os.c | 2 - src/lisp/Linux-os.h | 2 +- src/lisp/NetBSD-os.c | 1 - src/lisp/NetBSD-os.h | 2 - src/lisp/OpenBSD-os.c | 2 - src/lisp/OpenBSD-os.h | 2 - src/lisp/alloc.c | 7 +++- src/lisp/alloc.h | 7 +++- src/lisp/alpha-arch.c | 2 - src/lisp/alpha-lispregs.h | 8 ++++- src/lisp/alpha-validate.h | 2 - src/lisp/amd64-arch.c | 1 - src/lisp/amd64-lispregs.h | 2 +- src/lisp/arch.h | 2 - src/lisp/backtrace.c | 3 +- src/lisp/breakpoint.c | 2 - src/lisp/breakpoint.h | 7 +++- src/lisp/cgc.c | 1 - src/lisp/core.h | 7 +++- src/lisp/coreparse.c | 8 ++++- src/lisp/dynbind.c | 2 - src/lisp/dynbind.h | 7 +++- src/lisp/exec-final.c | 2 - src/lisp/exec-init.c | 2 - src/lisp/gc.c | 2 - src/lisp/gc.h | 1 - src/lisp/gencgc.c | 2 - src/lisp/gencgc.h | 1 - src/lisp/globals.c | 6 +++- src/lisp/globals.h | 7 +++- src/lisp/hppa-arch.c | 2 - src/lisp/hppa-lispregs.h | 7 +++- src/lisp/hppa-validate.h | 2 - src/lisp/hpux-os.c | 1 - src/lisp/hpux-os.h | 2 - src/lisp/interr.c | 2 - src/lisp/interr.h | 7 +++- src/lisp/interrupt.c | 7 +++- src/lisp/interrupt.h | 7 +++- src/lisp/irix-os.c | 2 - src/lisp/irix-os.h | 2 - src/lisp/lisp.c | 2 - src/lisp/lisp.h | 7 +++- src/lisp/lispregs.h | 7 +++- src/lisp/mach-o.c | 1 - src/lisp/mach-os.c | 2 - src/lisp/mach-os.h | 2 - src/lisp/mips-arch.c | 2 - src/lisp/mips-lispregs.h | 7 +++- src/lisp/mips-validate.h | 2 - src/lisp/monitor.c | 7 +++- src/lisp/monitor.h | 7 +++- src/lisp/os-common.c | 2 - src/lisp/os.h | 2 - src/lisp/osf1-os.c | 1 - src/lisp/osf1-os.h | 2 - src/lisp/parse.c | 8 ++++- src/lisp/parse.h | 7 +++- src/lisp/ppc-arch.c | 2 - src/lisp/ppc-validate.h | 2 - src/lisp/print.c | 7 +++- src/lisp/print.h | 7 +++- src/lisp/purify.c | 2 - src/lisp/purify.h | 7 +++- src/lisp/regnames.c | 8 ++++- src/lisp/runprog.c | 2 - src/lisp/save.c | 2 - src/lisp/save.h | 7 +++- src/lisp/search.c | 2 - src/lisp/search.h | 7 +++- src/lisp/solaris-os.c | 2 - src/lisp/sparc-arch.c | 2 - src/lisp/sparc-lispregs.h | 7 +++- src/lisp/sparc-validate.h | 2 - src/lisp/sunos-os.c | 2 - src/lisp/sunos-os.h | 2 - src/lisp/time.c | 7 +++- src/lisp/undefineds.c | 7 +++- src/lisp/undefineds.h | 1 - src/lisp/validate.c | 2 - src/lisp/validate.h | 7 +++- src/lisp/vars.c | 8 ++++- src/lisp/vars.h | 7 +++- src/lisp/version.c | 8 ++++- src/lisp/x86-arch.c | 11 +++--- src/lisp/x86-lispregs.h | 9 +++-- src/lisp/x86-validate-darwin.h | 56 +++++++++++++++++++++++++++++++++ src/lisp/x86-validate-linux.h | 64 ++++++++++++++++++++++++++++++++++++++ src/lisp/x86-validate-solaris.h | 60 +++++++++++++++++++++++++++++++++++ src/lisp/x86-validate.h | 63 ++++++------------------------------ 95 files changed, 409 insertions(+), 201 deletions(-) create mode 100644 src/lisp/x86-validate-darwin.h create mode 100644 src/lisp/x86-validate-linux.h create mode 100644 src/lisp/x86-validate-solaris.h hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-08-10-gb6f29d0
by Raymond Toy 28 Aug '12

28 Aug '12

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 b6f29d0ea8a591fde0cd7fdc623bfe8959d87a75 (commit) from ff569406a77867b99256fc829d233478334aaf46 (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 b6f29d0ea8a591fde0cd7fdc623bfe8959d87a75 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Mon Aug 27 23:00:23 2012 -0700 Update to asdf 2.24. diff --git a/src/contrib/asdf/asdf.lisp b/src/contrib/asdf/asdf.lisp index 263bb5e..a97632d 100644 --- a/src/contrib/asdf/asdf.lisp +++ b/src/contrib/asdf/asdf.lisp @@ -1,5 +1,5 @@ ;;; -*- mode: Common-Lisp; Base: 10 ; Syntax: ANSI-Common-Lisp ; coding: utf-8 -*- -;;; This is ASDF 2.23: Another System Definition Facility. +;;; This is ASDF 2.24: Another System Definition Facility. ;;; ;;; Feedback, bug reports, and patches are all welcome: ;;; please mail to <asdf-devel(a)common-lisp.net>. @@ -50,7 +50,7 @@ (cl:in-package :common-lisp-user) #+genera (in-package :future-common-lisp-user) -#-(or abcl allegro clisp clozure cmu cormanlisp ecl gcl genera lispworks mcl sbcl scl xcl) +#-(or abcl allegro clisp clozure cmu cormanlisp ecl gcl genera lispworks mcl mkcl sbcl scl xcl) (error "ASDF is not supported on your implementation. Please help us port it.") ;;;; Create and setup packages in a way that is compatible with hot-upgrade. @@ -71,8 +71,8 @@ (and (= system::*gcl-major-version* 2) (< system::*gcl-minor-version* 7))) (pushnew :gcl-pre2.7 *features*)) - #+(or abcl (and allegro ics) (and clisp unicode) clozure (and cmu unicode) - (and ecl unicode) lispworks (and sbcl sb-unicode) scl) + #+(or abcl (and allegro ics) (and (or clisp cmu ecl mkcl) unicode) + clozure lispworks (and sbcl sb-unicode) scl) (pushnew :asdf-unicode *features*) ;;; make package if it doesn't exist yet. ;;; DEFPACKAGE may cause errors on discrepancies, so we avoid it. @@ -86,6 +86,8 @@ ;;; except that the defun has to be in package asdf. #+ecl (defun use-ecl-byte-compiler-p () (and (member :ecl-bytecmp *features*) t)) #+ecl (unless (use-ecl-byte-compiler-p) (require :cmp)) + #+mkcl (require :cmp) + #+mkcl (setq clos::*redefine-class-in-place* t) ;; Make sure we have strict ANSI class redefinition semantics ;;; Package setup, step 2. (defvar *asdf-version* nil) @@ -116,7 +118,7 @@ ;; "2.345.6" would be a development version in the official upstream ;; "2.345.0.7" would be your seventh local modification of official release 2.345 ;; "2.345.6.7" would be your seventh local modification of development version 2.345.6 - (asdf-version "2.23") + (asdf-version "2.24") (existing-asdf (find-class 'component nil)) (existing-version *asdf-version*) (already-there (equal asdf-version existing-version))) @@ -303,7 +305,7 @@ #:*compile-file-warnings-behaviour* #:*compile-file-failure-behaviour* #:*resolve-symlinks* - #:*require-asdf-operator* + #:*load-system-operation* #:*asdf-verbose* #:*verbose-out* @@ -367,11 +369,11 @@ #:appendf #:orf #:length=n-p #:remove-keys #:remove-keyword - #:first-char #:last-char #:ends-with + #:first-char #:last-char #:string-suffix-p #:coerce-name #:directory-pathname-p #:ensure-directory-pathname #:absolute-pathname-p #:ensure-pathname-absolute #:pathname-root - #:getenv #:getenv-pathname #:getenv-pathname + #:getenv #:getenv-pathname #:getenv-pathnames #:getenv-absolute-directory #:getenv-absolute-directories #:probe-file* #:find-symbol* #:strcat @@ -419,6 +421,16 @@ Note that ASDF ALWAYS raises an error if it fails to create an output file when (defparameter +asdf-methods+ '(perform-with-restarts perform explain output-files operation-done-p)) +(defvar *load-system-operation* 'load-op + "Operation used by ASDF:LOAD-SYSTEM. By default, ASDF:LOAD-OP. +You may override it with e.g. ASDF:LOAD-FASL-OP from asdf-bundle, +or ASDF:LOAD-SOURCE-OP if your fasl loading is somehow broken.") + +(defvar *compile-op-compile-file-function* 'compile-file* + "Function used to compile lisp files.") + + + #+allegro (eval-when (:compile-toplevel :execute) (defparameter *acl-warn-save* @@ -659,7 +671,7 @@ starting the separation from the end, e.g. when called with arguments ;; Giving :unspecific as argument to make-pathname is not portable. ;; See CLHS make-pathname and 19.2.2.2.3. ;; We only use it on implementations that support it, - #+(or abcl allegro clozure cmu gcl genera lispworks sbcl scl xcl) :unspecific + #+(or abcl allegro clozure cmu gcl genera lispworks mkcl sbcl scl xcl) :unspecific #+(or clisp ecl #|These haven't been tested:|# cormanlisp mcl) nil)) (destructuring-bind (name &optional (type unspecific)) (split-string filename :max 2 :separator ".") @@ -741,8 +753,9 @@ pathnames." (let ((value (_getenv name))) (unless (ccl:%null-ptr-p value) (ccl:%get-cstring value)))) + #+mkcl (#.(or (find-symbol* 'getenv :si) (find-symbol* 'getenv :mk-ext)) x) #+sbcl (sb-ext:posix-getenv x) - #-(or abcl allegro clisp clozure cmu cormanlisp ecl gcl genera lispworks mcl sbcl scl xcl) + #-(or abcl allegro clisp clozure cmu cormanlisp ecl gcl genera lispworks mcl mkcl sbcl scl xcl) (error "~S is not supported on your implementation" 'getenv)) (defun* directory-pathname-p (pathname) @@ -849,7 +862,7 @@ Host, device and version components are taken from DEFAULTS." ((zerop i) (return (null l))) ((not (consp l)) (return nil))))) -(defun* ends-with (s suffix) +(defun* string-suffix-p (s suffix) (check-type s string) (check-type suffix string) (let ((start (- (length s) (length suffix)))) @@ -877,7 +890,7 @@ with given pathname and if it exists return its truename." (null nil) (string (probe-file* (parse-namestring p))) (pathname (unless (wild-pathname-p p) - #.(or #+(or allegro clozure cmu cormanlisp ecl lispworks sbcl scl) + #.(or #+(or allegro clozure cmu cormanlisp ecl lispworks mkcl sbcl scl) '(probe-file p) #+clisp (aif (find-symbol* '#:probe-pathname :ext) `(ignore-errors (,it p))) @@ -2450,13 +2463,9 @@ recursive calls to traverse.") (funcall (ensure-function hook) thunk) (funcall thunk)))) -(defvar *compile-op-compile-file-function* 'compile-file* - "Function used to compile lisp files.") - ;;; perform is required to check output-files to find out where to put ;;; its answers, in case it has been overridden for site policy (defmethod perform ((operation compile-op) (c cl-source-file)) - #-:broken-fasl-loader (let ((source-file (component-pathname c)) ;; on some implementations, there are more than one output-file, ;; but the first one should always be the primary fasl that gets loaded. @@ -2489,9 +2498,15 @@ recursive calls to traverse.") (defmethod output-files ((operation compile-op) (c cl-source-file)) (declare (ignorable operation)) - (let ((p (lispize-pathname (component-pathname c)))) - #-broken-fasl-loader (list (compile-file-pathname p)) - #+broken-fasl-loader (list p))) + (let* ((p (lispize-pathname (component-pathname c))) + (f (compile-file-pathname ;; fasl + p #+mkcl :fasl-p #+mkcl t #+ecl :type #+ecl :fasl)) + #+mkcl (o (compile-file-pathname p :fasl-p nil))) ;; object file + #+ecl (if (use-ecl-byte-compiler-p) + (list f) + (list (compile-file-pathname p :type :object) f)) + #+mkcl (list o f) + #-(or ecl mkcl) (list f))) (defmethod perform ((operation compile-op) (c static-file)) (declare (ignorable operation c)) @@ -2532,7 +2547,13 @@ recursive calls to traverse.") (perform (make-sub-operation c o c 'compile-op) c))))) (defmethod perform ((o load-op) (c cl-source-file)) - (map () #'load (input-files o c))) + (map () #'load + #-(or ecl mkcl) + (input-files o c) + #+(or ecl mkcl) + (loop :for i :in (input-files o c) + :unless (string= (pathname-type i) "fas") + :collect (compile-file-pathname (lispize-pathname i))))) (defmethod perform ((operation load-op) (c static-file)) (declare (ignorable operation c)) @@ -2736,11 +2757,11 @@ created with the same initargs as the original one. (setf (documentation 'operate 'function) operate-docstring)) -(defun* load-system (system &rest args &key force verbose version &allow-other-keys) +(defun* load-system (system &rest keys &key force verbose version &allow-other-keys) "Shorthand for `(operate 'asdf:load-op system)`. See OPERATE for details." (declare (ignore force verbose version)) - (apply 'operate 'load-op system args) + (apply 'operate *load-system-operation* system keys) t) (defun* load-systems (&rest systems) @@ -2752,8 +2773,8 @@ See OPERATE for details." (defun loaded-systems () (remove-if-not 'component-loaded-p (registered-systems))) -(defun require-system (s) - (load-system s :force-not (loaded-systems))) +(defun require-system (s &rest keys &key &allow-other-keys) + (apply 'load-system s :force-not (loaded-systems) keys)) (defun* compile-system (system &rest args &key force verbose version &allow-other-keys) @@ -3096,6 +3117,17 @@ output to *VERBOSE-OUT*. Returns the shell's exit code." #+mcl (ccl::with-cstrs ((%command command)) (_system %command)) + #+mkcl + ;; This has next to no chance of working on basic Windows! + ;; Your best hope is that Cygwin or MSYS is somewhere in the PATH. + (multiple-value-bind (io process exit-code) + (apply #'mkcl:run-program #+windows "sh" #-windows "/bin/sh" + (list "-c" command) + :input nil :output t #|*verbose-out*|# ;; will be *verbose-out* when we support it + #-windows '(:search nil)) + (declare (ignore io process)) + exit-code) + #+sbcl (sb-ext:process-exit-code (apply 'sb-ext:run-program @@ -3107,7 +3139,7 @@ output to *VERBOSE-OUT*. Returns the shell's exit code." #+xcl (ext:run-shell-command command) - #-(or abcl allegro clisp clozure cmu ecl gcl lispworks mcl sbcl scl xcl) + #-(or abcl allegro clisp clozure cmu ecl gcl lispworks mcl mkcl sbcl scl xcl) (error "RUN-SHELL-COMMAND not implemented for this Lisp"))) #+clisp @@ -3197,7 +3229,7 @@ located." (defun implementation-type () (first-feature '(:abcl (:acl :allegro) (:ccl :clozure) :clisp (:corman :cormanlisp) :cmu - :ecl :gcl (:lw :lispworks) :mcl :sbcl :scl :symbolics :xcl))) + :ecl :gcl (:lw :lispworks) :mcl :mkcl :sbcl :scl :symbolics :xcl))) (defun operating-system () (first-feature @@ -3232,13 +3264,14 @@ located." (car ; as opposed to OR, this idiom prevents some unreachable code warning (list #+allegro - (format nil "~A~A~@[~A~]" + (format nil "~A~@[~A~]~@[~A~]~@[~A~]" excl::*common-lisp-version-number* - ;; ANSI vs MoDeRn - thanks to Robert Goldman and Charley Cox - (if (eq excl:*current-case-mode* :case-sensitive-lower) "M" "A") + ;; M means "modern", as opposed to ANSI-compatible mode (which I consider default) + (and (eq excl:*current-case-mode* :case-sensitive-lower) "M") ;; Note if not using International ACL ;; see http://www.franz.com/support/documentation/8.1/doc/operators/excl/ics-targe… - (excl:ics-target-case (:-ics "8"))) + (excl:ics-target-case (:-ics "8")) + (and (member :smp *features*) "S")) #+armedbear (format nil "~a-fasl~a" s system::*fasl-version*) #+clisp (subseq s 0 (position #\space s)) ; strip build information (date, etc.) @@ -3272,7 +3305,7 @@ located." (defun* hostname () ;; Note: untested on RMCL - #+(or abcl clozure cmucl ecl genera lispworks mcl sbcl scl xcl) (machine-instance) + #+(or abcl clozure cmucl ecl genera lispworks mcl mkcl sbcl scl xcl) (machine-instance) #+cormanlisp "localhost" ;; is there a better way? Does it matter? #+allegro (excl.osi:gethostname) #+clisp (first (split-string (machine-instance) :separator " ")) @@ -3304,14 +3337,14 @@ located." (loop :for dir :in (split-string x :separator (string (inter-directory-separator))) :collect (apply 'ensure-pathname* dir want-absolute want-directory fmt args))) -(defun getenv-pathname (x &key want-absolute want-directory &aux (s (getenv x))) +(defun* getenv-pathname (x &key want-absolute want-directory &aux (s (getenv x))) (ensure-pathname* s want-absolute want-directory "from (getenv ~S)" x)) -(defun getenv-pathnames (x &key want-absolute want-directory &aux (s (getenv x))) +(defun* getenv-pathnames (x &key want-absolute want-directory &aux (s (getenv x))) (and (plusp (length s)) (split-pathnames* s want-absolute want-directory "from (getenv ~S) = ~S" x s))) -(defun getenv-absolute-directory (x) +(defun* getenv-absolute-directory (x) (getenv-pathname x :want-absolute t :want-directory t)) -(defun getenv-absolute-directories (x) +(defun* getenv-absolute-directories (x) (getenv-pathnames x :want-absolute t :want-directory t)) @@ -3698,7 +3731,8 @@ Please remove it from your ASDF configuration")) #+sbcl ,(let ((h (getenv-pathname "SBCL_HOME" :want-directory t))) (when h `((,(truenamize h) ,*wild-inferiors*) ()))) ;; The below two are not needed: no precompiled ASDF system there - #+ecl (,(translate-logical-pathname "SYS:**;*.*") ()) + #+(or ecl mkcl) (,(translate-logical-pathname "SYS:**;*.*") ()) + #+mkcl (,(translate-logical-pathname "CONTRIB:") ()) ;; #+clozure ,(ignore-errors (list (wilden (let ((*default-pathname-defaults* #p"")) (truename #p"ccl:"))) ())) ;; All-import, here is where we want user stuff to be: :inherit-configuration @@ -3954,11 +3988,11 @@ call that function where you would otherwise have loaded and configured A-B-L.") (default-toplevel-directory (subpathname (user-homedir) ".fasls/")) ;; Use ".cache/common-lisp/" instead ??? (include-per-user-information nil) - (map-all-source-files (or #+(or ecl clisp) t nil)) + (map-all-source-files (or #+(or clisp ecl mkcl) t nil)) (source-to-target-mappings nil)) - #+(or ecl clisp) + #+(or clisp ecl mkcl) (when (null map-all-source-files) - (error "asdf:enable-asdf-binary-locations-compatibility doesn't support :map-all-source-files nil on ECL and CLISP")) + (error "asdf:enable-asdf-binary-locations-compatibility doesn't support :map-all-source-files nil on CLISP, ECL and MKCL")) (let* ((fasl-type (pathname-type (compile-file-pathname "foo.lisp"))) (mapped-files (if map-all-source-files *wild-file* (make-pathname :type fasl-type :defaults *wild-file*))) @@ -4161,7 +4195,7 @@ with a different configuration, so the configuration would be re-read then." string)) (setf inherit t) (push ':inherit-configuration directives)) - ((ends-with s "//") ;; TODO: allow for doubling of separator even outside Unix? + ((string-suffix-p s "//") ;; TODO: allow for doubling of separator even outside Unix? (push `(:tree ,(check (subseq s 0 (- (length s) 2)))) directives)) (t (push `(:directory ,(check s)) directives)))) @@ -4192,6 +4226,7 @@ with a different configuration, so the configuration would be re-read then." (defun* wrapping-source-registry () `(:source-registry + #+mkcl (:tree ,(translate-logical-pathname "CONTRIB:")) #+sbcl (:tree ,(truenamize (getenv-pathname "SBCL_HOME" :want-directory t))) :inherit-configuration #+cmu (:tree #p"modules:") @@ -4200,23 +4235,23 @@ with a different configuration, so the configuration would be re-read then." `(:source-registry #+sbcl (:directory ,(subpathname (user-homedir) ".sbcl/systems/")) (:directory ,(default-directory)) - ,@(loop :for dir :in - `(,@(when (os-unix-p) - `(,(or (getenv-absolute-directory "XDG_DATA_HOME") - (subpathname (user-homedir) ".local/share/")) - ,@(or (getenv-absolute-directories "XDG_DATA_DIRS") - '("/usr/local/share" "/usr/share")))) - ,@(when (os-windows-p) - `(,(or #+lispworks (sys:get-folder-path :local-appdata) - (getenv-absolute-directory "LOCALAPPDATA")) - ,(or #+lispworks (sys:get-folder-path :appdata) - (getenv-absolute-directory "APPDATA")) - ,(or #+lispworks (sys:get-folder-path :common-appdata) - (getenv-absolute-directory "ALLUSERSAPPDATA") - (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/"))))) - :collect `(:directory ,(subpathname* dir "common-lisp/systems/")) - :collect `(:tree ,(subpathname* dir "common-lisp/source/"))) - :inherit-configuration)) + ,@(loop :for dir :in + `(,@(when (os-unix-p) + `(,(or (getenv-absolute-directory "XDG_DATA_HOME") + (subpathname (user-homedir) ".local/share/")) + ,@(or (getenv-absolute-directories "XDG_DATA_DIRS") + '("/usr/local/share" "/usr/share")))) + ,@(when (os-windows-p) + `(,(or #+lispworks (sys:get-folder-path :local-appdata) + (getenv-absolute-directory "LOCALAPPDATA")) + ,(or #+lispworks (sys:get-folder-path :appdata) + (getenv-absolute-directory "APPDATA")) + ,(or #+lispworks (sys:get-folder-path :common-appdata) + (getenv-absolute-directory "ALLUSERSAPPDATA") + (subpathname* (getenv-absolute-directory "ALLUSERSPROFILE") "Application Data/"))))) + :collect `(:directory ,(subpathname* dir "common-lisp/systems/")) + :collect `(:tree ,(subpathname* dir "common-lisp/source/"))) + :inherit-configuration)) (defun* user-source-registry (&key (direction :input)) (in-user-configuration-directory *source-registry-file* :direction direction)) (defun* system-source-registry (&key (direction :input)) @@ -4362,51 +4397,56 @@ with a different configuration, so the configuration would be re-read then." (clear-output-translations)) -;;; ECL support for COMPILE-OP / LOAD-OP +;;; ECL and MKCL support for COMPILE-OP / LOAD-OP ;;; -;;; In ECL, these operations produce both FASL files and the -;;; object files that they are built from. Having both of them allows -;;; us to later on reuse the object files for bundles, libraries, -;;; standalone executables, etc. +;;; In ECL and MKCL, these operations produce both +;;; FASL files and the object files that they are built from. +;;; Having both of them allows us to later on reuse the object files +;;; for bundles, libraries, standalone executables, etc. ;;; ;;; This has to be in asdf.lisp and not asdf-ecl.lisp, or else it becomes ;;; a problem for asdf on ECL to compile asdf-ecl.lisp after loading asdf.lisp. ;;; -#+ecl -(progn - (setf *compile-op-compile-file-function* 'ecl-compile-file) - - (defun ecl-compile-file (input-file &rest keys &key &allow-other-keys) - (if (use-ecl-byte-compiler-p) - (apply 'compile-file* input-file keys) - (multiple-value-bind (object-file flags1 flags2) - (apply 'compile-file* input-file :system-p t keys) - (values (and object-file - (c::build-fasl (compile-file-pathname object-file :type :fasl) - :lisp-files (list object-file)) - object-file) - flags1 - flags2)))) - - (defmethod output-files ((operation compile-op) (c cl-source-file)) - (declare (ignorable operation)) - (let* ((p (lispize-pathname (component-pathname c))) - (f (compile-file-pathname p :type :fasl))) - (if (use-ecl-byte-compiler-p) - (list f) - (list (compile-file-pathname p :type :object) f)))) - - (defmethod perform ((o load-op) (c cl-source-file)) - (map () #'load - (loop :for i :in (input-files o c) - :unless (string= (pathname-type i) "fas") - :collect (compile-file-pathname (lispize-pathname i)))))) +;;; Also, register-pre-built-system. -;;;; ----------------------------------------------------------------- -;;;; Hook into REQUIRE for ABCL, CLISP, ClozureCL, CMUCL, ECL and SBCL +#+(or ecl mkcl) +(progn + (defun register-pre-built-system (name) + (register-system (make-instance 'system :name (coerce-name name) :source-file nil))) + + #+(or (and ecl win32) (and mkcl windows)) + (unless (assoc "asd" #+ecl ext:*load-hooks* #+mkcl si::*load-hooks* :test 'equal) + (appendf #+ecl ext:*load-hooks* #+mkcl si::*load-hooks* '(("asd" . si::load-source)))) + + (setf #+ecl ext:*module-provider-functions* #+mkcl mk-ext::*module-provider-functions* + (loop :for f :in #+ecl ext:*module-provider-functions* + #+mkcl mk-ext::*module-provider-functions* + :unless (eq f 'module-provide-asdf) + :collect #'(lambda (name) + (let ((l (multiple-value-list (funcall f name)))) + (and (first l) (register-pre-built-system (coerce-name name))) + (values-list l))))) + + (setf *compile-op-compile-file-function* 'compile-file-keeping-object) + + (defun compile-file-keeping-object (input-file &rest keys &key &allow-other-keys) + (#+ecl if #+ecl (use-ecl-byte-compiler-p) #+ecl (apply 'compile-file* input-file keys) + #+mkcl progn + (multiple-value-bind (object-file flags1 flags2) + (apply 'compile-file* input-file + #+ecl :system-p #+ecl t #+mkcl :fasl-p #+mkcl nil keys) + (values (and object-file + (compiler::build-fasl + (compile-file-pathname object-file + #+ecl :type #+ecl :fasl #+mkcl :fasl-p #+mkcl t) + #+ecl :lisp-files #+mkcl :lisp-object-files (list object-file)) + object-file) + flags1 + flags2))))) + +;;;; ----------------------------------------------------------------------- +;;;; Hook into REQUIRE for ABCL, CLISP, ClozureCL, CMUCL, ECL, MKCL and SBCL ;;;; -(defvar *require-asdf-operator* 'load-op) - (defun* module-provide-asdf (name) (handler-bind ((style-warning #'muffle-warning) @@ -4418,10 +4458,10 @@ with a different configuration, so the configuration would be re-read then." (let ((*verbose-out* (make-broadcast-stream)) (system (find-system (string-downcase name) nil))) (when system - (operate *require-asdf-operator* system :verbose nil :force-not (loaded-systems)) + (require-system system :verbose nil) t)))) -#+(or abcl clisp clozure cmu ecl sbcl) +#+(or abcl clisp clozure cmu ecl mkcl sbcl) (let ((x (and #+clisp (find-symbol* '#:*module-provider-functions* :custom)))) (when x (eval `(pushnew 'module-provide-asdf @@ -4429,6 +4469,7 @@ with a different configuration, so the configuration would be re-read then." #+clisp ,x #+clozure ccl:*module-provider-functions* #+(or cmu ecl) ext:*module-provider-functions* + #+mkcl mk-ext:*module-provider-functions* #+sbcl sb-ext:*module-provider-functions*)))) @@ -4448,6 +4489,21 @@ with a different configuration, so the configuration would be re-read then." (when *load-verbose* (asdf-message ";; ASDF, version ~a~%" (asdf-version))) +#+mkcl +(progn + (defvar *loading-asdf-bundle* nil) + (unless *loading-asdf-bundle* + (let ((*central-registry* + (cons (translate-logical-pathname #P"CONTRIB:asdf-bundle;") *central-registry*)) + (*loading-asdf-bundle* t)) + (clear-system :asdf-bundle) ;; we hope to force a reload. + (multiple-value-bind (result bundling-error) + (ignore-errors (asdf:oos 'asdf:load-op :asdf-bundle)) + (unless result + (format *error-output* + "~&;;; ASDF: Failed to load package 'asdf-bundle'!~%;;; ASDF: Reason is: ~A.~%" + bundling-error)))))) + #+allegro (eval-when (:compile-toplevel :execute) (when (boundp 'excl:*warn-on-nested-reader-conditionals*) diff --git a/src/general-info/release-20d.txt b/src/general-info/release-20d.txt index da2f979..188479c 100644 --- a/src/general-info/release-20d.txt +++ b/src/general-info/release-20d.txt @@ -30,7 +30,7 @@ New in this release: * Added external format for EUC-KR. * Changes - * ASDF2 updated to version 2.23. + * ASDF2 updated to version 2.24. * 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 ----------------------------------------------------------------------- Summary of changes: src/contrib/asdf/asdf.lisp | 250 +++++++++++++++++++++++--------------- src/general-info/release-20d.txt | 2 +- 2 files changed, 154 insertions(+), 98 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-08-9-gff56940
by Raymond Toy 28 Aug '12

28 Aug '12

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 ff569406a77867b99256fc829d233478334aaf46 (commit) from 0dae48842681ded2440ebf34339e1a6851f3f80c (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 ff569406a77867b99256fc829d233478334aaf46 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Mon Aug 27 22:47:36 2012 -0700 Clean up debug_print. Surrogate pairs are always high surrogate followed by low; anything else is invalid. diff --git a/src/lisp/interr.c b/src/lisp/interr.c index f5bc61f..a203d57 100644 --- a/src/lisp/interr.c +++ b/src/lisp/interr.c @@ -226,53 +226,38 @@ surrogatep(int code, int *type) static int utf16_codepoint(unsigned short int* utf16, int len, int* consumed) { - int code = *utf16; - int read = 1; - + int codepoint = REPLACEMENT_CODE; + int code_unit = *utf16; int code_type; + int read = 1; /* * If the current code unit is not a surrogate, we're done. - * Otherwise process the surrogate. + * Otherwise process the surrogate. If this is a high (leading) + * surrogate and the next code unit is a low (trailing) surrogate, + * compute the code point. Otherwise we have a bare surrogate or + * an invalid surrogate sequence, so just return the replacement + * character. */ - if (surrogatep(code, &code_type)) { - /* - * Try to get the following surrogate, if there are still code - * units left. If not, we have a bare surrogate, so just - * return the replacement character. - */ - if (len > 0) { - int next = utf16[1]; + if (surrogatep(code_unit, &code_type)) { + if (code_type == 0 && len > 0) { + int next_unit = utf16[1]; int next_type; - if (surrogatep(next, &next_type)) { - /* Got the following surrogate, so combine them if possible */ - if ((code_type == 0) && (next_type == 1)) { + if (surrogatep(next_unit, &next_type)) { + if (next_type == 1) { /* High followed by low surrogate */ - code = ((code - 0xd800) << 10) + next + 0x2400; - ++read; - } else if ((code_type == 1) && (next_type == 0)) { - /* - * Low followed by high surrogate. Not sure if we - * really need to handle this case. - */ - code = ((code - 0xd800) << 10) + next + 0x2400;; + codepoint = ((code_unit - 0xd800) << 10) + next_unit + 0x2400; ++read; - } else { - /* Give up */ - code = REPLACEMENT_CODE; } - } else { - /* Surrogate followed by non-surrogate. Give up */ - code = REPLACEMENT_CODE; } - } else { - code = REPLACEMENT_CODE; } + } else { + codepoint = code_unit; } *consumed = read; - return code; + return codepoint; } /* @@ -340,8 +325,8 @@ debug_print(lispobj object) } } else { /* - * We should actually ever get here because %primitive print - * is only supposed to take strings. But if we do, it's + * We shouldn't actually ever get here because %primitive + * print is only supposed to take strings. But if we do, it's * useful to print something out anyway. */ #if 1 ----------------------------------------------------------------------- Summary of changes: src/lisp/interr.c | 53 +++++++++++++++++++---------------------------------- 1 files changed, 19 insertions(+), 34 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-08-8-g0dae488
by Raymond Toy 27 Aug '12

27 Aug '12

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 0dae48842681ded2440ebf34339e1a6851f3f80c (commit) from 88d77e83c17fd5d48be454542389d3ff71a27b4b (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 0dae48842681ded2440ebf34339e1a6851f3f80c Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Aug 26 20:12:29 2012 -0700 Minor cleanups of utf8 code. diff --git a/src/lisp/interr.c b/src/lisp/interr.c index 90c7f7d..f5bc61f 100644 --- a/src/lisp/interr.c +++ b/src/lisp/interr.c @@ -161,6 +161,10 @@ internal_error(os_context_t * context) /* Utility routines used by random pieces of code. */ #if defined(UNICODE) + +/* The Unicode replacement character code */ +#define REPLACEMENT_CODE 0xfffd + /* * Convert a unicode code point to a set of utf8-encoded octets to * standard output. This is the algorithm used by the Lisp utf8 @@ -196,7 +200,7 @@ utf8(int code, int len) * surrogate. If not a surrogate, type is not modified. If type is * NULL, then no type is returned. */ -boolean +static boolean surrogatep(int code, int *type) { boolean result; @@ -219,7 +223,7 @@ surrogatep(int code, int *type) * codepoint is returned and the number of code units consumed is * returned in consumed. */ -int +static int utf16_codepoint(unsigned short int* utf16, int len, int* consumed) { int code = *utf16; @@ -229,7 +233,7 @@ utf16_codepoint(unsigned short int* utf16, int len, int* consumed) /* * If the current code unit is not a surrogate, we're done. - * Otherwise process the surrogate + * Otherwise process the surrogate. */ if (surrogatep(code, &code_type)) { @@ -248,19 +252,22 @@ utf16_codepoint(unsigned short int* utf16, int len, int* consumed) code = ((code - 0xd800) << 10) + next + 0x2400; ++read; } else if ((code_type == 1) && (next_type == 0)) { - /* Low followed by high surrogate */ + /* + * Low followed by high surrogate. Not sure if we + * really need to handle this case. + */ code = ((code - 0xd800) << 10) + next + 0x2400;; ++read; } else { /* Give up */ - code = 0xfffd; + code = REPLACEMENT_CODE; } } else { /* Surrogate followed by non-surrogate. Give up */ - code = 0xfffd; + code = REPLACEMENT_CODE; } } else { - code = 0xfffd; + code = REPLACEMENT_CODE; } } ----------------------------------------------------------------------- Summary of changes: src/lisp/interr.c | 21 ++++++++++++++------- 1 files changed, 14 insertions(+), 7 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-08-7-g88d77e8
by Raymond Toy 26 Aug '12

26 Aug '12

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 88d77e83c17fd5d48be454542389d3ff71a27b4b (commit) from a176515cc4356f3f6de43391604e90c7e8391b99 (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 88d77e83c17fd5d48be454542389d3ff71a27b4b Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Aug 25 08:48:51 2012 -0700 Change %primitive print.to output strings in utf8 instead of utf16. No more random NUL ASCII characters on output now. diff --git a/src/lisp/interr.c b/src/lisp/interr.c index 57e18f2..90c7f7d 100644 --- a/src/lisp/interr.c +++ b/src/lisp/interr.c @@ -160,6 +160,152 @@ internal_error(os_context_t * context) /* Utility routines used by random pieces of code. */ +#if defined(UNICODE) +/* + * Convert a unicode code point to a set of utf8-encoded octets to + * standard output. This is the algorithm used by the Lisp utf8 + * encoder in src/code/extfmts.lisp. + */ +static void +utf8(int code, int len) +{ + int k; + int j = 6 - len; + int p = 6 * len; + int init = 0xff & (0x7e << j); + int c; + + /* + * (ldb (byte j p) code): Extract j bits from position p of the code + */ + c = (code >> p) & ((1 << j) - 1); + + putchar(init | c); + + for (k = 0; k < len; ++k) { + p -= 6; + /* (ldb (byte 6 p) code) */ + c = (code >> p) & ((1 << 6) - 1); + putchar(128 | c); + } +} + +/* + * Test if code is a surrogate. Returns true if so. If the code is a + * surrogate, then type indicates if it is a high (0) or low (1) + * surrogate. If not a surrogate, type is not modified. If type is + * NULL, then no type is returned. + */ +boolean +surrogatep(int code, int *type) +{ + boolean result; + + if ((code >> 11) == 0x1b) { + result = 1; + if (type) { + *type = (code >> 10) & 1; + } + } else { + result = 0; + } + + return result; +} + +/* + * Convert one or two utf16 code units into a code point. utf16 + * points to the string, len is the length of the string. The + * codepoint is returned and the number of code units consumed is + * returned in consumed. + */ +int +utf16_codepoint(unsigned short int* utf16, int len, int* consumed) +{ + int code = *utf16; + int read = 1; + + int code_type; + + /* + * If the current code unit is not a surrogate, we're done. + * Otherwise process the surrogate + */ + + if (surrogatep(code, &code_type)) { + /* + * Try to get the following surrogate, if there are still code + * units left. If not, we have a bare surrogate, so just + * return the replacement character. + */ + if (len > 0) { + int next = utf16[1]; + int next_type; + if (surrogatep(next, &next_type)) { + /* Got the following surrogate, so combine them if possible */ + if ((code_type == 0) && (next_type == 1)) { + /* High followed by low surrogate */ + code = ((code - 0xd800) << 10) + next + 0x2400; + ++read; + } else if ((code_type == 1) && (next_type == 0)) { + /* Low followed by high surrogate */ + code = ((code - 0xd800) << 10) + next + 0x2400;; + ++read; + } else { + /* Give up */ + code = 0xfffd; + } + } else { + /* Surrogate followed by non-surrogate. Give up */ + code = 0xfffd; + } + } else { + code = 0xfffd; + } + } + + *consumed = read; + return code; +} + +/* + * Send the utf-16 Lisp unicode string to standard output as a + * utf8-encoded sequence of octets. + */ +static void +utf16_output(unsigned short int* utf16, int len) +{ + while (len) { + int consumed; + int code = utf16_codepoint(utf16, len, &consumed); + + /* Output the codepoint */ + if (code < 0x80) { + putchar(code); + } else if (code < 0x800) { + utf8(code, 1); + } else if (code < 0x10000) { + utf8(code, 2); + } else if (code < 0x110000) { + utf8(code, 3); + } else { + /* + * This shouldn't happen, but if it does we don't want to + * signal any kind of error so just output a question mark + * so we can continue. + */ + putchar('?'); + } + + len -= consumed; + utf16 += consumed; + } +} +#endif + +/* + * debug_print is used by %primitive print to output a string. + */ lispobj debug_print(lispobj object) { @@ -178,13 +324,7 @@ debug_print(lispobj object) len = lisp_string->length >> 2; lisp_chars = (unsigned short int*) lisp_string->data; - /* - * Do we really want to dump out the entire contents of - * the utf-16 string? Should we just print out the low 8 - * bits of each Lisp character? Or maybe convert the - * utf-16 string to some more suitable encoding? - */ - fwrite(lisp_chars, sizeof(*lisp_chars), len, stdout); + utf16_output(lisp_chars, len); putchar('\n'); fflush(stdout); @@ -192,6 +332,11 @@ debug_print(lispobj object) print(object); } } else { + /* + * We should actually ever get here because %primitive print + * is only supposed to take strings. But if we do, it's + * useful to print something out anyway. + */ #if 1 printf("obj @0x%lx: ", (unsigned long) object); #endif ----------------------------------------------------------------------- Summary of changes: src/lisp/interr.c | 159 ++++++++++++++++++++++++++++++++++++++++++++++++++-- 1 files changed, 152 insertions(+), 7 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-08-6-ga176515
by Raymond Toy 24 Aug '12

24 Aug '12

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 a176515cc4356f3f6de43391604e90c7e8391b99 (commit) from 5293d44e876c4d08a1a1f19b037a8afd54961eb8 (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 a176515cc4356f3f6de43391604e90c7e8391b99 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Aug 22 20:50:30 2012 -0700 Need to wrap EVAL-WHEN around USE-PACKAGE since use-package doesn't have special treatment in the compiler anymore. diff --git a/src/interface/debug.lisp b/src/interface/debug.lisp index be8ac9f..42b52ec 100644 --- a/src/interface/debug.lisp +++ b/src/interface/debug.lisp @@ -15,7 +15,8 @@ ;;; (in-package "DEBUG") -(use-package '("TOOLKIT" "INTERFACE")) +(eval-when (:compile-toplevel :load-toplevel :execute) + (use-package '("TOOLKIT" "INTERFACE"))) ;;; We need to record three things globally: ;;; - The structure decribing the current debugger display ----------------------------------------------------------------------- Summary of changes: src/interface/debug.lisp | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-08-5-g5293d44
by Raymond Toy 19 Aug '12

19 Aug '12

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 5293d44e876c4d08a1a1f19b037a8afd54961eb8 (commit) from 441a76a6b156e8eedc5ef9bb72c5772d89b657bc (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 5293d44e876c4d08a1a1f19b037a8afd54961eb8 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Aug 19 07:58:06 2012 -0700 Floating-point micro-optimizations o Convert x/n to x*(1/n) when n is a power of two since 1/n has an exact representation. o Convert 2*x to x+x. diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp index 7a82135..d0a3703 100644 --- a/src/compiler/float-tran.lisp +++ b/src/compiler/float-tran.lisp @@ -634,6 +634,28 @@ (frob >) (frob =)) +;; Convert (/ x n) to (* x (/ n)) when x is a float and n is a power +;; of two, because (/ n) can be reprsented exactly. +(deftransform / ((x y) (float float) * :when :both) + (unless (constant-continuation-p y) + (give-up)) + (let ((val (continuation-value y))) + (multiple-value-bind (frac exp sign) + (decode-float val) + (unless (= frac 0.5) + (give-up)) + `(* x (float (/ ,val) x))))) + +;; Convert 2*x to x+x. +(deftransform * ((x y) (float real) * :when :both) + (unless (constant-continuation-p y) + (give-up)) + (let ((val (continuation-value y))) + (unless (= val 2) + (give-up)) + '(+ x x))) + + ;;;; Irrational transforms: ----------------------------------------------------------------------- Summary of changes: src/compiler/float-tran.lisp | 22 ++++++++++++++++++++++ 1 files changed, 22 insertions(+), 0 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-08-4-g441a76a
by Raymond Toy 11 Aug '12

11 Aug '12

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 441a76a6b156e8eedc5ef9bb72c5772d89b657bc (commit) from c07cc02020cb741191bfc3a5155226db2ae86c51 (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 441a76a6b156e8eedc5ef9bb72c5772d89b657bc Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Aug 11 16:50:28 2012 -0700 Move the FPU save/restore stuff from os.h to arch.h * src/lisp/os.h * Move macros and definitions for FPU save/restore from here. * src/lisp/arch.h * Put architecture neutral stuff from os.h here. * src/lisp/ppc-arch.h * src/lisp/sparc-arch.h * src/lisp/x86-arch.h * Implement the FPU save/restore macros here for each supported architecture. diff --git a/src/lisp/arch.h b/src/lisp/arch.h index b8ebf3f..3c6dd9f 100644 --- a/src/lisp/arch.h +++ b/src/lisp/arch.h @@ -30,18 +30,28 @@ extern lispobj funcall2(lispobj function, lispobj arg0, lispobj arg1); extern lispobj funcall3(lispobj function, lispobj arg0, lispobj arg1, lispobj arg2); +extern void arch_make_linkage_entry(long, void *, long); +extern long arch_linkage_entry(unsigned long); +void arch_make_lazy_linkage(long linkage_entry); +long arch_linkage_entry(unsigned long retaddr); + + extern void fpu_save(void *); extern void fpu_restore(void *); extern void sse_save(void *); extern void sse_restore(void *); +extern void save_fpu_state(void*); +extern void restore_fpu_state(void*); -extern void arch_make_linkage_entry(long, void *, long); -extern long arch_linkage_entry(unsigned long); -void arch_make_lazy_linkage(long linkage_entry); -long arch_linkage_entry(unsigned long retaddr); +#if defined(i386) || defined(__x86_64) +#include "x86-arch.h" +#endif -#ifdef i386 -extern int arch_support_sse2(void); +#if defined(DARWIN) && defined(__ppc__) +#include "ppc-arch.h" #endif +#if defined(sparc) +#include "sparc-arch.h" +#endif #endif /* __ARCH_H__ */ diff --git a/src/lisp/os.h b/src/lisp/os.h index c996474..5d43446 100644 --- a/src/lisp/os.h +++ b/src/lisp/os.h @@ -116,45 +116,6 @@ unsigned long *os_sigcontext_pc(ucontext_t *); unsigned char *os_sigcontext_fpu_reg(ucontext_t *, int); unsigned int os_sigcontext_fpu_modes(ucontext_t *); -#ifdef i386 -extern boolean os_support_sse2(void); -#endif - char* convert_lisp_string(char* c_string, void* lisp_string, int len); -/* - * Define macro to allocate a local array of the appropriate size - * where the fpu state can be stored. - */ -#if defined(i386) || defined(__x86_64) -#define FPU_STATE_SIZE 27 - /* - * Need 512 byte area, aligned on a 16-byte boundary. So allocate - * 512+16 bytes of space and let the routine adjust use the - * appropriate alignment. - */ -#define SSE_STATE_SIZE ((512+16)/4) - -/* - * Just use the SSE size for both x87 and sse2 since the SSE size is - * enough for either. - */ -#define FPU_STATE(name) int name[SSE_STATE_SIZE]; - -#elif defined(sparc) -/* - * 32 (single-precision) FP registers, and the FP state register. - * But Sparc V9 has 32 double-precision registers (equivalent to 64 - * single-precision, but can't be accessed), so we leave enough room - * for that. - */ -#define FPU_STATE_SIZE (((32 + 32 + 1) + 1)/2) -#define FPU_STATE(name) long long name[FPU_STATE_SIZE]; -#elif defined(DARWIN) && defined(__ppc__) -#define FPU_STATE_SIZE 32 -#define FPU_STATE(name) long long name[FPU_STATE_SIZE]; -#endif -extern void save_fpu_state(void*); -extern void restore_fpu_state(void*); - #endif /* _OS_H_ */ diff --git a/src/lisp/ppc-arch.h b/src/lisp/ppc-arch.h new file mode 100644 index 0000000..c4698a7 --- /dev/null +++ b/src/lisp/ppc-arch.h @@ -0,0 +1,19 @@ +/* + + This code was written as part of the CMU Common Lisp project and has + been placed in the public domain. + +*/ +#ifndef __PPC_ARCH_H +#define __PPC_ARCH_H + +/* + * Define macro to allocate a local array of the appropriate size + * where the fpu state can be stored. + * + * PPC has 32 (double-precision) floating-point registers. + */ +#define FPU_STATE_SIZE 32 +#define FPU_STATE(name) long long name[FPU_STATE_SIZE]; + +#endif diff --git a/src/lisp/sparc-arch.h b/src/lisp/sparc-arch.h new file mode 100644 index 0000000..3a98384 --- /dev/null +++ b/src/lisp/sparc-arch.h @@ -0,0 +1,23 @@ +/* + + This code was written as part of the CMU Common Lisp project and has + been placed in the public domain. + +*/ +#ifndef __SPARC_ARCH_H +#define __SPARC_ARCH_H + +/* + * Define macro to allocate a local array of the appropriate size + * where the fpu state can be stored. + * + * + * 32 (single-precision) FP registers, and the FP state register. + * But Sparc V9 has 32 double-precision registers (equivalent to 64 + * single-precision, but can't be accessed), so we leave enough room + * for that. + */ +#define FPU_STATE_SIZE (((32 + 32 + 1) + 1)/2) +#define FPU_STATE(name) long long name[FPU_STATE_SIZE]; + +#endif diff --git a/src/lisp/x86-arch.h b/src/lisp/x86-arch.h new file mode 100644 index 0000000..8314063 --- /dev/null +++ b/src/lisp/x86-arch.h @@ -0,0 +1,32 @@ +/* + + This code was written as part of the CMU Common Lisp project and has + been placed in the public domain. + +*/ +#ifndef __X86_ARCH_H + +extern int arch_support_sse2(void); +extern boolean os_support_sse2(void); + +/* + * Define macro to allocate a local array of the appropriate size + * where the fpu state can be stored. + */ + +#define FPU_STATE_SIZE 27 + +/* + * Need 512 byte area, aligned on a 16-byte boundary. So allocate + * 512+16 bytes of space and let the routine adjust the appropriate + * alignment. + */ +#define SSE_STATE_SIZE ((512+16)/4) + +/* + * Just use the SSE size for both x87 and sse2 since the SSE size is + * enough for either. + */ +#define FPU_STATE(name) int name[SSE_STATE_SIZE]; + +#endif ----------------------------------------------------------------------- Summary of changes: src/lisp/arch.h | 22 ++++++++++++++++------ src/lisp/os.h | 39 --------------------------------------- src/lisp/ppc-arch.h | 19 +++++++++++++++++++ src/lisp/sparc-arch.h | 23 +++++++++++++++++++++++ src/lisp/x86-arch.h | 32 ++++++++++++++++++++++++++++++++ 5 files changed, 90 insertions(+), 45 deletions(-) create mode 100644 src/lisp/ppc-arch.h create mode 100644 src/lisp/sparc-arch.h create mode 100644 src/lisp/x86-arch.h hooks/post-receive -- CMU Common Lisp

1 0

[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-08-3-gc07cc02
by Raymond Toy 10 Aug '12

10 Aug '12

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 c07cc02020cb741191bfc3a5155226db2ae86c51 (commit) via 50df2ebc3f592d8ea62f4a1f8b65f05e98233914 (commit) from d52302047c19a31092fdc02ca7c29963bf4d33ec (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 c07cc02020cb741191bfc3a5155226db2ae86c51 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Aug 9 23:46:43 2012 -0700 src/lisp/os.h: src/lisp/gencgc.c: * Move the macros for fpu buffers from gencgc.c to here. src/lisp/x86-arch.c: * Use the new save_fpu_state instead of fpu_save. And apply to all OSes. diff --git a/src/lisp/gencgc.c b/src/lisp/gencgc.c index cab6a0c..905f551 100644 --- a/src/lisp/gencgc.c +++ b/src/lisp/gencgc.c @@ -663,38 +663,6 @@ gen_av_mem_age(int gen) generations[gen].bytes_allocated; } -/* - * Define macro to allocate a local array of the appropriate size - * where the fpu state can be stored. - */ -#if defined(i386) || defined(__x86_64) -#define FPU_STATE_SIZE 27 - /* - * Need 512 byte area, aligned on a 16-byte boundary. So allocate - * 512+16 bytes of space and let the routine adjust use the - * appropriate alignment. - */ -#define SSE_STATE_SIZE ((512+16)/4) - -/* - * Just use the SSE size for both x87 and sse2 since the SSE size is - * enough for either. - */ -#define FPU_STATE(name) int name[SSE_STATE_SIZE]; - -#elif defined(sparc) -/* - * 32 (single-precision) FP registers, and the FP state register. - * But Sparc V9 has 32 double-precision registers (equivalent to 64 - * single-precision, but can't be accessed), so we leave enough room - * for that. - */ -#define FPU_STATE_SIZE (((32 + 32 + 1) + 1)/2) -#define FPU_STATE(name) long long name[FPU_STATE_SIZE]; -#elif defined(DARWIN) && defined(__ppc__) -#define FPU_STATE_SIZE 32 -#define FPU_STATE(name0 long long name[FPU_STATE_SIZE]; -#endif void save_fpu_state(void* state) diff --git a/src/lisp/os.h b/src/lisp/os.h index 4c76df2..c996474 100644 --- a/src/lisp/os.h +++ b/src/lisp/os.h @@ -122,4 +122,39 @@ extern boolean os_support_sse2(void); char* convert_lisp_string(char* c_string, void* lisp_string, int len); +/* + * Define macro to allocate a local array of the appropriate size + * where the fpu state can be stored. + */ +#if defined(i386) || defined(__x86_64) +#define FPU_STATE_SIZE 27 + /* + * Need 512 byte area, aligned on a 16-byte boundary. So allocate + * 512+16 bytes of space and let the routine adjust use the + * appropriate alignment. + */ +#define SSE_STATE_SIZE ((512+16)/4) + +/* + * Just use the SSE size for both x87 and sse2 since the SSE size is + * enough for either. + */ +#define FPU_STATE(name) int name[SSE_STATE_SIZE]; + +#elif defined(sparc) +/* + * 32 (single-precision) FP registers, and the FP state register. + * But Sparc V9 has 32 double-precision registers (equivalent to 64 + * single-precision, but can't be accessed), so we leave enough room + * for that. + */ +#define FPU_STATE_SIZE (((32 + 32 + 1) + 1)/2) +#define FPU_STATE(name) long long name[FPU_STATE_SIZE]; +#elif defined(DARWIN) && defined(__ppc__) +#define FPU_STATE_SIZE 32 +#define FPU_STATE(name) long long name[FPU_STATE_SIZE]; +#endif +extern void save_fpu_state(void*); +extern void restore_fpu_state(void*); + #endif /* _OS_H_ */ diff --git a/src/lisp/x86-arch.c b/src/lisp/x86-arch.c index 2932b13..ee38f92 100644 --- a/src/lisp/x86-arch.c +++ b/src/lisp/x86-arch.c @@ -340,17 +340,14 @@ sigtrap_handler(HANDLER_ARGS) case trap_Halt: { -#ifndef __linux__ - int fpu_state[27]; + FPU_STATE(fpu_state); + save_fpu_state(fpu_state); - fpu_save(fpu_state); -#endif fake_foreign_function_call(os_context); lose("%%primitive halt called; the party is over.\n"); undo_fake_foreign_function_call(os_context); -#ifndef __linux__ - fpu_restore(fpu_state); -#endif + + restore_fpu_state(fpu_state); arch_skip_instruction(os_context); break; } commit 50df2ebc3f592d8ea62f4a1f8b65f05e98233914 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Aug 9 23:44:26 2012 -0700 Use /usr/bin/sed instead of whatever is in the path. diff --git a/src/lisp/solaris-nm b/src/lisp/solaris-nm index caa09d9..ba2a461 100755 --- a/src/lisp/solaris-nm +++ b/src/lisp/solaris-nm @@ -1,4 +1,4 @@ #!/bin/sh # Removing 0x prefix # remove local symbols ([a-z] in type field). -/usr/ccs/bin/nm -pxh "$@" | sed -e 's/^0x//' -e '/ [a-z] /d' +/usr/ccs/bin/nm -pxh "$@" | /usr/bin/sed -e 's/^0x//' -e '/ [a-z] /d' ----------------------------------------------------------------------- Summary of changes: src/lisp/gencgc.c | 32 -------------------------------- src/lisp/os.h | 35 +++++++++++++++++++++++++++++++++++ src/lisp/solaris-nm | 2 +- src/lisp/x86-arch.c | 11 ++++------- 4 files changed, 40 insertions(+), 40 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0