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

[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

[git] CMU Common Lisp branch master updated. snapshot-2013-04-26-gde34b9a
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 de34b9a71dd48b8cbcf6bd615348e57800c07d4f (commit) from b9cf3661ab0675ef091588e26080756ecd0d4197 (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 de34b9a71dd48b8cbcf6bd615348e57800c07d4f Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat May 4 21:16:44 2013 -0700 Remove DEPENDS and set DEPENDS_FLAG for ppc. diff --git a/src/lisp/Config.ppc_darwin b/src/lisp/Config.ppc_darwin index 8ce16f4..e999827 100644 --- a/src/lisp/Config.ppc_darwin +++ b/src/lisp/Config.ppc_darwin @@ -17,7 +17,7 @@ CC = gcc LD = ld NM = $(PATH1)/darwin-nm CPP = cpp -no-cpp-precomp -DEPEND = $(CC) -MM +DEPEND_FLAGS = -MM ifdef FEATURE_LINKAGE_TABLE LINKAGE = -DLINKAGE_TABLE ----------------------------------------------------------------------- Summary of changes: src/lisp/Config.ppc_darwin | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. 20e-3-g622b5df
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 622b5df431a87ae3c8a816b7c569f5c5ef85a6d7 (commit) from 40aa2475c25a2715e100bbde7ba7db437a8a4326 (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 622b5df431a87ae3c8a816b7c569f5c5ef85a6d7 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Oct 20 09:47:38 2013 -0700 Add some (runtime-enabled) debugging help for packing failures. diff --git a/src/compiler/pack.lisp b/src/compiler/pack.lisp index 91ae142..bac8116 100644 --- a/src/compiler/pack.lisp +++ b/src/compiler/pack.lisp @@ -340,6 +340,8 @@ VM definition inconsistent, try recompiling."))))) +(defvar *debug-pack* nil) + ;;; FAILED-TO-PACK-ERROR -- Internal ;;; ;;; Called when we failed to pack TN. If Restricted is true, then we we @@ -351,8 +353,12 @@ (scs (cons sc (sc-alternate-scs sc)))) (cond (restricted - (error "Failed to pack restricted TN ~S in its SC ~S." - tn (sc-name sc))) + (when *debug-pack* + ;; Useful for possibly figuring out which vop might be the + ;; source of the conflict. + (describe tn)) + (error "Failed to pack restricted TN ~S in its SC ~S: ~S" + tn (sc-name sc) (tn-sc tn))) (t (assert (not (find :unbounded scs :key #'(lambda (x) (sb-kind (sc-sb x)))))) @@ -1511,7 +1517,8 @@ (when (and save (eq (tn-kind save) :specified-save)) (tn-sc save)))) - + (when *debug-pack* + (format t "pack-tn alternates: ~S~%" alternates)) (do ((sc fsc (pop alternates))) ((null sc) (failed-to-pack-error tn restricted)) ----------------------------------------------------------------------- Summary of changes: src/compiler/pack.lisp | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp annotated tag snapshot-2013-07 created. snapshot-2013-07
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, snapshot-2013-07 has been created at f301f9439d696cdf8a78e81051aa8b1fe102423f (tag) tagging bb56dbb6572939222d731530c3045b4a87ee7f51 (commit) replaces snapshot-2013-06 tagged by Raymond Toy on Thu Jul 4 11:54:53 2013 -0700 - Log ----------------------------------------------------------------- Snapshot 2013-07 -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.13 (Darwin) iEYEABECAAYFAlHVxQQACgkQJ5IjUmgZO7KWkACfQ5iLHsrs+dIPdupOMBKg2f8Y WvcAnjkqAU9PBgbA5Z/QYAZ1Se4G8H4w =Aai3 -----END PGP SIGNATURE----- Raymond Toy (5): Initialize some variables to get rid of some clang warnings. Add a herald for defsystem. Fix some compiler warnings about unused variables or variables that Update to asdf 3.0.2. Update from logs. ----------------------------------------------------------------------- hooks/post-receive -- CMU Common Lisp

1 0