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

[git] CMU Common Lisp branch master updated. snapshot-2013-06-1-ga2579ce
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 a2579ceae31fe7072e417e51d2045f63add281c2 (commit) from faf5cd6df3c8fd377891082e2f3bbcbada81e1d6 (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 a2579ceae31fe7072e417e51d2045f63add281c2 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Jun 25 21:30:16 2013 -0700 Initialize some variables to get rid of some clang warnings. diff --git a/src/lisp/parse.c b/src/lisp/parse.c index 505ad07..f1256f6 100644 --- a/src/lisp/parse.c +++ b/src/lisp/parse.c @@ -225,7 +225,7 @@ char * parse_addr(char **ptr) { char *token = parse_token(ptr); - long result; + long result = 0; if (token == NULL) { printf("Expected an address.\n"); @@ -316,7 +316,7 @@ parse_lispobj(char **ptr) { char *token = parse_token(ptr); long pointer; - lispobj result; + lispobj result = 0; if (token == NULL) { printf("Expected an object.\n"); ----------------------------------------------------------------------- Summary of changes: src/lisp/parse.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-37-g6795c64
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 6795c643cd67e3ea2d950aa249cf39f929dc7798 (commit) from 33a91f6afe5d68ea41a649db6e40d93d5896fb45 (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 6795c643cd67e3ea2d950aa249cf39f929dc7798 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Aug 1 19:15:03 2014 -0700 Import log1p from fdlibm, as is. diff --git a/src/lisp/s_log1p.c b/src/lisp/s_log1p.c new file mode 100644 index 0000000..3d1059a --- /dev/null +++ b/src/lisp/s_log1p.c @@ -0,0 +1,165 @@ + +/* @(#)s_log1p.c 1.3 95/01/18 */ +/* + * ==================================================== + * Copyright (C) 1993 by Sun Microsystems, Inc. All rights reserved. + * + * Developed at SunSoft, a Sun Microsystems, Inc. business. + * Permission to use, copy, modify, and distribute this + * software is freely granted, provided that this notice + * is preserved. + * ==================================================== + */ + +/* double log1p(double x) + * + * Method : + * 1. Argument Reduction: find k and f such that + * 1+x = 2^k * (1+f), + * where sqrt(2)/2 < 1+f < sqrt(2) . + * + * Note. If k=0, then f=x is exact. However, if k!=0, then f + * may not be representable exactly. In that case, a correction + * term is need. Let u=1+x rounded. Let c = (1+x)-u, then + * log(1+x) - log(u) ~ c/u. Thus, we proceed to compute log(u), + * and add back the correction term c/u. + * (Note: when x > 2**53, one can simply return log(x)) + * + * 2. Approximation of log1p(f). + * Let s = f/(2+f) ; based on log(1+f) = log(1+s) - log(1-s) + * = 2s + 2/3 s**3 + 2/5 s**5 + ....., + * = 2s + s*R + * We use a special Reme algorithm on [0,0.1716] to generate + * a polynomial of degree 14 to approximate R The maximum error + * of this polynomial approximation is bounded by 2**-58.45. In + * other words, + * 2 4 6 8 10 12 14 + * R(z) ~ Lp1*s +Lp2*s +Lp3*s +Lp4*s +Lp5*s +Lp6*s +Lp7*s + * (the values of Lp1 to Lp7 are listed in the program) + * and + * | 2 14 | -58.45 + * | Lp1*s +...+Lp7*s - R(z) | <= 2 + * | | + * Note that 2s = f - s*f = f - hfsq + s*hfsq, where hfsq = f*f/2. + * In order to guarantee error in log below 1ulp, we compute log + * by + * log1p(f) = f - (hfsq - s*(hfsq+R)). + * + * 3. Finally, log1p(x) = k*ln2 + log1p(f). + * = k*ln2_hi+(f-(hfsq-(s*(hfsq+R)+k*ln2_lo))) + * Here ln2 is split into two floating point number: + * ln2_hi + ln2_lo, + * where n*ln2_hi is always exact for |n| < 2000. + * + * Special cases: + * log1p(x) is NaN with signal if x < -1 (including -INF) ; + * log1p(+INF) is +INF; log1p(-1) is -INF with signal; + * log1p(NaN) is that NaN with no signal. + * + * Accuracy: + * according to an error analysis, the error is always less than + * 1 ulp (unit in the last place). + * + * Constants: + * The hexadecimal values are the intended ones for the following + * constants. The decimal values may be used, provided that the + * compiler will convert from decimal to binary accurately enough + * to produce the hexadecimal values shown. + * + * Note: Assuming log() return accurate answer, the following + * algorithm can be used to compute log1p(x) to within a few ULP: + * + * u = 1+x; + * if(u==1.0) return x ; else + * return log(u)*(x/(u-1.0)); + * + * See HP-15C Advanced Functions Handbook, p.193. + */ + +#include "fdlibm.h" + +#ifdef __STDC__ +static const double +#else +static double +#endif +ln2_hi = 6.93147180369123816490e-01, /* 3fe62e42 fee00000 */ +ln2_lo = 1.90821492927058770002e-10, /* 3dea39ef 35793c76 */ +two54 = 1.80143985094819840000e+16, /* 43500000 00000000 */ +Lp1 = 6.666666666666735130e-01, /* 3FE55555 55555593 */ +Lp2 = 3.999999999940941908e-01, /* 3FD99999 9997FA04 */ +Lp3 = 2.857142874366239149e-01, /* 3FD24924 94229359 */ +Lp4 = 2.222219843214978396e-01, /* 3FCC71C5 1D8E78AF */ +Lp5 = 1.818357216161805012e-01, /* 3FC74664 96CB03DE */ +Lp6 = 1.531383769920937332e-01, /* 3FC39A09 D078C69F */ +Lp7 = 1.479819860511658591e-01; /* 3FC2F112 DF3E5244 */ + +static double zero = 0.0; + +#ifdef __STDC__ + double log1p(double x) +#else + double log1p(x) + double x; +#endif +{ + double hfsq,f,c,s,z,R,u; + int k,hx,hu,ax; + + hx = __HI(x); /* high word of x */ + ax = hx&0x7fffffff; + + k = 1; + if (hx < 0x3FDA827A) { /* x < 0.41422 */ + if(ax>=0x3ff00000) { /* x <= -1.0 */ + if(x==-1.0) return -two54/zero; /* log1p(-1)=+inf */ + else return (x-x)/(x-x); /* log1p(x<-1)=NaN */ + } + if(ax<0x3e200000) { /* |x| < 2**-29 */ + if(two54+x>zero /* raise inexact */ + &&ax<0x3c900000) /* |x| < 2**-54 */ + return x; + else + return x - x*x*0.5; + } + if(hx>0||hx<=((int)0xbfd2bec3)) { + k=0;f=x;hu=1;} /* -0.2929<x<0.41422 */ + } + if (hx >= 0x7ff00000) return x+x; + if(k!=0) { + if(hx<0x43400000) { + u = 1.0+x; + hu = __HI(u); /* high word of u */ + k = (hu>>20)-1023; + c = (k>0)? 1.0-(u-x):x-(u-1.0);/* correction term */ + c /= u; + } else { + u = x; + hu = __HI(u); /* high word of u */ + k = (hu>>20)-1023; + c = 0; + } + hu &= 0x000fffff; + if(hu<0x6a09e) { + __HI(u) = hu|0x3ff00000; /* normalize u */ + } else { + k += 1; + __HI(u) = hu|0x3fe00000; /* normalize u/2 */ + hu = (0x00100000-hu)>>2; + } + f = u-1.0; + } + hfsq=0.5*f*f; + if(hu==0) { /* |f| < 2**-20 */ + if(f==zero) if(k==0) return zero; + else {c += k*ln2_lo; return k*ln2_hi+c;} + R = hfsq*(1.0-0.66666666666666666*f); + if(k==0) return f-R; else + return k*ln2_hi-((R-(k*ln2_lo+c))-f); + } + s = f/(2.0+f); + z = s*s; + R = z*(Lp1+z*(Lp2+z*(Lp3+z*(Lp4+z*(Lp5+z*(Lp6+z*Lp7)))))); + if(k==0) return f-(hfsq-s*(hfsq+R)); else + return k*ln2_hi-((hfsq-(s*(hfsq+R)+(k*ln2_lo+c)))-f); +} ----------------------------------------------------------------------- Summary of changes: src/lisp/s_log1p.c | 165 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 165 insertions(+) create mode 100644 src/lisp/s_log1p.c hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-08-28-g63929ee
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 63929ee776996a45c97444ffe807316ae6187e3c (commit) from bd30c83c9503bf6b5cb3f569e9b842e72772ae9b (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 63929ee776996a45c97444ffe807316ae6187e3c Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Aug 23 08:22:58 2014 -0700 Make atanh signal errors using fdlibm_setexception. * src/lisp/e_atanh.c * Use fdlibm_setexception * tests/trig.lisp: * Add tests for atanh diff --git a/src/lisp/e_atanh.c b/src/lisp/e_atanh.c index 3588436..aed70d4 100644 --- a/src/lisp/e_atanh.c +++ b/src/lisp/e_atanh.c @@ -57,10 +57,11 @@ static double zero = 0.0; lx = ux.i[LOWORD]; /* low word */ ix = hx&0x7fffffff; if ((ix|((lx|(-lx))>>31))>0x3ff00000) /* |x|>1 */ - return (x-x)/(x-x); - if(ix==0x3ff00000) - return x/zero; - if(ix<0x3e300000&&(huge+x)>zero) return x; /* x<2**-28 */ + return fdlibm_setexception(x, FDLIBM_INVALID); + if(ix==0x3ff00000) + return fdlibm_setexception(x, FDLIBM_DIVIDE_BY_ZERO); + + if(ix<0x3e300000&&(huge+x)>zero) return x; /* x<2**-28 */ ux.d = x; ux.i[HIWORD] = ix; /* x <- |x| */ x = ux.d; diff --git a/tests/trig.lisp b/tests/trig.lisp index d95db71..1b6102d 100644 --- a/tests/trig.lisp +++ b/tests/trig.lisp @@ -888,6 +888,26 @@ (kernel::with-float-traps-masked (:invalid) (assert-true (ext:float-nan-p (kernel:%asinh *snan*))))) +(define-test atanh.exceptions + (:tag :fdlibm) + (assert-error 'floating-point-invalid-operation + (kernel:%atanh 2d0)) + (assert-error 'floating-point-invalid-operation + (kernel:%atanh -2d0)) + (assert-error 'division-by-zero + (kernel:%atanh 1d0)) + (assert-error 'division-by-zero + (kernel:%atanh -1d0)) + (kernel::with-float-traps-masked (:invalid) + (assert-true (ext:float-nan-p (kernel:%atanh 2d0))) + (assert-true (ext:float-nan-p (kernel:%atanh -2d0)))) + (kernel::with-float-traps-masked (:divide-by-zero) + (assert-equal ext:double-float-positive-infinity + (kernel:%atanh 1d0)) + (assert-equal ext:double-float-negative-infinity + (kernel:%atanh -1d0)))) + + (define-test expm1.exceptions (:tag :fdlibm) (assert-error 'floating-point-overflow ----------------------------------------------------------------------- Summary of changes: src/lisp/e_atanh.c | 9 +++++---- tests/trig.lisp | 20 ++++++++++++++++++++ 2 files changed, 25 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch 20f-branch updated. snapshot-2014-09-6-g02c1bde
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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, 20f-branch has been updated via 02c1bde6f02c195a17d76dc57fd18562ef52bbea (commit) from ee7c488f2d0b57d8431ff3bff1b15bb58762e197 (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 02c1bde6f02c195a17d76dc57fd18562ef52bbea Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Sep 13 12:16:47 2014 -0700 Update the version. diff --git a/src/docs/cmu-user/cmu-user.tex b/src/docs/cmu-user/cmu-user.tex index ce45970..ee7eae0 100644 --- a/src/docs/cmu-user/cmu-user.tex +++ b/src/docs/cmu-user/cmu-user.tex @@ -48,7 +48,7 @@ \newcommand{\keywords}{lisp, Common Lisp, manual, compiler, programming language implementation, programming environment} -\date{October 2013 \\ 20e} +\date{October 2014 \\ 20f} \begin{document} ----------------------------------------------------------------------- Summary of changes: src/docs/cmu-user/cmu-user.tex | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-88-g022325c
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 022325ccf101a0e9085f0189c4ec54dc96cef52d (commit) via af7c3d9606ac3995c87611d3d4518430d3b67ebd (commit) via 59ad6f5166353a2019b922bfa02716b906008c85 (commit) from 4db363eca4f5a2c282f7b46bd1509095bcb6efec (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 022325ccf101a0e9085f0189c4ec54dc96cef52d Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Aug 3 19:07:30 2014 -0700 Initilize hi and lo to get rid of a compiler warning from gcc 4.4.1 on linux that they might be used uninitialized. diff --git a/src/lisp/e_exp.c b/src/lisp/e_exp.c index 3d84224..8233bc3 100644 --- a/src/lisp/e_exp.c +++ b/src/lisp/e_exp.c @@ -105,7 +105,7 @@ P5 = 4.13813679705723846039e-08; /* 0x3E663769, 0x72BEA4D0 */ double x; #endif { - double y,hi,lo,c,t; + double y,hi = 0,lo = 0,c,t; int k = 0; int xsb; unsigned hx; commit af7c3d9606ac3995c87611d3d4518430d3b67ebd Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Aug 3 18:53:24 2014 -0700 Add parens around operands of | to silence a compiler warning with gcc 4.4.1 on Linux. diff --git a/src/lisp/e_atan2.c b/src/lisp/e_atan2.c index 7e177e8..a841ace 100644 --- a/src/lisp/e_atan2.c +++ b/src/lisp/e_atan2.c @@ -75,7 +75,7 @@ pi_lo = 1.2246467991473531772E-16; /* 0x3CA1A626, 0x33145C07 */ if(((ix|((lx|-lx)>>31))>0x7ff00000)|| ((iy|((ly|-ly)>>31))>0x7ff00000)) /* x or y is NaN */ return x+y; - if((hx-0x3ff00000|lx)==0) return fdlibm_atan(y); /* x=1.0 */ + if(((hx-0x3ff00000)|lx)==0) return fdlibm_atan(y); /* x=1.0 */ m = ((hy>>31)&1)|((hx>>30)&2); /* 2*sign(x)+sign(y) */ /* when y = 0 */ commit 59ad6f5166353a2019b922bfa02716b906008c85 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Aug 3 18:50:44 2014 -0700 Initialize c to get rid of a compiler warning on Linux with gcc 4.4.1. diff --git a/src/lisp/s_expm1.c b/src/lisp/s_expm1.c index 6e35fd8..7431885 100644 --- a/src/lisp/s_expm1.c +++ b/src/lisp/s_expm1.c @@ -133,7 +133,7 @@ Q5 = -2.01099218183624371326e-07; /* BE8AFDB7 6E09C32D */ double x; #endif { - double y,hi,lo,c,t,e,hxs,hfx,r1; + double y,hi,lo,c = 0,t,e,hxs,hfx,r1; int k,xsb; unsigned hx; union { int i[2]; double d; } ux; diff --git a/src/lisp/s_log1p.c b/src/lisp/s_log1p.c index 87ed927..d8f2cad 100644 --- a/src/lisp/s_log1p.c +++ b/src/lisp/s_log1p.c @@ -103,7 +103,7 @@ static double zero = 0.0; double x; #endif { - double hfsq,f,c,s,z,R,u; + double hfsq,f,c = 0,s,z,R,u; int k,hx,hu,ax; union { int i[2]; double d; } ux; ----------------------------------------------------------------------- Summary of changes: src/lisp/e_atan2.c | 2 +- src/lisp/e_exp.c | 2 +- src/lisp/s_expm1.c | 2 +- src/lisp/s_log1p.c | 2 +- 4 files changed, 4 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-09-5-gee7c488
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 ee7c488f2d0b57d8431ff3bff1b15bb58762e197 (commit) from c042852462fc92df2da2259c191a909400199fb4 (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 ee7c488f2d0b57d8431ff3bff1b15bb58762e197 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Sep 11 22:37:35 2014 -0700 Oops. Source tarballs need to include the tests directory. diff --git a/bin/make-src-dist.sh b/bin/make-src-dist.sh index 1e1c016..7d2fc93 100755 --- a/bin/make-src-dist.sh +++ b/bin/make-src-dist.sh @@ -51,8 +51,8 @@ fi GTAR_OPTIONS="--exclude=.git --exclude='*.pot.~*~'" if [ -z "$INSTALL_DIR" ]; then echo " Compressing with $ZIP" - ${GTAR:-tar} ${GTAR_OPTIONS} -cf - bin src | ${ZIP} > cmucl-src-$VERSION.tar.$ZIPEXT + ${GTAR:-tar} ${GTAR_OPTIONS} -cf - bin src tests | ${ZIP} > cmucl-src-$VERSION.tar.$ZIPEXT else # Install in the specified directory - ${GTAR:-tar} ${GTAR_OPTIONS} -cf - bin src | (cd $INSTALL_DIR; ${GTAR:-tar} xf -) + ${GTAR:-tar} ${GTAR_OPTIONS} -cf - bin src tests | (cd $INSTALL_DIR; ${GTAR:-tar} xf -) fi ----------------------------------------------------------------------- Summary of changes: bin/make-src-dist.sh | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2013-05-1-gba06f21
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 ba06f21ff5d6192b78746bd634eacb69fee17739 (commit) from 32d261e41c94c72e95ea13ea87c89a4b6f13ee45 (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 ba06f21ff5d6192b78746bd634eacb69fee17739 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue May 14 20:02:28 2013 -0700 Wrap exports in eval-when. src/compiler/generic/objdef.lisp:: src/compiler/generic/utils.lisp:; src/compiler/generic/vm-macs.lisp:: src/compiler/sparc/c-callback.lisp:: src/compiler/sparc/parms.lisp:: When export lost its compile-time effects and became a normal function, the exports in many files no longer took affect while compiling the file. This change makes the compile-time effects happen as before in selected files. With this change, the sparc port can be cross-compiled from x86 again. src/tools/cross-scripts/cross-x86-sparc.lisp:: Need to frob CHAR-BYTES, which is needed by BYTE-BASH-COPY. . diff --git a/src/code/float-trap.lisp b/src/code/float-trap.lisp index 0995883..d97d04e 100644 --- a/src/code/float-trap.lisp +++ b/src/code/float-trap.lisp @@ -18,7 +18,9 @@ (in-package "VM") (intl:textdomain "cmucl") +(eval-when (:compile-toplevel :load-toplevel :execute) (export '(current-float-trap floating-point-modes sigfpe-handler)) +) (in-package "EXTENSIONS") (export '(set-floating-point-modes get-floating-point-modes with-float-traps-masked)) diff --git a/src/code/room.lisp b/src/code/room.lisp index 85e8a41..1c5418b 100644 --- a/src/code/room.lisp +++ b/src/code/room.lisp @@ -15,10 +15,12 @@ (use-package "SYSTEM") (intl:textdomain "cmucl") +(eval-when (:compile-toplevel :load-toplevel :execute) (export '(memory-usage count-no-ops descriptor-vs-non-descriptor-storage instance-usage find-holes print-allocated-objects code-breakdown uninterned-symbol-count list-allocated-objects)) +) (in-package "LISP") (import '( dynamic-0-space-start dynamic-1-space-start read-only-space-start diff --git a/src/code/sparc-svr4-vm.lisp b/src/code/sparc-svr4-vm.lisp index 92b7af0..646dbd4 100644 --- a/src/code/sparc-svr4-vm.lisp +++ b/src/code/sparc-svr4-vm.lisp @@ -17,10 +17,12 @@ (intl:textdomain "cmucl-sparc-vm") +(eval-when (:compile-toplevel :load-toplevel :execute) (export '(fixup-code-object internal-error-arguments sigcontext-program-counter sigcontext-register sigcontext-float-register sigcontext-floating-point-modes extern-alien-name sanctify-for-execution)) +) #+complex-fp-vops (sys:register-lisp-feature :complex-fp-vops) diff --git a/src/compiler/generic/objdef.lisp b/src/compiler/generic/objdef.lisp index da04b4f..d64178a 100644 --- a/src/compiler/generic/objdef.lisp +++ b/src/compiler/generic/objdef.lisp @@ -17,6 +17,7 @@ (in-package "VM") (intl:textdomain "cmucl") +(eval-when (:compile-toplevel :load-toplevel :execute) (export '(lowtag-bits lowtag-mask lowtag-limit type-bits type-mask target-most-positive-fixnum target-most-negative-fixnum even-fixnum-type function-pointer-type other-immediate-0-type @@ -52,6 +53,7 @@ complex-double-double-float-type simple-array-double-double-float-type simple-array-complex-double-double-float-type)) +) (in-package "KERNEL") (export '(%make-funcallable-instance diff --git a/src/compiler/generic/utils.lisp b/src/compiler/generic/utils.lisp index e036fa8..fe24ad0 100644 --- a/src/compiler/generic/utils.lisp +++ b/src/compiler/generic/utils.lisp @@ -17,8 +17,10 @@ (in-package "VM") (intl:textdomain "cmucl") +(eval-when (:compile-toplevel :load-toplevel :execute) (export '(fixnumize static-symbol-p static-symbol-offset offset-static-symbol static-function-offset)) +) diff --git a/src/compiler/generic/vm-macs.lisp b/src/compiler/generic/vm-macs.lisp index f97ac12..883cdb1 100644 --- a/src/compiler/generic/vm-macs.lisp +++ b/src/compiler/generic/vm-macs.lisp @@ -163,8 +163,8 @@ (forms `(def-alloc ,alloc-trans ,offset ,variable-length ,header ,lowtag ',(inits)))) `(progn - (export ',(exports)) (eval-when (compile load eval) + (export ',(exports)) (%define-primitive-object ',(make-primitive-object :name name :header header diff --git a/src/compiler/sparc/c-callback.lisp b/src/compiler/sparc/c-callback.lisp index 24bd7af..b1fa10c 100644 --- a/src/compiler/sparc/c-callback.lisp +++ b/src/compiler/sparc/c-callback.lisp @@ -13,8 +13,10 @@ (use-package "ALIEN-INTERNALS") ;;; Support for callbacks to Lisp. +(eval-when (:compile-toplevel :load-toplevel :execute) (export '(make-callback-trampoline callback-accessor-form compatible-function-types-p)) +) (defun callback-accessor-form (type sp offset) (let ((parsed-type (alien::parse-alien-type type))) diff --git a/src/compiler/sparc/parms.lisp b/src/compiler/sparc/parms.lisp index 4ff61bc..be73a40 100644 --- a/src/compiler/sparc/parms.lisp +++ b/src/compiler/sparc/parms.lisp @@ -61,6 +61,7 @@ ;;;; Machine Architecture parameters: +(eval-when (:compile-toplevel :load-toplevel :execute) (export '(word-bits byte-bits char-bits word-shift word-bytes char-bytes fixnum-tag-bits fixnum-tag-mask positive-fixnum-bits @@ -86,6 +87,7 @@ float-underflow-trap-bit float-overflow-trap-bit float-imprecise-trap-bit float-invalid-trap-bit float-divide-by-zero-trap-bit)) +) #+double-double (export '(double-double-float-digits)) @@ -208,11 +210,13 @@ ;;;; Description of the target address space. +(eval-when (:compile-toplevel :load-toplevel :execute) (export '(target-read-only-space-start target-static-space-start target-dynamic-space-start target-foreign-linkage-space-start target-foreign-linkage-entry-size)) +) ;;; Where to put the different spaces. Must match the C code! ;;; @@ -228,6 +232,7 @@ ;;;; Other random constants. +(eval-when (:compile-toplevel :load-toplevel :execute) (export '(halt-trap pending-interrupt-trap error-trap cerror-trap breakpoint-trap function-end-breakpoint-trap after-breakpoint-trap allocation-trap @@ -239,6 +244,7 @@ #+heap-overflow-check (export '(dynamic-space-overflow-error-trap dynamic-space-overflow-warning-trap)) +) (defenum (:suffix -trap :start 8) halt @@ -268,7 +274,9 @@ ;;;; Static symbols. +(eval-when (:compile-toplevel :load-toplevel :execute) (export '(static-symbols static-functions)) +) ;;; These symbols are loaded into static space directly after NIL so ;;; that the system can compute their address by adding a constant diff --git a/src/tools/cross-scripts/cross-x86-sparc.lisp b/src/tools/cross-scripts/cross-x86-sparc.lisp index 0e6dfbd..3525b69 100644 --- a/src/tools/cross-scripts/cross-x86-sparc.lisp +++ b/src/tools/cross-scripts/cross-x86-sparc.lisp @@ -186,8 +186,10 @@ (find-symbol ,(symbol-name sym) :vm)))) syms)))) - (frob OLD-VM:BYTE-BITS OLD-VM:WORD-BITS + (frob OLD-VM:BYTE-BITS + OLD-VM:WORD-BITS OLD-VM:CHAR-BITS + OLD-VM:CHAR-BYTES OLD-VM:LOWTAG-BITS #+long-float OLD-VM:SIMPLE-ARRAY-LONG-FLOAT-TYPE OLD-VM:SIMPLE-ARRAY-DOUBLE-FLOAT-TYPE ----------------------------------------------------------------------- Summary of changes: src/code/float-trap.lisp | 2 ++ src/code/room.lisp | 2 ++ src/code/sparc-svr4-vm.lisp | 2 ++ src/compiler/generic/objdef.lisp | 2 ++ src/compiler/generic/utils.lisp | 2 ++ src/compiler/generic/vm-macs.lisp | 2 +- src/compiler/sparc/c-callback.lisp | 2 ++ src/compiler/sparc/parms.lisp | 8 ++++++++ src/tools/cross-scripts/cross-x86-sparc.lisp | 4 +++- 9 files changed, 24 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch 19c-alpha-osf created. b09351d0b7440f482f40fab0ea24ea2b3a799ad1
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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, 19c-alpha-osf has been created at b09351d0b7440f482f40fab0ea24ea2b3a799ad1 (commit) - Log ----------------------------------------------------------------- commit b09351d0b7440f482f40fab0ea24ea2b3a799ad1 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Sep 14 20:53:09 2014 -0700 Cross-compile script from x86 to alpha. From Fausto Saporito. diff --git a/tools/cross-scripts/cross-x86-alpha.lisp b/tools/cross-scripts/cross-x86-alpha.lisp new file mode 100644 index 0000000..b116e19 --- /dev/null +++ b/tools/cross-scripts/cross-x86-alpha.lisp @@ -0,0 +1,182 @@ +(in-package :cl-user) + +;;; Rename the X86 package and backend so that new-backend does the +;;; right thing. +(rename-package "X86" "OLD-X86") +(setf (c:backend-name c:*native-backend*) "OLD-X86") + +(c::new-backend "ALPHA" + ;; Features to add here + '(:alpha + :conservative-float-type + :hash-new :random-mt19937 + :osf1 :bsd :unix + :cmu :cmu18 :cmu18e + ) + ;; Features to remove from current *features* here + '(:x86-bootstrap :mips :x86 :i486 :pentium :ppro :alien-callback + :propagate-fun-type :propagate-float-type :constrain-float-type + :modular-arith + :openbsd :freebsd :glibc2 :linux :pentium :linkage-table :elf :mp + :stack-checking :heap-overflow-check :sparc :ppc :darwin :complex-fp-vops + :gencgc :cgc :double-double :long-float :new-random :small)) + (setf *features* (remove :modular-arith *features*)) +(clrhash kernel::*modular-funs*) +;;; Extern-alien-name for the new backend. +(in-package :vm) +(setf *features* (remove :modular-arith *features*)) +(defun extern-alien-name (name) + (declare (type simple-string name)) + (concatenate 'string "_" name)) +(export 'extern-alien-name) +(export 'fixup-code-object) +(export 'sanctify-for-execution) + +;;; Compile the new backend. +(pushnew :bootstrap *features*) +(pushnew :building-cross-compiler *features*) +(load "target:tools/comcom") + +;;; Load the new backend. +(setf (search-list "c:") + '("target:compiler/")) +(setf (search-list "vm:") + '("c:alpha/" "c:generic/")) +(setf (search-list "assem:") + '("target:assembly/" "target:assembly/alpha/")) + +;; Load the backend of the compiler. + +(in-package "C") + +(load "vm:vm-macs") +(load "vm:parms") +(load "vm:objdef") +(load "vm:interr") +(load "assem:support") + +(load "target:compiler/srctran") +(load "vm:vm-typetran") +(load "target:compiler/float-tran") +(load "target:compiler/saptran") + +(load "vm:macros") +(load "vm:utils") + +(load "vm:vm") +(load "vm:insts") +(load "vm:primtype") +(load "vm:move") +(load "vm:sap") +(load "vm:system") +(load "vm:char") +(load "vm:float") + +(load "vm:memory") +(load "vm:static-fn") +(load "vm:arith") +(load "vm:cell") +(load "vm:subprim") +(load "vm:debug") +(load "vm:c-call") +(load "vm:print") +(load "vm:alloc") +(load "vm:call") +(load "vm:nlx") +(load "vm:values") +(load "vm:array") +(load "vm:pred") +(load "vm:type-vops") + +(load "assem:assem-rtns") + +(load "assem:array") +(load "assem:arith") +(load "assem:alloc") + +(load "c:pseudo-vops") + +(check-move-function-consistency) + +(load "vm:new-genesis") + +;;; OK, the cross compiler backend is loaded. + +(setf *features* (remove :building-cross-compiler *features*)) + +;;; Info environment hacks. +(macrolet ((frob (&rest syms) + `(progn ,@(mapcar #'(lambda (sym) + `(defconstant ,sym + (symbol-value + (find-symbol ,(symbol-name sym) + :vm)))) + syms)))) + (frob OLD-X86:BYTE-BITS OLD-X86:WORD-BITS + #+long-float OLD-X86:SIMPLE-ARRAY-LONG-FLOAT-TYPE + OLD-X86:SIMPLE-ARRAY-DOUBLE-FLOAT-TYPE + OLD-X86:SIMPLE-ARRAY-SINGLE-FLOAT-TYPE + #+long-float OLD-X86:SIMPLE-ARRAY-COMPLEX-LONG-FLOAT-TYPE + OLD-X86:SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT-TYPE + OLD-X86:SIMPLE-ARRAY-COMPLEX-SINGLE-FLOAT-TYPE + OLD-X86:SIMPLE-ARRAY-UNSIGNED-BYTE-2-TYPE + OLD-X86:SIMPLE-ARRAY-UNSIGNED-BYTE-4-TYPE + OLD-X86:SIMPLE-ARRAY-UNSIGNED-BYTE-8-TYPE + OLD-X86:SIMPLE-ARRAY-UNSIGNED-BYTE-16-TYPE + OLD-X86:SIMPLE-ARRAY-UNSIGNED-BYTE-32-TYPE + OLD-X86:SIMPLE-ARRAY-SIGNED-BYTE-8-TYPE + OLD-X86:SIMPLE-ARRAY-SIGNED-BYTE-16-TYPE + OLD-X86:SIMPLE-ARRAY-SIGNED-BYTE-30-TYPE + OLD-X86:SIMPLE-ARRAY-SIGNED-BYTE-32-TYPE + OLD-X86:SIMPLE-BIT-VECTOR-TYPE + OLD-X86:SIMPLE-STRING-TYPE OLD-X86:SIMPLE-VECTOR-TYPE + OLD-X86:SIMPLE-ARRAY-TYPE OLD-X86:VECTOR-DATA-OFFSET + )) + +(let ((function (symbol-function 'kernel:error-number-or-lose))) + (let ((*info-environment* (c:backend-info-environment c:*target-backend*))) + (setf (symbol-function 'kernel:error-number-or-lose) function) + (setf (info function kind 'kernel:error-number-or-lose) :function) + (setf (info function where-from 'kernel:error-number-or-lose) :defined))) + +(defun fix-class (name) + (let* ((new-value (find-class name)) + (new-layout (kernel::%class-layout new-value)) + (new-cell (kernel::find-class-cell name)) + (*info-environment* (c:backend-info-environment c:*target-backend*))) + (remhash name kernel::*forward-referenced-layouts*) + (kernel::%note-type-defined name) + (setf (info type kind name) :instance) + (setf (info type class name) new-cell) + (setf (info type compiler-layout name) new-layout) + new-value)) +(fix-class 'c::vop-parse) +(fix-class 'c::operand-parse) + +#+random-mt19937 +(declaim (notinline kernel:random-chunk)) + +(setf c:*backend* c:*target-backend*) + +;;; Extern-alien-name for the new backend. +(in-package :vm) +(defun extern-alien-name (name) + (declare (type simple-string name)) + (concatenate 'string "_" name)) +(export 'extern-alien-name) +(export 'fixup-code-object) +(export 'sanctify-for-execution) + +(in-package :cl-user) + +;;; Don't load compiler parts from the target compilation + +(defparameter *load-stuff* nil) + +;; hack, hack, hack: Make old-x86::any-reg the same as +;; x86::any-reg as an SC. Do this by adding old-x86::any-reg +;; to the hash table with the same value as x86::any-reg. + +(let ((ht (c::backend-sc-names c::*target-backend*))) + (setf (gethash 'old-x86::any-reg ht) + (gethash 'alpha::any-reg ht))) commit 16c7e026b7ba8a226d853e84fdf6286b24e329bd Author: rtoy <rtoy> Date: Tue Nov 15 14:50:06 2005 +0000 Update this to reflect current status. o Clean up version numbers o Remove the part about DEFSYSTEM. o Mention we only have UltraSPARC versions. o Remove the OpenBSD/x86 section o Add a section for Mac OS X/ppc. o Remove mention of binaries for Irix/MIPS and Linux/Alpha. diff --git a/general-info/README b/general-info/README index f8593fe..44f8f1c 100644 --- a/general-info/README +++ b/general-info/README @@ -37,25 +37,25 @@ example using cd /usr/local - tar xzf /path/to/cmucl-18e-<platform>.tar.gz + tar xzf /path/to/cmucl-<ver>-<platform>.tar.gz or alternatively, install under a directory in /opt, for example - mkdir /opt/cmucl-18e - cd /opt/cmucl-18e - tar xzf /path/to/cmucl-18e-<platform>.tar.gz + mkdir /opt/cmucl-<ver> + cd /opt/cmucl-<ver> + tar xzf /path/to/cmucl-<ver>-<platform>.tar.gz You can now invoke CMUCL: this should display a banner then show a prompt (the default prompt is an asterisk). % lisp - CMU Common Lisp 18e, running on orion - With core: /prj/cmucl/release-18e/linux/lisp/lisp.core + CMU Common Lisp 19c, running on orion + With core: /prj/cmucl/release-19c/linux/lisp/lisp.core Dumped on: Thu, 2003-04-03 15:47:12+02:00 on orion See <http://www.cons.org/cmucl/> for support information. Loaded subsystems: Python 1.1, target Intel x86 - CLOS 18e (based on PCL September 16 92 PCL (f)) + CLOS based on Gerd's PCL 2004/04/14 03:32:47 * (format t "~&Hello, world!~%") Hello, world! NIL @@ -65,23 +65,11 @@ -extra- tarball), just use REQUIRE: * (require :gray-streams) + * (require :simple-streams) * (require :clx) * (require :clm) * (require :hemlock) - DEFSYSTEM is not included with CMUCL, but can be obtained from - <URL:http://clocc.sf.net/>. It may be installed as a subsystem by - compiling it (using the function COMPILE-FILE), and moving the - resulting defsystem.FASL file to - /usr/local/lib/cmucl/lib/subsystems/defsystem-library.FASL - (where FASL is the file extension of compiled lisp files on your - system, for instance .sparcf or .x86f). You can then say - - * (require :defsystem) - - to load the DEFSYSTEM facility into your running lisp. - - You may wish to edit your site initialization file (in /usr/local/lib/cmucl/site-init.lisp). @@ -92,11 +80,9 @@ (also known respectively as Solaris 7 and Solaris 8), and should work on any later versions. - If you have an UltraSPARC processor you can get the v9 binaries, - which use instructions which are only present on SPARC-v9 (also called - v8plus for 32bit binaries) implementations; otherwise you should get - the binaries without v9 in the name of the tarball, which only require - a SPARC-v8 implementation. + Currently, only UltraSPARC binaries are provided, so you need an + UltraSPARC machine. For older machines, you will need a special + build. Please ask on the mailing lists if such builds are available. If you have an UltraSPARC the command uname -m will say sun4u, if you have an older machine such as a SparcStation it will probably say sun4m. @@ -126,17 +112,18 @@ 4.x releases. - +++ OpenBSD/x86 - The release binaries should work with any i486 or better processor. - The binaries were built on OpenBSD 3.1. + +++ Mac OS X/ppc + The release binaries are built on a Mac OS X 10.4.x system. They + are also known to work on 10.3.x. They may not work on 10.2.x. + The binaries should work on any Power PC system, including G3, G4, + and G5's. +++ Other platforms - Binaries for other platforms supported by 18e sources might be made + Binaries for other platforms supported by 19c sources might be made available by contributors at later dates, the details of which were - not available at release time. Especially binaries for Irix/MIPS - and Linux/Alpha are likely to be available. Please see the README - file distributed with those binaries for details on platform-specific + not available at release time. Please see the README file + distributed with those binaries for details on platform-specific notes for those platforms. @@ -151,4 +138,4 @@ Enjoy using CMUCL! -2003-04-08 +2005-11-15 commit 2564cc4bd9bdcf8b462593f33fd915d85ba75492 Author: rtoy <rtoy> Date: Mon Nov 14 16:33:36 2005 +0000 Update the date of the manual. diff --git a/docs/cmu-user/cmu-user.tex b/docs/cmu-user/cmu-user.tex index a2e1981..444da1c 100644 --- a/docs/cmu-user/cmu-user.tex +++ b/docs/cmu-user/cmu-user.tex @@ -46,7 +46,7 @@ \newcommand{\keywords}{lisp, Common Lisp, manual, compiler, programming language implementation, programming environment} -\date{CMUCL snapshot 2005-08} +\date{Nov 2005 \\ Release 19c} % \date{May 1, 2004 \\ Release 19a} commit 3f3ef1a1c072c1ffae129a6863c4e28fa2acd132 Author: rtoy <rtoy> Date: Tue Nov 8 17:32:37 2005 +0000 Remove the work-in-progress line. diff --git a/general-info/release-19c.txt b/general-info/release-19c.txt index cb9769b..e904dc5 100644 --- a/general-info/release-19c.txt +++ b/general-info/release-19c.txt @@ -1,7 +1,5 @@ ========================== C M U C L 19 c ============================= -[--- WORK IN PROGRESS --- DO NOT DISTRIBUTE ---] - The CMUCL project is pleased to announce the release of CMUCL 19c. This is a major release which contains numerous enhancements and bugfixes from the 19b release. commit 2312a5b1e7bca9ff2fc0c68322c5a336b0c7b9e5 Author: rtoy <rtoy> Date: Fri Oct 21 13:49:34 2005 +0000 Merge: Fix typo. It's ":-", not "-:"! diff --git a/tools/build-world.sh b/tools/build-world.sh index 5cfe684..9a76e10 100755 --- a/tools/build-world.sh +++ b/tools/build-world.sh @@ -43,7 +43,7 @@ $LISP "$@" -noinit -nositeinit <<EOF (comf "target:tools/setup" :load t) (setq *gc-verbose* nil) -(setq *interactive* ${INTERACTIVE-:nil}) +(setq *interactive* ${INTERACTIVE:-nil}) (setq debug:*debug-print-level* nil) (setq debug:*debug-print-length* nil) commit a5a1acd3bf33594becbb787bd3c2fa34f2d9b917 Merge: ebda738 24d534c Author: cvs2git <cvs2git> Date: Tue Oct 18 13:29:13 2005 +0000 This commit was manufactured by cvs2svn to create branch 'release-19c- branch'. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. begin-x87-removal-11-gde72f98
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 de72f9875abf89fd7084afbd56f9d4eb72094d5b (commit) from e885c18578fba479fca8e55cd1502ea76e1fb027 (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 de72f9875abf89fd7084afbd56f9d4eb72094d5b Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Apr 13 11:52:11 2014 -0700 Print more digits for % passed since we have 75K tests now. diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp index 1502e89..8046c7d 100644 --- a/tests/run-tests.lisp +++ b/tests/run-tests.lisp @@ -90,7 +90,7 @@ (format t " ~5D tests total~%" (+ passed failed execute-errors)) (format t " ~5D tests failed~%" failed) (format t " ~5D tests with execution errors~%" execute-errors) - (format t "~5,2f% of the tests passed~%" + (format t "~5,3f% of the tests passed~%" (float (* 100 (- 1 (/ (+ failed execute-errors) (+ passed failed execute-errors)))))) ----------------------------------------------------------------------- Summary of changes: tests/run-tests.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-14-g731988d
by rtoy＠common-lisp.net 08 Apr '15

08 Apr '15

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 731988d4e4ad9fb62bbf4aeae8e200644ac3113c (commit) from c7bf8f8fe16c0bc1a9c9c65060033046855eca82 (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 731988d4e4ad9fb62bbf4aeae8e200644ac3113c Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Jul 22 10:29:56 2014 -0700 Oops. Need k_sin and k_cos for sincos. diff --git a/src/lisp/Config.ppc_darwin b/src/lisp/Config.ppc_darwin index a4516a8..9738f9b 100644 --- a/src/lisp/Config.ppc_darwin +++ b/src/lisp/Config.ppc_darwin @@ -74,6 +74,12 @@ OS_LIBS = -lSystem -lc -lm e_rem_pio2.o : e_rem_pio2.c $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< -OS_SRC += sincos.c +OS_SRC += k_sin.c k_cos.c sincos.c + +k_sin.o : k_sin.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< +k_cos.o : k_cos.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< + sincos.o : sincos.c $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< ----------------------------------------------------------------------- Summary of changes: src/lisp/Config.ppc_darwin | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0