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

[git] CMU Common Lisp branch master updated. snapshot-2014-06-26-g13f320d
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 13f320d9568705f58010d456b957917b2d2c62c6 (commit) from 7e56a8c7ebb5b33e2d755ef725900fd4310ffc3e (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 13f320d9568705f58010d456b957917b2d2c62c6 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu Jul 31 15:36:12 2014 -0700 Ignore emacs ~ files and fasls. diff --git a/.gitignore b/.gitignore index 614b6ed..270ed56 100644 --- a/.gitignore +++ b/.gitignore @@ -7,6 +7,16 @@ sparc-[234] sparc-8bit-[234] build-* +# Ignore emacs files +*~ + +# Ignore fasls +*.fasl +*.sse2f +*.x86f +*.ppcf +*.sparcf + # Ignore files generated by TeX src/docs/cmu-user/*.aux src/docs/cmu-user/*.cdx ----------------------------------------------------------------------- Summary of changes: .gitignore | 10 ++++++++++ 1 file changed, 10 insertions(+) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp annotated tag release-20e created. release-20e
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 annotated tag, release-20e has been created at aae88c72564e5073fc47c26383db5ef2f7ca16a8 (tag) tagging bc828bed51339b951d84d2a264adf0221172f126 (commit) replaces snapshot-2013-09 tagged by Raymond Toy on Sat Sep 28 07:43:33 2013 -0700 - Log ----------------------------------------------------------------- Release 20e -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.13 (Darwin) iEYEABECAAYFAlJG6x4ACgkQJ5IjUmgZO7I/3gCgo4r1uuBbV0u/oPD/vUmFp9s+ b+AAn0acCjDrByiqMYTeekZHl8MKIf46 =dBUk -----END PGP SIGNATURE----- Raymond Toy (9): Change Sparc default variant to sparc_sunc instead of sparc_gcc. Allow disabling the use of git for the file-comment. Set lvshort to solaris too if lisp_variant=sparc*. Support all sun4 archs, not just sun4u. (sun4v is T1). Update for new documentation. Update for release 20e. Update to date to Oct 2013, 20e. Make :plus-integer actually print + or - as documented. Update for 20e. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2013-09-6-gaca64f0
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 aca64f0932d5ae34c1dca7d7819dd4a6319a7a5c (commit) from 2cf92cd01a7f68639b9fc970a69547c6427dfbc4 (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 aca64f0932d5ae34c1dca7d7819dd4a6319a7a5c Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Sep 21 12:07:23 2013 -0700 Update for release 20e. * src/compiler/byte-comp.lisp * Update fasl file version to 20e * bootfiles/20d/boot-20e.lisp * Use this during a normal compile to update to 20e. diff --git a/src/bootfiles/20d/boot-20e.lisp b/src/bootfiles/20d/boot-20e.lisp new file mode 100644 index 0000000..b40a118 --- /dev/null +++ b/src/bootfiles/20d/boot-20e.lisp @@ -0,0 +1,68 @@ +;;;; +;;;; Boot file for changing the fasl file version numbers to 20e. +;;;; + +(in-package :c) + +(setf lisp::*enable-package-locked-errors* nil) + +;;; +;;; Note that BYTE-FASL-FILE-VERSION is a constant. +;;; +;;; (Be sure to change BYTE-FASL-FILE-VERSION in +;;; compiler/byte-comp.lisp to the correct value too!) +;;; +#-cmu20e +(setf (symbol-value 'byte-fasl-file-version) #x20e) +#-cmu20e +(setf (backend-fasl-file-version *target-backend*) #x20e) + +;;; +;;; Don't check fasl versions in the compiling Lisp because we'll +;;; load files compiled with the new version numbers. +;;; +#-cmu20e +(setq lisp::*skip-fasl-file-version-check* t) + +;;; +;;; This is here because BYTE-FASL-FILE-VERSION is constant-folded in +;;; OPEN-FASL-FILE. To make the new version number take effect, we +;;; have to redefine the function. +;;; +#-cmu20e +(defun open-fasl-file (name where &optional byte-p) + (declare (type pathname name)) + (let* ((stream (open name :direction :output + :if-exists :new-version + :element-type '(unsigned-byte 8) + :class 'binary-text-stream)) + (res (make-fasl-file :stream stream))) + (multiple-value-bind + (version f-vers f-imp) + (if byte-p + (values "Byte code" + byte-fasl-file-version + (backend-byte-fasl-file-implementation *backend*)) + (values (backend-version *backend*) + (backend-fasl-file-version *backend*) + (backend-fasl-file-implementation *backend*))) + (format stream + "FASL FILE output from ~A.~@ + Compiled ~A on ~A~@ + Compiler ~A, Lisp ~A~@ + Targeted for ~A, FASL version ~X~%" + where + (ext:format-universal-time nil (get-universal-time)) + (machine-instance) compiler-version + (lisp-implementation-version) + version f-vers) + ;; + ;; Terminate header. + (dump-byte 255 res) + ;; + ;; Specify code format. + (dump-fop 'lisp::fop-long-code-format res) + (dump-byte f-imp res) + (dump-unsigned-32 f-vers res)) + res)) + diff --git a/src/compiler/byte-comp.lisp b/src/compiler/byte-comp.lisp index b89c70b..49810d6 100644 --- a/src/compiler/byte-comp.lisp +++ b/src/compiler/byte-comp.lisp @@ -38,7 +38,7 @@ ;; 0-9 followed by a single hex digit in the range a-f. Then the ;; version looks like a decimal number followed by a minor release ;; letter of a to f. -(defconstant byte-fasl-file-version #x20d) +(defconstant byte-fasl-file-version #x20e) (let* ((version-string (format nil "~X" byte-fasl-file-version))) ;; Add :cmu<n> to *features* ----------------------------------------------------------------------- Summary of changes: src/bootfiles/{20b/boot-20c.lisp => 20d/boot-20e.lisp} | 14 +++++++------- src/compiler/byte-comp.lisp | 2 +- 2 files changed, 8 insertions(+), 8 deletions(-) copy src/bootfiles/{20b/boot-20c.lisp => 20d/boot-20e.lisp} (89%) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-70-gefbeb89
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 efbeb89b14488c258f8f95e4f443460e428a2046 (commit) via 18e4370220c8b585a61fc5d935396be7676cf27e (commit) from 60d71b68ef6af3e5fb3e045f7ce2a42a5ff23ac1 (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 efbeb89b14488c258f8f95e4f443460e428a2046 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Aug 2 15:38:45 2014 -0700 Use the fdlibm inverse hyperbolic functions. diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index 86c7d9e..4ea134e 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -74,9 +74,9 @@ (def-math-rtn ("__ieee754_sinh" %sinh) 1) (def-math-rtn ("__ieee754_cosh" %cosh) 1) (def-math-rtn ("fdlibm_tanh" %tanh) 1) -(def-math-rtn "asinh" 1) -(def-math-rtn "acosh" 1) -(def-math-rtn "atanh" 1) +(def-math-rtn ("fdlibm_asinh" %asinh) 1) +(def-math-rtn ("__ieee754_acosh" %acosh) 1) +(def-math-rtn ("__ieee754_atanh" %atanh) 1) ;;; Exponential and Logarithmic. (def-math-rtn ("__ieee754_exp" %exp) 1) commit 18e4370220c8b585a61fc5d935396be7676cf27e Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Aug 2 15:37:59 2014 -0700 Compile the fdlibm inverse hyperbolics. diff --git a/src/lisp/Config.x86_darwin b/src/lisp/Config.x86_darwin index 7ced0db..d260368 100644 --- a/src/lisp/Config.x86_darwin +++ b/src/lisp/Config.x86_darwin @@ -21,7 +21,8 @@ EXEC_FINAL_OBJ = exec-final.o OS_SRC += k_sin.c k_cos.c k_tan.c s_sin.c s_cos.c s_tan.c sincos.c \ s_log1p.c s_expm1.c e_pow.c e_exp.c e_log.c \ e_acos.c e_asin.c s_atan.c \ - e_cosh.c e_sinh.c s_tanh.c + e_cosh.c e_sinh.c s_tanh.c \ + e_acosh.c s_asinh.c e_atanh.c k_sin.o : k_sin.c $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< @@ -65,3 +66,9 @@ e_sinh.o : e_sinh.c $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< s_tanh.o : s_tanh.c $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< +e_acosh.o : e_acosh.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< +e_asinh.o : s_asinh.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< +e_atanh.o : e_atanh.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< ----------------------------------------------------------------------- Summary of changes: src/code/irrat.lisp | 6 +++--- src/lisp/Config.x86_darwin | 9 ++++++++- 2 files changed, 11 insertions(+), 4 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2013-04-19-ga8f7a91
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 a8f7a91b07a24653205c5fd8bf896c96d181afa6 (commit) from 431765cfb80004b7bbde8cc6dcd43bbfc1e17e4c (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 a8f7a91b07a24653205c5fd8bf896c96d181afa6 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat May 4 12:51:34 2013 -0700 Remove old Config files that are no longer used or supported. diff --git a/src/lisp/Config.linux b/src/lisp/Config.linux deleted file mode 100644 index 5f7dbc6..0000000 --- a/src/lisp/Config.linux +++ /dev/null @@ -1,18 +0,0 @@ -PATH1 = ../../src/lisp -vpath %.h $(PATH1) -vpath %.c $(PATH1) -vpath %.S $(PATH1) -CPPFLAGS = -I. -I$(PATH1) -I- -CC = gcc -m32 -LD = ld -CPP = cpp -CFLAGS = -Wstrict-prototypes -Wall -O2 -g -DWANT_CGC -m486 -ASFLAGS = -g -DWANT_CGC -NM = $(PATH1)/linux-nm -UNDEFSYMPATTERN = -Xlinker -u -Xlinker & -ASSEM_SRC = x86-assem.S linux-stubs.S -ARCH_SRC = x86-arch.c -OS_SRC = Linux-os.c os-common.c -OS_LINK_FLAGS = -Xlinker --export-dynamic -OS_LIBS = -ldl -GC_SRC = cgc.c diff --git a/src/lisp/Config.linux_gencgc b/src/lisp/Config.linux_gencgc deleted file mode 100644 index 23f5b23..0000000 --- a/src/lisp/Config.linux_gencgc +++ /dev/null @@ -1,68 +0,0 @@ -# -*- Mode: makefile -*- -PATH1 = ../../src/lisp -vpath %.h $(PATH1) -vpath %.c $(PATH1) -vpath %.S $(PATH1) -CC ?= gcc -LD = ld -CPP = cpp - - -RUNTIME += -m32 -Di386 - -# Enable support for :linkage-table feature. -ifdef FEATURE_LINKAGE_TABLE -RUNTIME += -DLINKAGE_TABLE -endif - -# Enable support for generational GC -ifdef FEATURE_GENCGC -RUNTIME += -DGENCGC -GC_SRC = gencgc.c -endif - -# Enable support for SSE2. If FEATURE_X87 is set, we want SSE2 -# support in the C code too so that the same binary is built in both -# cases. If neither is set, then we don't want any SSE2 support at -# all. -ifdef FEATURE_X87 -RUNTIME += -DFEATURE_SSE2 -else -ifdef FEATURE_SSE2 -RUNTIME += -DFEATURE_SSE2 -endif -endif - -# Enable support for Unicode -ifdef FEATURE_UNICODE -RUNTIME += -DUNICODE -endif - -# __NO_CTYPE so builds on glibc 2.3 will run on (some) older glibc's. -ifneq (,$(filter 2% 3%, $(shell $(CC) -dumpversion))) -CPPFLAGS = -D__NO_CTYPE -D_GNU_SOURCE -I. -I$(PATH1) -I- $(RUNTIME) -else -CPPFLAGS = -D__NO_CTYPE -D_GNU_SOURCE -iquote. -iquote $(PATH1) $(RUNTIME) -endif - -CFLAGS += -rdynamic -Wstrict-prototypes -Wall -O2 -g $(RUNTIME) -ASFLAGS = -g $(RUNTIME) -NM = $(PATH1)/linux-nm -UNDEFSYMPATTERN = -Xlinker -u -Xlinker & -ASSEM_SRC = x86-assem.S linux-stubs.S -ARCH_SRC = x86-arch.c -OS_SRC = Linux-os.c os-common.c elf.c e_rem_pio2.c k_rem_pio2.c -OS_LINK_FLAGS = -m32 -rdynamic -Xlinker --export-dynamic -Xlinker -Map -Xlinker foo -OS_LIBS = -ldl -#GC_SRC = gencgc.c - -# e_rem_pio2.c has strict aliasing issues. Compile this with -# strict-aliasing rules turned off. To see this failure, try -# computing (cos (expt 2d0 120)). This should be near -# -0.92587902285.... If not, then e_rem_pio2 has been miscompiled. -# -# Use -ffloat-store to make sure we get double-float arithmetic -# instead of extended. -e_rem_pio2.o : e_rem_pio2.c - $(CC) -c -fno-strict-aliasing -ffloat-store $(CFLAGS) $< - diff --git a/src/lisp/Config.sun4_mach b/src/lisp/Config.sun4_mach deleted file mode 100644 index 4e02ed9..0000000 --- a/src/lisp/Config.sun4_mach +++ /dev/null @@ -1,11 +0,0 @@ -CPPFLAGS = -I. -CC = gcc # -Wall -Wstrict-prototypes -Wmissing-prototypes -CPP = /usr/cs/lib/cpp -CFLAGS = -g -ASFLAGS = -g -NM = nm -gp -ASSEM_SRC = sparc-assem.S -ARCH_SRC = sparc-arch.c -OS_SRC = mach-os.c os-common.c undefineds.c -OS_LINK_FLAGS= -OS_LIBS=-lmach diff --git a/src/lisp/Config.sun4_solaris_gcc b/src/lisp/Config.sun4_solaris_gcc deleted file mode 100644 index 7d479b8..0000000 --- a/src/lisp/Config.sun4_solaris_gcc +++ /dev/null @@ -1,66 +0,0 @@ -# -*- Mode: makefile -*- -# These tell gmake where to look for .h, .c and .S files. Mostly for -# building the binary outside of the src tree. - - -PATH1 = ../../src/lisp -vpath %.h .:$(PATH1) -vpath %.c .:$(PATH1) -vpath %.S .:$(PATH1) - -# For v8plus support (allows 64-bit integer support on V9 -# architectures), uncomment the definitions for CC_V8PLUS and -# AS_V8PLUS. The -Wa,xarch=v8plus option tells the assembler to -# accept v8plus instructions and generate a v8plus object files and -# executable. -# -# However, we should also make sure the binary is marked as v8plus by -# enabling AS_V8PLUS whenever we have the :sparc-v9 *feature* enabled -# because we really are a v8plus application by using some of the v9 -# instructions, even if we don't use the 64-bit registers. - -#CC_V8PLUS = -xarch=v8plus -ifdef FEATURE_SPARC_V9 -AS_V8PLUS = -Wa,-xarch=v8plus -endif - -# Enable support for :linkage-table feature. - -ifdef FEATURE_LINKAGE_TABLE -LINKAGE = -DLINKAGE_TABLE -endif - -# Enable support for generational GC -ifdef FEATURE_GENCGC -GENCGC = -DGENCGC -GC_SRC = gencgc.c -endif - -CPPFLAGS = -I. -I$(PATH1) -DSOLARIS -DSVR4 $(CC_V8PLUS) $(LINKAGE) $(GENCGC) - -# Note: If you want to be able to use gdb with cmucl, you need to use -# gdb 4.18 (or earlier?) or use gdb 6.8. Versions 5.x and later -# (including 6.3) appear to be incapable of passing signals (SIGILL -# and SIGSEGV) to lisp properly. -# -# But, gcc 3.3.3 and later appear to produce executables that gdb 4.18 -# can't handle. So, we should probably stick with gcc 3.3.2. Adjust -# the CC variable appropriately, if necessary. But gdb 6.8 handles -# 3.4.3 just fine. - -CC = gcc -O -Wall -#CC = /apps/gnu/solaris2.8/gcc-3.3.3/bin/gcc -O1 -Wall -CPP = gcc -E -CFLAGS = -g $(AS_V8PLUS) - -# Needed for sys/asm_linkage.h and sparc-assem.S (at least in 2.3) -# Note that the sys/asm_linkage.h braindamage breaks make depend -ASFLAGS = -g -traditional-cpp $(AS_V8PLUS) -DEPEND_FLAGS = -traditional-cpp -NM = $(PATH1)/solaris-nm -ASSEM_SRC = sparc-assem.S -ARCH_SRC = sparc-arch.c - -OS_SRC = solaris-os.c os-common.c undefineds.c elf.c k_rem_pio2.c -OS_LINK_FLAGS= -OS_LIBS= -lsocket -lnsl -ldl diff --git a/src/lisp/Config.sun4_solaris_sunc b/src/lisp/Config.sun4_solaris_sunc deleted file mode 100644 index 2b8f4c1..0000000 --- a/src/lisp/Config.sun4_solaris_sunc +++ /dev/null @@ -1,60 +0,0 @@ -# -*- Mode: makefile -*- -# These tell gmake where to look for .h, .c and .S files. Mostly for -# building the binary outside of the src tree. - -PATH1 = ../../src/lisp -vpath %.h .:$(PATH1) -vpath %.c .:$(PATH1) -vpath %.S .:$(PATH1) - -# For v8plus support (allows 64-bit integer support on V9 -# architectures), uncomment the definitions for CC_V8PLUS and -# AS_V8PLUS. The -Wa,xarch=v8plus option tells the assembler to -# accept v8plus instructions and generate a v8plus object files and -# executable. -# -# However, we should also make sure the binary is marked as v8plus by -# enabling AS_V8PLUS whenever we have the :sparc-v9 *feature* enabled -# because we really are a v8plus application by using some of the v9 -# instructions, even if we don't use the 64-bit registers. - -ifdef FEATURE_SPARC_V9 -CC_V8PLUS = -xarch=v8plus -AS_V8PLUS = -xarch=v8plus -endif - -# Enable support for :linkage-table feature. - -ifdef FEATURE_LINKAGE_TABLE -LINKAGE = -DLINKAGE_TABLE -endif - -# Enable support for generational GC -ifdef FEATURE_GENCGC -GENCGC = -DGENCGC -GC_SRC = gencgc.c -endif - -# Enable support for Unicode -ifdef FEATURE_UNICODE -UNICODE = -DUNICODE -endif - -CPPFLAGS = -I. -I$(PATH1) -DSOLARIS -DSVR4 $(CC_V8PLUS) $(LINKAGE) $(GENCGC) $(UNICODE) - - -CC = cc -xlibmieee -CPP = cc -E -CFLAGS = -g $(CC_V8PLUS) -ASFLAGS = $(AS_V8PLUS) - -NM = $(PATH1)/solaris-nm -ASSEM_SRC = sparc-assem.S -ARCH_SRC = sparc-arch.c - -DEPEND=$(CC) -DEPEND_FLAGS = -xM -OS_SRC = solaris-os.c os-common.c undefineds.c elf.c k_rem_pio2.c -OS_LINK_FLAGS= -OS_LIBS= -lsocket -lnsl -ldl - diff --git a/src/lisp/Config.sun4c_41 b/src/lisp/Config.sun4c_41 deleted file mode 100644 index 50e2325..0000000 --- a/src/lisp/Config.sun4c_41 +++ /dev/null @@ -1,11 +0,0 @@ -CPPFLAGS = -I. -DSUNOS -CC = gcc # -Wall -Wstrict-prototypes -Wmissing-prototypes -CPP = /lib/cpp -CFLAGS = -O -ASFLAGS = -O -NM = nm -gp -ASSEM_SRC = sparc-assem.S -ARCH_SRC = sparc-arch.c -OS_SRC = sunos-os.c os-common.c undefineds.c -OS_LINK_FLAGS= -Xlinker -Bstatic -OS_LIBS= ----------------------------------------------------------------------- Summary of changes: src/lisp/Config.linux | 18 ---------- src/lisp/Config.linux_gencgc | 68 ------------------------------------- src/lisp/Config.sun4_mach | 11 ------ src/lisp/Config.sun4_solaris_gcc | 66 ----------------------------------- src/lisp/Config.sun4_solaris_sunc | 60 -------------------------------- src/lisp/Config.sun4c_41 | 11 ------ 6 files changed, 234 deletions(-) delete mode 100644 src/lisp/Config.linux delete mode 100644 src/lisp/Config.linux_gencgc delete mode 100644 src/lisp/Config.sun4_mach delete mode 100644 src/lisp/Config.sun4_solaris_gcc delete mode 100644 src/lisp/Config.sun4_solaris_sunc delete mode 100644 src/lisp/Config.sun4c_41 hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-45-gf11c37a
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 f11c37a6547e87f5438a6f66969c7f531e061054 (commit) via 97c487dd456274b3b9de77aedc5d6189e063f394 (commit) from 6d3144f9382a4aede51913d7465d300a320412e3 (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 f11c37a6547e87f5438a6f66969c7f531e061054 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Aug 1 20:16:18 2014 -0700 Use __ieee754_pow instead of pow. diff --git a/src/code/irrat.lisp b/src/code/irrat.lisp index 1a942fe..8f29490 100644 --- a/src/code/irrat.lisp +++ b/src/code/irrat.lisp @@ -83,7 +83,7 @@ (def-math-rtn "log" 1) (def-math-rtn "log10" 1) -(def-math-rtn "pow" 2) +(def-math-rtn ("__ieee754_pow" %pow) 2) #-(or x86 sparc-v7 sparc-v8 sparc-v9) (def-math-rtn "sqrt" 1) (def-math-rtn "hypot" 2) commit 97c487dd456274b3b9de77aedc5d6189e063f394 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Fri Aug 1 20:15:49 2014 -0700 Compile e_pow as a part of lisp. diff --git a/src/lisp/Config.x86_darwin b/src/lisp/Config.x86_darwin index 70c2df4..ccf021d 100644 --- a/src/lisp/Config.x86_darwin +++ b/src/lisp/Config.x86_darwin @@ -18,7 +18,7 @@ OS_LIBS = EXEC_FINAL_OBJ = exec-final.o -OS_SRC += k_sin.c k_cos.c k_tan.c s_sin.c s_cos.c s_tan.c sincos.c s_log1p.c s_expm1.c +OS_SRC += k_sin.c k_cos.c k_tan.c s_sin.c s_cos.c s_tan.c sincos.c s_log1p.c s_expm1.c e_pow.c k_sin.o : k_sin.c $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< @@ -41,3 +41,6 @@ s_log1p.o : s_log1p.c $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< s_exmp1.o : s_expm1.c $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< + +e_pow.o : e_pow.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< ----------------------------------------------------------------------- Summary of changes: src/code/irrat.lisp | 2 +- src/lisp/Config.x86_darwin | 5 ++++- 2 files changed, 5 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-16-g0c78392
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 0c78392056e9471f98f63e32a03ba5ab9e6bbc97 (commit) from 4649f97b516a36cb6c2a3b1bec99cccd086cbd59 (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 0c78392056e9471f98f63e32a03ba5ab9e6bbc97 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Jul 23 19:37:54 2014 -0700 Put back the deftransforms for sin/cos/tan so we can call out directly to C. diff --git a/src/compiler/float-tran.lisp b/src/compiler/float-tran.lisp index 08ce90b..2d8d829 100644 --- a/src/compiler/float-tran.lisp +++ b/src/compiler/float-tran.lisp @@ -716,6 +716,9 @@ (dolist (stuff '((exp %exp *) (log %log float) (sqrt %sqrt float) + (sin %asin float) + (cos %cos float) + (tan %tan float) (asin %asin float) (acos %acos float) (atan %atan *) ----------------------------------------------------------------------- Summary of changes: src/compiler/float-tran.lisp | 3 +++ 1 file changed, 3 insertions(+) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2013-08-5-g864c24b
by cshapiro＠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 864c24bdd0abbf86dd35529c79657c9ed3db62ac (commit) from 650e76e600ca917d38a343d3751b5743aee324bb (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 864c24bdd0abbf86dd35529c79657c9ed3db62ac Author: Carl Shapiro <cshapiro(a)common-lisp.net> Date: Sun Aug 11 00:21:33 2013 -0700 Fix compiler warnings in the runtime. diff --git a/src/lisp/Darwin-os.c b/src/lisp/Darwin-os.c index c18d47f..693cbf6 100644 --- a/src/lisp/Darwin-os.c +++ b/src/lisp/Darwin-os.c @@ -484,10 +484,6 @@ in_range_p(os_vm_address_t a, lispobj sbeg, size_t slen) boolean valid_addr(os_vm_address_t addr) { - os_vm_address_t newaddr; - - newaddr = os_trunc_to_page(addr); - if (in_range_p(addr, READ_ONLY_SPACE_START, read_only_space_size) || in_range_p(addr, STATIC_SPACE_START, static_space_size) || in_range_p(addr, DYNAMIC_0_SPACE_START, dynamic_space_size) diff --git a/src/lisp/FreeBSD-os.c b/src/lisp/FreeBSD-os.c index e42ea5b..51c295b 100644 --- a/src/lisp/FreeBSD-os.c +++ b/src/lisp/FreeBSD-os.c @@ -218,10 +218,6 @@ in_range_p(os_vm_address_t a, lispobj sbeg, size_t slen) boolean valid_addr(os_vm_address_t addr) { - os_vm_address_t newaddr; - - newaddr = os_trunc_to_page(addr); - if (in_range_p(addr, READ_ONLY_SPACE_START, read_only_space_size) || in_range_p(addr, STATIC_SPACE_START, static_space_size) || in_range_p(addr, DYNAMIC_0_SPACE_START, dynamic_space_size) diff --git a/src/lisp/Linux-os.c b/src/lisp/Linux-os.c index cbd25fd..7f7a4d7 100644 --- a/src/lisp/Linux-os.c +++ b/src/lisp/Linux-os.c @@ -381,10 +381,6 @@ in_range_p(os_vm_address_t a, lispobj sbeg, size_t slen) boolean valid_addr(os_vm_address_t addr) { - os_vm_address_t newaddr; - - newaddr = os_trunc_to_page(addr); - if (in_range_p(addr, READ_ONLY_SPACE_START, read_only_space_size) || in_range_p(addr, STATIC_SPACE_START, static_space_size) || in_range_p(addr, DYNAMIC_0_SPACE_START, dynamic_space_size) diff --git a/src/lisp/NetBSD-os.c b/src/lisp/NetBSD-os.c index e73d693..7b73529 100644 --- a/src/lisp/NetBSD-os.c +++ b/src/lisp/NetBSD-os.c @@ -271,10 +271,6 @@ in_range_p(os_vm_address_t a, lispobj sbeg, size_t slen) boolean valid_addr(os_vm_address_t addr) { - os_vm_address_t newaddr; - - newaddr = os_trunc_to_page(addr); - if (in_range_p(addr, READ_ONLY_SPACE_START, read_only_space_size) || in_range_p(addr, STATIC_SPACE_START, static_space_size) || in_range_p(addr, DYNAMIC_0_SPACE_START, dynamic_space_size) diff --git a/src/lisp/OpenBSD-os.c b/src/lisp/OpenBSD-os.c index 088d96a..20acdf5 100644 --- a/src/lisp/OpenBSD-os.c +++ b/src/lisp/OpenBSD-os.c @@ -143,11 +143,6 @@ in_range_p(os_vm_address_t a, lispobj sbeg, size_t slen) boolean valid_addr(os_vm_address_t addr) { - int ret; - os_vm_address_t newaddr; - - newaddr = os_trunc_to_page(addr); - if (in_range_p(addr, READ_ONLY_SPACE_START, READ_ONLY_SPACE_SIZE) || in_range_p(addr, STATIC_SPACE_START, STATIC_SPACE_SIZE) || in_range_p(addr, DYNAMIC_0_SPACE_START, dynamic_space_size) diff --git a/src/lisp/elf.c b/src/lisp/elf.c index 16e5196..130795e 100644 --- a/src/lisp/elf.c +++ b/src/lisp/elf.c @@ -247,8 +247,7 @@ write_string_section(int fd) int ret; if(buffer == NULL) { - - write(0, "Out of memory in write_string_section()\n", 40); + perror("Out of memory in write_string_section()"); ret = -1; } else { diff --git a/src/lisp/interrupt.c b/src/lisp/interrupt.c index f03e27e..a87bc57 100644 --- a/src/lisp/interrupt.c +++ b/src/lisp/interrupt.c @@ -244,7 +244,9 @@ interrupt_handle_now_handler(HANDLER_ARGS) void interrupt_handle_now(HANDLER_ARGS) { +#if !(defined(i386) || defined(__x86_64)) int were_in_lisp; +#endif ucontext_t *ucontext = (ucontext_t *) context; union interrupt_handler handler; @@ -256,8 +258,8 @@ interrupt_handle_now(HANDLER_ARGS) return; SAVE_CONTEXT(); - /**/ were_in_lisp = !foreign_function_call_active; #if ! (defined(i386) || defined(_x86_64)) + were_in_lisp = !foreign_function_call_active; if (were_in_lisp) #endif fake_foreign_function_call(context); diff --git a/src/lisp/search.c b/src/lisp/search.c index 234207e..6b7c855 100644 --- a/src/lisp/search.c +++ b/src/lisp/search.c @@ -14,12 +14,11 @@ boolean search_for_type(int type, lispobj ** start, int *count) { - lispobj obj, *addr; + lispobj obj; while ((*count == -1 || (*count > 0)) && valid_addr((os_vm_address_t) * start)) { obj = **start; - addr = *start; if (*count != -1) *count -= 2; diff --git a/src/lisp/solaris-os.c b/src/lisp/solaris-os.c index b28c3cc..e3647f7 100644 --- a/src/lisp/solaris-os.c +++ b/src/lisp/solaris-os.c @@ -185,11 +185,6 @@ in_range_p(os_vm_address_t a, lispobj sbeg, size_t slen) boolean valid_addr(os_vm_address_t addr) { - /* Stolen from Linux-os.c */ - os_vm_address_t newaddr; - - newaddr = os_trunc_to_page(addr); - /* Just assume address is valid if it lies within one of the known spaces. (Unlike sunos-os which keeps track of every valid page.) */ return (in_range_p(addr, READ_ONLY_SPACE_START, read_only_space_size) ----------------------------------------------------------------------- Summary of changes: src/lisp/Darwin-os.c | 4 ---- src/lisp/FreeBSD-os.c | 4 ---- src/lisp/Linux-os.c | 4 ---- src/lisp/NetBSD-os.c | 4 ---- src/lisp/OpenBSD-os.c | 5 ----- src/lisp/elf.c | 3 +-- src/lisp/interrupt.c | 4 +++- src/lisp/search.c | 3 +-- src/lisp/solaris-os.c | 5 ----- 9 files changed, 5 insertions(+), 31 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2013-04-13-gc6075eb
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 c6075ebc518f26e6e23ed7899110263f0b3544de (commit) via 032d311cc2ccce34ee8ba8d83495b22fae5fdc2e (commit) via b07a82baedbf4ed761c593cbd185a97f3fed4e36 (commit) via 57bca19079022f99696307ac6f44d33de038275d (commit) from 497b9b2d466859117a71b7988dc0c6f6eaacb26b (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 c6075ebc518f26e6e23ed7899110263f0b3544de Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu May 2 21:46:02 2013 -0700 Use clang instead of gcc on Mac OSX. diff --git a/src/lisp/Config.x86_darwin b/src/lisp/Config.x86_darwin index f50a857..e9ffbe5 100644 --- a/src/lisp/Config.x86_darwin +++ b/src/lisp/Config.x86_darwin @@ -2,6 +2,9 @@ include Config.x86_common +# Use clang on darwin. +CC = clang + # Compile code that will run on OSX 10.5 (Tiger) MIN_VER = -mmacosx-version-min=10.5 commit 032d311cc2ccce34ee8ba8d83495b22fae5fdc2e Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu May 2 21:43:09 2013 -0700 Add -M option to pass args to make. diff --git a/bin/build.sh b/bin/build.sh index 496d641..fa0b3df 100755 --- a/bin/build.sh +++ b/bin/build.sh @@ -96,6 +96,7 @@ usage () echo " The flags always include -noinit -nositeinit" echo " -R Force recompiling the C runtime. Normally, just runs make to " echo " recompile anything that has changed." + echo " -M opt Additional flags to be passed to make." exit 1 } @@ -127,13 +128,17 @@ buildit () $TOOLDIR/clean-target.sh $CLEAN_FLAGS $TARGET || { echo "Failed: $TOOLDIR/clean-target.sh"; exit 1; } time $BUILDWORLD $TARGET $OLDLISP $BOOT || { echo "Failed: $BUILDWORLD"; exit 1; } if [ "$REBUILD_LISP" = "yes" ]; then - $TOOLDIR/rebuild-lisp.sh $TARGET + if [ -z $MFLAGS ]; then + $TOOLDIR/rebuild-lisp.sh $TARGET + else + $TOOLDIR/rebuild-lisp.sh -M "$MFLAGS" $TARGET + fi else # Set the LANG to C. For whatever reason, if I (rtoy) don't # do this on my openSuSE system, any messages from gcc are # basically garbled. This should be harmless on other # systems. - LANG=C $MAKE -C $TARGET/lisp $MAKE_TARGET || { echo "Failed: $MAKE -C $TARGET/lisp"; exit 1; } + LANG=C $MAKE -C $TARGET/lisp $MFLAGS $MAKE_TARGET || { echo "Failed: $MAKE -C $TARGET/lisp"; exit 1; } fi if [ "$BUILD_WORLD2" = "yes" ]; @@ -152,7 +157,7 @@ BUILDWORLD="$TOOLDIR/build-world.sh" BUILD_POT="yes" UPDATE_TRANS= -while getopts "123PRo:b:v:uB:C:Ui:f:w:O:?" arg +while getopts "123PRo:b:v:uB:C:Ui:f:w:O:M:?" arg do case $arg in 1) ENABLE2="no" ;; @@ -172,6 +177,7 @@ do U) UPDATE_TRANS="yes";; O) OLDLISPFLAGS="$OLDLISPFLAGS $OPTARG" ;; R) REBUILD_LISP="yes";; + M) MFLAGS="$OPTARG" ;; \?) usage ;; esac commit b07a82baedbf4ed761c593cbd185a97f3fed4e36 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu May 2 21:42:51 2013 -0700 Add -M option to pass extra flags to make. Use getopts to parse the options and also print slightly better error messages. diff --git a/bin/rebuild-lisp.sh b/bin/rebuild-lisp.sh index d6aa6e9..1e49d01 100755 --- a/bin/rebuild-lisp.sh +++ b/bin/rebuild-lisp.sh @@ -1,14 +1,34 @@ #!/bin/sh +while getopts "M:h?" arg +do + case $arg in + M) MFLAGS="$OPTARG" ;; + h) usage ;; + \?) usage ;; + esac +done + +usage() +{ + echo "rebuild.-lisp.sh [-h?] [-M opts] target-directory" + echo " -h this help" + echo " -? this help" + echo " -M opts Options to pass to make" + +} + +shift `expr $OPTIND - 1` + if [ "$1" = "" ] then - echo "Usage: $0 target-directory" + usage exit 1 fi if [ ! -d "$1" ] then - echo "$1 isn't a directory" + echo "$1" must be a directory. exit 2 fi @@ -23,4 +43,4 @@ fi export MAKE -${MAKE} -C $TARGET/lisp clean && ${MAKE} -C $TARGET/lisp +${MAKE} -C $TARGET/lisp $MFLAGS clean && ${MAKE} -C $TARGET/lisp $MFLAGS commit 57bca19079022f99696307ac6f44d33de038275d Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Thu May 2 20:15:57 2013 -0700 Include interr.h (and os.h) to get rid of a compiler warning about utf16_output being undeclared. diff --git a/src/lisp/print.c b/src/lisp/print.c index b4758d8..1898fee 100644 --- a/src/lisp/print.c +++ b/src/lisp/print.c @@ -11,6 +11,8 @@ #include "print.h" #include "lisp.h" #include "internals.h" +#include "os.h" +#include "interr.h" #include "monitor.h" #include "vars.h" #include "os.h" ----------------------------------------------------------------------- Summary of changes: bin/build.sh | 12 +++++++++--- bin/rebuild-lisp.sh | 26 +++++++++++++++++++++++--- src/lisp/Config.x86_darwin | 3 +++ src/lisp/print.c | 2 ++ 4 files changed, 37 insertions(+), 6 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-99-g7e5b00b
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 7e5b00bfacdf0a3693fef1d92329da18bf4e028b (commit) from f05a4402996b0b7bc7c00c48fa4a27a4b3cf532b (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 7e5b00bfacdf0a3693fef1d92329da18bf4e028b Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Aug 5 21:26:12 2014 -0700 Fix typo and add -m32 to LDFLAGS. diff --git a/src/motif/server/Config.x86 b/src/motif/server/Config.x86 index bbfb987..d830710 100644 --- a/src/motif/server/Config.x86 +++ b/src/motif/server/Config.x86 @@ -1,7 +1,7 @@ -CFLAGS += -m3 -O2 -I/usr/X11R6/include -I. -I$(VPATH) +CFLAGS += -m32 -O2 -I/usr/X11R6/include -I. -I$(VPATH) # LDFLAGS += -L/usr/X11R6/lib # On OpenSuSE 11.3,the 32-bit X libraries are in /usr/lib. -LDFLAGS += -L/usr/lib +LDFLAGS += -m32 -L/usr/lib LIBS = -lXm -lXt -lXext -lX11 -lSM -lICE -lXp -ldl -lpthread # This def assumes you are building in the same or parallel # tree to the CVS souce layout. Sites may need to customize ----------------------------------------------------------------------- Summary of changes: src/motif/server/Config.x86 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0