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

[git] CMU Common Lisp branch master updated. snapshot-2014-06-5-gea1b427
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 ea1b427815d5334da20d2821aea5abbcffbee0ad (commit) from 1b9697d7923b1e9f7d875b94a13e427ddc651453 (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 ea1b427815d5334da20d2821aea5abbcffbee0ad Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Jul 20 21:01:59 2014 -0700 Add declarations for the fdlibm trig functions. diff --git a/src/lisp/fdlibm.h b/src/lisp/fdlibm.h index 3a9fcdb..61794b3 100644 --- a/src/lisp/fdlibm.h +++ b/src/lisp/fdlibm.h @@ -41,3 +41,10 @@ extern double scalbn(double, int); /* fdlibm kernel function */ extern int __kernel_rem_pio2(double*,double*,int,int,int,const int*); + +extern double __kernel_sin(double x, double y, int iy); +extern double __kernel_cos(double x, double y); +extern double __kernel_tan(double x, double y, int iy); +extern double sin(double x); +extern double cos(double x); +extern double tan(double x); ----------------------------------------------------------------------- Summary of changes: src/lisp/fdlibm.h | 7 +++++++ 1 file changed, 7 insertions(+) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-92-g75d14d2
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 75d14d2ed7dc9085858d9119013b67fbdfe77390 (commit) from 47718592f9ef89fd8a52f07d41c8553aa8b525f2 (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 75d14d2ed7dc9085858d9119013b67fbdfe77390 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Mon Aug 4 18:55:27 2014 -0700 Fix bug in DOUBLE-FLOAT-BITS vop. Add a lifetime spec to the arg so that we don't accidentally destroy the arg when writing the two results. Previously, HI-BITS was allocated to the same register as FLOAT (in a descriptor). Writing HI-BITS would destroy the contents of the FLOAT and when trying to write lo-bits, we would read from the wrong address because FLOAT now contains the high bits of the double float number. diff --git a/src/compiler/x86/float-sse2.lisp b/src/compiler/x86/float-sse2.lisp index bfa6df9..e7b1b86 100644 --- a/src/compiler/x86/float-sse2.lisp +++ b/src/compiler/x86/float-sse2.lisp @@ -1272,7 +1272,8 @@ (define-vop (double-float-bits) (:args (float :scs (double-reg descriptor-reg) - :load-if (not (sc-is float double-stack)))) + :load-if (not (sc-is float double-stack)) + :to (:result 1))) (:results (hi-bits :scs (signed-reg)) (lo-bits :scs (unsigned-reg))) (:arg-types double-float) ----------------------------------------------------------------------- Summary of changes: src/compiler/x86/float-sse2.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-7-ge934d7c
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 e934d7ccdc07f355d29014b670605d1bc0b92dc1 (commit) via e86092b1b330d640faf85f22407df598c8270122 (commit) from ea1b427815d5334da20d2821aea5abbcffbee0ad (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 e934d7ccdc07f355d29014b670605d1bc0b92dc1 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Mon Jul 21 22:07:51 2014 -0700 Darwin doesn't need fdlibm because the system library is good. diff --git a/src/lisp/Config.x86_darwin b/src/lisp/Config.x86_darwin index 9d00a4d..39c09bd 100644 --- a/src/lisp/Config.x86_darwin +++ b/src/lisp/Config.x86_darwin @@ -17,19 +17,3 @@ OS_LINK_FLAGS = -m32 $(MIN_VER) 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 - -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) $< -k_tan.o : k_tan.c - $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< - -s_sin.o : s_sin.c - $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< -s_cos.o : s_cos.c - $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< -s_tan.o : s_tan.c - $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< commit e86092b1b330d640faf85f22407df598c8270122 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Jul 20 21:03:17 2014 -0700 Compile fdlibm trig functions on linux and darwin. diff --git a/src/lisp/Config.x86_darwin b/src/lisp/Config.x86_darwin index 39c09bd..9d00a4d 100644 --- a/src/lisp/Config.x86_darwin +++ b/src/lisp/Config.x86_darwin @@ -17,3 +17,19 @@ OS_LINK_FLAGS = -m32 $(MIN_VER) 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 + +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) $< +k_tan.o : k_tan.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< + +s_sin.o : s_sin.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< +s_cos.o : s_cos.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< +s_tan.o : s_tan.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< diff --git a/src/lisp/Config.x86_linux b/src/lisp/Config.x86_linux index 13eb012..962c9e2 100644 --- a/src/lisp/Config.x86_linux +++ b/src/lisp/Config.x86_linux @@ -15,3 +15,19 @@ OS_LINK_FLAGS = -m32 -rdynamic -Xlinker --export-dynamic -Xlinker -Map -Xlinker OS_LINK_FLAGS += -Wl,-z,noexecstack 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 + +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) $< +k_tan.o : k_tan.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< + +s_sin.o : s_sin.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< +s_cos.o : s_cos.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< +s_tan.o : s_tan.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< ----------------------------------------------------------------------- Summary of changes: src/lisp/Config.x86_linux | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2013-12-a-15-g7916cfb
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 7916cfb0b1b01e42901d92d9669c3c6099a6cab6 (commit) from 9c4bcc617b25fdcbac0bd8372cdc545dfa1f0bd7 (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 7916cfb0b1b01e42901d92d9669c3c6099a6cab6 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Wed Dec 18 08:50:37 2013 -0800 Add more tests for exceptional values for cos and tan. Add a few comments. diff --git a/src/tests/trig.lisp b/src/tests/trig.lisp index 41e444a..58d10b6 100644 --- a/src/tests/trig.lisp +++ b/src/tests/trig.lisp @@ -1,3 +1,5 @@ +;;; Tests for the basic trig functions, now implemented in Lisp. + (defpackage :trig-tests (:use :cl :lisp-unit)) @@ -52,8 +54,10 @@ "Test sin for exceptional values" (:tag :sin :exceptions) (kernel::with-float-traps-masked () - (assert-error 'floating-point-invalid-operation (sin ext:double-float-positive-infinity)) - (assert-error 'floating-point-invalid-operation (sin ext:double-float-negative-infinity)))) + (assert-error 'floating-point-invalid-operation + (sin ext:double-float-positive-infinity)) + (assert-error 'floating-point-invalid-operation + (sin ext:double-float-negative-infinity)))) (define-test cos.signed-zeroes "Test cos for 0d0 and -0d0" @@ -104,6 +108,15 @@ (assert-eql -0.9258790228548379d0 (cos (scale-float 1d0 120)))) +(define-test cos.exceptions + "Test cos for exceptional values" + (:tag :sin :exceptions) + (kernel::with-float-traps-masked () + (assert-error 'floating-point-invalid-operation + (cos ext:double-float-positive-infinity)) + (assert-error 'floating-point-invalid-operation + (cos ext:double-float-negative-infinity)))) + (define-test tan.signed-zeroes "Test tan for 0d0 and -0d0" (:tag :tan :signed-zeroes) @@ -150,6 +163,14 @@ (assert-eql -4.08066388841804238545143494525595117765084022768d-1 (tan (scale-float 1d0 120)))) +(define-test tan.exceptions + "Test tan for exceptional values" + (:tag :sin :exceptions) + (kernel::with-float-traps-masked () + (assert-error 'floating-point-invalid-operation + (tan ext:double-float-positive-infinity)) + (assert-error 'floating-point-invalid-operation + (tan ext:double-float-negative-infinity)))) (define-test sincos.signed-zeroes "Test sincos at 0d0, -0d0" @@ -159,6 +180,9 @@ (assert-equal '(-0d0 1d0) (multiple-value-list (kernel::%sincos -0d0)))) +;; Test sincos at a bunch of random points and compare the result from +;; sin and cos. If they differ, save the result in a list to be +;; returned. (defun sincos-test (limit n) (let (results) (dotimes (k n) ----------------------------------------------------------------------- Summary of changes: src/tests/trig.lisp | 28 ++++++++++++++++++++++++++-- 1 file changed, 26 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-98-gf05a440
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 f05a4402996b0b7bc7c00c48fa4a27a4b3cf532b (commit) from 6635ef21befd5126c23140d4be12db874577e24c (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 f05a4402996b0b7bc7c00c48fa4a27a4b3cf532b Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Aug 5 21:22:10 2014 -0700 Addresses ticket #84 for Linux. * Add -m32 flag to build 32-bit object files and binaries. * Update -L to where the 32-bit X11 libraries are on my OpenSuSE 11.3 system. (This wasn't working before because apparently I didn't actually have the 32-bit X11 libraries installed.) diff --git a/src/motif/server/Config.x86 b/src/motif/server/Config.x86 index ded67cd..bbfb987 100644 --- a/src/motif/server/Config.x86 +++ b/src/motif/server/Config.x86 @@ -1,5 +1,7 @@ -CFLAGS += -O2 -I/usr/X11R6/include -I. -I$(VPATH) -LDFLAGS += -L/usr/X11R6/lib +CFLAGS += -m3 -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 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 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2013-04-7-gb76e597
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 b76e59723e21a2c494948dcc4be940e5d7e802ec (commit) from 940ba8218564d4bba25a722774162d5030d6ae94 (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 b76e59723e21a2c494948dcc4be940e5d7e802ec Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Apr 27 09:08:11 2013 -0700 Clean up madvise implementation * Remove PAGE_MADVISE_MASK * Remove code using PAGE_MADVISE_MASK * Move some #defines from gencgc.c to gencgc.h * Add new or better comments diff --git a/src/lisp/gencgc.c b/src/lisp/gencgc.c index 2f7ecf1..fb4a741 100644 --- a/src/lisp/gencgc.c +++ b/src/lisp/gencgc.c @@ -288,34 +288,43 @@ boolean verify_dynamic_code_check = FALSE; boolean check_code_fixups = FALSE; -/* How have a page zero-filled. */ +/* + * How to have a page zero-filled. When a page is freed, we need to + * either zero it immediately or mark it as needing to be zero-filled + * when it is allocated later. + */ enum gencgc_unmap_mode { - /* Unmap and mmap the region to get it zeroed */ + /* + * Unmap and mmap the region to get it zeroed when the page + * is freed.. + */ MODE_MAP, - /* Memset the region to 0 */ + /* + * Memset the region to 0 when it is freed. + */ MODE_MEMSET, /* * Call madvise to allow the kernel to free the memory if needed. - * But when the region needs to be used, we will zero it if - * necessary + * But when the region needs to be allocated, we will zero it if + * necessary. */ MODE_MADVISE, /* * Like madvise, except we don't actually call madvize and lazily - * zero the region when needed. + * zero the region when it is allocated. */ MODE_LAZY, }; /* - * Control how freed regions should be zeroed. Default to MODE_MEMSET + * Control how freed regions should be zeroed. Default to MODE_LAZY * for all systems since tests indicate that it is much faster than * unmapping and re-mapping it to zero the region. See enum - * gencgc_unmap_made for other ossible options. + * gencgc_unmap_made for other possible options. * * XXX: Choose the appopriate mode for each OS/arch. * @@ -352,13 +361,13 @@ boolean gencgc_zero_check_during_free_heap = FALSE; #endif /* - * For now, enable the gencgc_zero_check if gencgc_unmap_zero is lazy. - * XXX: Remove this additional condition when we feel that - * gencgc_unmap_zero is good enough. + * For now, enable the gencgc_zero_check if gencgc_unmap_zero is lazy + * or madvise. XXX: Remove this additional condition when we feel + * that gencgc_unmap_zero is good enough. */ -#define DO_GENCGC_ZERO_CHECK (gencgc_zero_check || (gencgc_unmap_zero == MODE_LAZY)) -#define DO_GENCGC_ZERO_CHECK_DURING_FREE_HEAP (gencgc_zero_check_during_free_heap || (gencgc_unmap_zero == MODE_LAZY)) +#define DO_GENCGC_ZERO_CHECK (gencgc_zero_check || (gencgc_unmap_zero == MODE_LAZY) || (gencgc_unmap_zero == MODE_MADVISE)) +#define DO_GENCGC_ZERO_CHECK_DURING_FREE_HEAP (gencgc_zero_check_during_free_heap || (gencgc_unmap_zero == MODE_LAZY) || (gencgc_unmap_zero == MODE_MADVISE)) /* * The minimum size for a large object. @@ -954,7 +963,7 @@ handle_heap_overflow(const char *msg, int size) } /* - * Enable debug messages for MODE_MADVISE and MODE_LAZY + * Enables debug messages for MODE_MADVISE and MODE_LAZY */ boolean gencgc_debug_madvise = FALSE; @@ -968,11 +977,7 @@ handle_madvise_first_page(int first_page) first_page, flags, page_table[first_page].bytes_used); } -#if 0 - if ((flags & PAGE_MADVISE_MASK) && !PAGE_ALLOCATED(first_page)) { -#else if (!PAGE_ALLOCATED(first_page)) { -#endif int *page_start = (int *) page_address(first_page); if (gencgc_debug_madvise) { @@ -980,10 +985,6 @@ handle_madvise_first_page(int first_page) } if (*page_start != 0) { memset(page_start, 0, GC_PAGE_SIZE); -#if 0 - page_table[first_page].flags &= ~PAGE_MADVISE_MASK; -#else -#endif } } if (gencgc_debug_madvise) { @@ -997,11 +998,7 @@ handle_madvise_other_pages(int first_page, int last_page) int i; for (i = first_page + 1; i <= last_page; ++i) { -#if 0 - if (page_table[i].flags & PAGE_MADVISE_MASK) { -#else - if (!PAGE_ALLOCATED(i)) { -#endif + if (!PAGE_ALLOCATED(i)) { int *page_start = (int *) page_address(i); if (gencgc_debug_madvise) { @@ -1010,9 +1007,6 @@ handle_madvise_other_pages(int first_page, int last_page) } if (*page_start != 0) { memset(page_start, 0, GC_PAGE_SIZE); -#if 0 - page_table[i].flags &= ~PAGE_MADVISE_MASK; -#endif } } } @@ -6995,19 +6989,12 @@ free_oldspace(void) fprintf(stderr, "ADVISING pages %d-%d\n", first_page, last_page - 1); } -#if defined(__linux__) -#define GENCGC_MADVISE MADV_DONTNEED -#else -#define GENCGC_MADVISE MADV_FREE -#endif - page_start = (int *) page_address(first_page); madvise(page_start, GC_PAGE_SIZE * (last_page - first_page), GENCGC_MADVISE); for (page = first_page; page < last_page; ++page) { - page_table[page].flags |= PAGE_MADVISE_MASK; page_start = (int *) page_address(page); - *page_start = 0xdead0000; + *page_start = PAGE_NEEDS_ZEROING_MARKER; } break; @@ -7028,7 +7015,7 @@ free_oldspace(void) } page_start = (int *) page_address(page); - *page_start = 0xdead0000; + *page_start = PAGE_NEEDS_ZEROING_MARKER; } break; diff --git a/src/lisp/gencgc.h b/src/lisp/gencgc.h index ce1bf07..a7ce03a 100644 --- a/src/lisp/gencgc.h +++ b/src/lisp/gencgc.h @@ -19,6 +19,23 @@ int gc_write_barrier(void *); /* + * How to madvise pages, if enabled + */ +#if defined(__linux__) +#define GENCGC_MADVISE MADV_DONTNEED +#else +#define GENCGC_MADVISE MADV_FREE +#endif + +/* + * That start of each unallocate page is set to this value to indicate + * that the page needs to be zeroed before being allocated. This is + * used when gencgc_unmap_zero is MODE_MADVISE or MODE_LAZY. Any + * non-zero value will work. + */ +#define PAGE_NEEDS_ZEROING_MARKER 0xdead0000 + +/* * Set when the page is write protected. If it is writen into it is * made writable and this flag is cleared. This should always reflect * the actual write_protect status of a page. @@ -77,8 +94,6 @@ int gc_write_barrier(void *); #define PAGE_LARGE_OBJECT_VAL(page) \ (PAGE_LARGE_OBJECT(page) >> PAGE_LARGE_OBJECT_SHIFT) -#define PAGE_MADVISE_MASK 0x00000400 - /* * The generation that this page belongs to. This should be valid for * all pages that may have objects allocated, even current allocation ----------------------------------------------------------------------- Summary of changes: src/lisp/gencgc.c | 65 +++++++++++++++++++++-------------------------------- src/lisp/gencgc.h | 19 ++++++++++++++-- 2 files changed, 43 insertions(+), 41 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-60-g28ca349
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 28ca34951c313162068768fb80742254dd7af1b6 (commit) via 70bf595c72a9bb4a400dc6fdab9a269ccde060dd (commit) via 08fd3e4ea1565c8674c837cd9e08b1e24f438d33 (commit) via 8dd3a6aae9b37307eef4d48b740cba9cb265444d (commit) from c2e152be334f9e1272db737e2eb5056e67def8d0 (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 28ca34951c313162068768fb80742254dd7af1b6 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Aug 2 13:42:38 2014 -0700 Add some braces to silence the warning from clang about dangling else statements. diff --git a/src/lisp/e_log.c b/src/lisp/e_log.c index 4404ce1..032f794 100644 --- a/src/lisp/e_log.c +++ b/src/lisp/e_log.c @@ -117,8 +117,15 @@ static double zero = 0.0; k += (i>>20); f = x-1.0; if((0x000fffff&(2+hx))<3) { /* |f| < 2**-20 */ - if(f==zero) if(k==0) return zero; else {dk=(double)k; - return dk*ln2_hi+dk*ln2_lo;} + if(f==zero) { + if(k==0) + return zero; + else { + dk=(double)k; + return dk*ln2_hi+dk*ln2_lo; + } + } + R = f*f*(0.5-0.33333333333333333*f); if(k==0) return f-R; else {dk=(double)k; return dk*ln2_hi-((R-dk*ln2_lo)-f);} diff --git a/src/lisp/s_expm1.c b/src/lisp/s_expm1.c index d6a1827..6e35fd8 100644 --- a/src/lisp/s_expm1.c +++ b/src/lisp/s_expm1.c @@ -194,9 +194,10 @@ Q5 = -2.01099218183624371326e-07; /* BE8AFDB7 6E09C32D */ e = (x*(e-c)-c); e -= hxs; if(k== -1) return 0.5*(x-e)-0.5; - if(k==1) + if(k==1) { if(x < -0.25) return -2.0*(e-(x+0.5)); else return one+2.0*(x-e); + } if (k <= -2 || k>56) { /* suffice to return exp(x)-1 */ y = one-(e-x); utmp.d = y; commit 70bf595c72a9bb4a400dc6fdab9a269ccde060dd Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Aug 2 13:39:39 2014 -0700 Remove the sccsid variable. diff --git a/src/lisp/e_pow.c b/src/lisp/e_pow.c index 9dafc26..914d7d9 100644 --- a/src/lisp/e_pow.c +++ b/src/lisp/e_pow.c @@ -1,8 +1,3 @@ - -#ifndef lint -static char sccsid[] = "@(#)e_pow.c 1.5 04/04/22 SMI"; -#endif - /* * ==================================================== * Copyright (C) 2004 by Sun Microsystems, Inc. All rights reserved. commit 08fd3e4ea1565c8674c837cd9e08b1e24f438d33 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Aug 2 13:38:58 2014 -0700 Initialize k to get rid of a compiler warning from clang. The compiler thinks k might not be initialized because the if on line 143 might not be true, leaving t uninitialized. We know that the condition is always true because |x| < -2^-28 in the previous line. diff --git a/src/lisp/e_exp.c b/src/lisp/e_exp.c index 4d94a1e..3d84224 100644 --- a/src/lisp/e_exp.c +++ b/src/lisp/e_exp.c @@ -106,7 +106,8 @@ P5 = 4.13813679705723846039e-08; /* 0x3E663769, 0x72BEA4D0 */ #endif { double y,hi,lo,c,t; - int k,xsb; + int k = 0; + int xsb; unsigned hx; union { int i[2]; double d; } ux; commit 8dd3a6aae9b37307eef4d48b740cba9cb265444d Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Aug 2 13:35:17 2014 -0700 Initialize t to get rid of a compiler warning from clang. The compiler thinks t might not be initialized because the if on line 90 might not be true, leaving t uninitialized. We know that the condition is always true because |x| < -2^-27 in the previous line. diff --git a/src/lisp/e_asin.c b/src/lisp/e_asin.c index 9b476a4..4aa6c63 100644 --- a/src/lisp/e_asin.c +++ b/src/lisp/e_asin.c @@ -73,7 +73,8 @@ qS4 = 7.70381505559019352791e-02; /* 0x3FB3B8C5, 0xB12E9282 */ double x; #endif { - double t,w,p,q,c,r,s; + double t = 0; + double w,p,q,c,r,s; int hx,ix; union { int i[2]; double d; } ux; ----------------------------------------------------------------------- Summary of changes: src/lisp/e_asin.c | 3 ++- src/lisp/e_exp.c | 3 ++- src/lisp/e_log.c | 11 +++++++++-- src/lisp/e_pow.c | 5 ----- src/lisp/s_expm1.c | 3 ++- 5 files changed, 15 insertions(+), 10 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. begin-x87-removal-9-gd3bc3ac
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 d3bc3ac7a83c9c06dabf37ebe9e781bcfcfa5518 (commit) via f94c7fc82bcfc0da0906ac64891f22e2eca169ae (commit) via 6bba234d4dc71255cf4b9c6a0d418147781c564b (commit) from 260d94f1a9057fb9ae592a0b7b898f881316f289 (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 d3bc3ac7a83c9c06dabf37ebe9e781bcfcfa5518 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Apr 13 11:25:11 2014 -0700 Remove commented code and some redundant jmps. diff --git a/src/lisp/x86-assem.S b/src/lisp/x86-assem.S index fd52d39..f3b4344 100644 --- a/src/lisp/x86-assem.S +++ b/src/lisp/x86-assem.S @@ -117,13 +117,6 @@ FUNCDEF(call_into_lisp) movl %esp,%ebp # establish new frame /* Save the NPX state */ -#if 0 - fwait # Catch any pending NPX exceptions. - /* Save the SSE2 for X87 state */ - mov GNAME(fpu_mode), %eax - cmp $2, %eax # SSE2 mode? - jne x87_save -#endif movl %esp, %eax # Remember the current stack pointer /* * The SSE state is 512 bytes, but we need 16 more because we @@ -133,25 +126,6 @@ FUNCDEF(call_into_lisp) andl $-16, %esp # fxsave needs 16-byte alignment fxsave (%esp) pushl %eax # Save the old stack pointer - fninit # Reset fpu, just in case - jmp npx_save_done -#if 0 -x87_save: - subl $108,%esp # Make room for the NPX state. - fnsave (%esp) # Resets NPX - - movl (%esp),%eax # Load NPX control word - andl $0xfffff3ff,%eax # Set rounding mode to nearest -#ifdef type_LongFloat - orl $0x00000300,%eax # Set precision to 64 bits -#else - orl $0x00000200,%eax # Set precision to 53 bits -#endif - pushl %eax - fldcw (%esp) # Recover modes - popl %eax -#endif -npx_save_done: /* Save C regs: ebx esi edi */ pushl %ebx pushl %esi @@ -219,22 +193,9 @@ Ldone: popl %ebx /* Restore the NPX state */ -#if 0 - /* Restore SSE2 state? */ - mov GNAME(fpu_mode), %eax - cmp $2, %eax # SSE2 mode? - jne x87_restore -#endif popl %eax # Get the old stack pointer fxrstor (%esp) # Restore the SSE state movl %eax, %esp # Now really restore the old stack pointer - jmp npx_restore_done -#if 0 -x87_restore: - frstor (%esp) - addl $108, %esp -#endif -npx_restore_done: popl %ebp # c-sp movl %edx,%eax # c-val commit f94c7fc82bcfc0da0906ac64891f22e2eca169ae Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Apr 13 10:59:47 2014 -0700 Comment out x87 stuff from call_into_lisp. diff --git a/src/lisp/x86-assem.S b/src/lisp/x86-assem.S index f9dee43..fd52d39 100644 --- a/src/lisp/x86-assem.S +++ b/src/lisp/x86-assem.S @@ -117,11 +117,13 @@ FUNCDEF(call_into_lisp) movl %esp,%ebp # establish new frame /* Save the NPX state */ +#if 0 fwait # Catch any pending NPX exceptions. /* Save the SSE2 for X87 state */ mov GNAME(fpu_mode), %eax cmp $2, %eax # SSE2 mode? jne x87_save +#endif movl %esp, %eax # Remember the current stack pointer /* * The SSE state is 512 bytes, but we need 16 more because we @@ -133,7 +135,7 @@ FUNCDEF(call_into_lisp) pushl %eax # Save the old stack pointer fninit # Reset fpu, just in case jmp npx_save_done - +#if 0 x87_save: subl $108,%esp # Make room for the NPX state. fnsave (%esp) # Resets NPX @@ -148,6 +150,7 @@ x87_save: pushl %eax fldcw (%esp) # Recover modes popl %eax +#endif npx_save_done: /* Save C regs: ebx esi edi */ pushl %ebx @@ -216,17 +219,21 @@ Ldone: popl %ebx /* Restore the NPX state */ +#if 0 /* Restore SSE2 state? */ mov GNAME(fpu_mode), %eax cmp $2, %eax # SSE2 mode? jne x87_restore +#endif popl %eax # Get the old stack pointer fxrstor (%esp) # Restore the SSE state movl %eax, %esp # Now really restore the old stack pointer jmp npx_restore_done +#if 0 x87_restore: frstor (%esp) addl $108, %esp +#endif npx_restore_done: popl %ebp # c-sp commit 6bba234d4dc71255cf4b9c6a0d418147781c564b Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sat Apr 12 18:10:46 2014 -0700 More x87 removal from sse2-c-call.lisp * Remove frobbing of the FPU modes from alloc and dealloc. * Use 16-byte alignment for all platforms. It's harmless for those that don't require it. diff --git a/src/compiler/x86/sse2-c-call.lisp b/src/compiler/x86/sse2-c-call.lisp index 83f21b5..1e827d3 100644 --- a/src/compiler/x86/sse2-c-call.lisp +++ b/src/compiler/x86/sse2-c-call.lisp @@ -71,19 +71,11 @@ (:generator 0 (assert (location= result esp-tn)) - #+(or linux) - (progn - ;; Is this needed with sse2? - (inst sub esp-tn 4) - (inst fnstcw (make-ea :word :base esp-tn)) - (inst and (make-ea :word :base esp-tn) #xcff) - (inst or (make-ea :word :base esp-tn) #x300) - (inst fldcw (make-ea :word :base esp-tn)) - (inst add esp-tn 4)) (unless (zerop amount) (let ((delta (logandc2 (+ amount 3) 3))) (inst sub esp-tn delta))) - #+darwin (inst and esp-tn #xfffffff0) + ;; Align the stack to a 16-byte boundary. + (inst and esp-tn #xfffffff0) (move result esp-tn))) (define-vop (dealloc-number-stack-space) @@ -91,15 +83,5 @@ (:generator 0 (unless (zerop amount) (let ((delta (logandc2 (+ amount 3) 3))) - (inst add esp-tn delta))) - #+(or linux) - (progn - ;; Is this needed with sse2? - (inst sub esp-tn 4) - (inst fnstcw (make-ea :word :base esp-tn)) - (inst and (make-ea :word :base esp-tn) #xcff) - (inst or (make-ea :word :base esp-tn) #x200) - (inst fldcw (make-ea :word :base esp-tn)) - (inst wait) - (inst add esp-tn 4)))) + (inst add esp-tn delta))))) ----------------------------------------------------------------------- Summary of changes: src/compiler/x86/sse2-c-call.lisp | 24 +++--------------------- src/lisp/x86-assem.S | 32 -------------------------------- 2 files changed, 3 insertions(+), 53 deletions(-) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-02-5-gf04a802
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 f04a80287e33b51b08242d53e7ad7c1c2ec9c59e (commit) from 8970ad11b03f863b40a9ee352d3aced52b783cce (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 f04a80287e33b51b08242d53e7ad7c1c2ec9c59e Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Sun Feb 9 09:59:01 2014 -0800 Update from commit logs. diff --git a/src/general-info/release-20f.txt b/src/general-info/release-20f.txt index 628236b..fdc8837 100644 --- a/src/general-info/release-20f.txt +++ b/src/general-info/release-20f.txt @@ -68,6 +68,7 @@ New in this release: * Trac Tickets: * Ticket #90 fixed. + * Ticket #92 fixed. * Other changes: ----------------------------------------------------------------------- Summary of changes: src/general-info/release-20f.txt | 1 + 1 file changed, 1 insertion(+) hooks/post-receive -- CMU Common Lisp

1 0

[git] CMU Common Lisp branch master updated. snapshot-2014-06-13-gc7bf8f8
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 c7bf8f8fe16c0bc1a9c9c65060033046855eca82 (commit) from 203b0b0144dec1a5f481ada67792040e4a485f21 (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 c7bf8f8fe16c0bc1a9c9c65060033046855eca82 Author: Raymond Toy <toy.raymond(a)gmail.com> Date: Tue Jul 22 10:28:30 2014 -0700 ppc doesn't have sincos in libm so use our own version. diff --git a/src/lisp/Config.ppc_darwin b/src/lisp/Config.ppc_darwin index 0902b89..a4516a8 100644 --- a/src/lisp/Config.ppc_darwin +++ b/src/lisp/Config.ppc_darwin @@ -72,4 +72,8 @@ OS_LIBS = -lSystem -lc -lm # According to Config.x86_common, this no longer has aliasing # problems, so we don't need any additional compilation options. e_rem_pio2.o : e_rem_pio2.c - $(CC) -c $(CFLAGS) $< + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< + +OS_SRC += sincos.c +sincos.o : sincos.c + $(CC) -c $(CFLAGS) $(CPPFLAGS) $(CC_REM_PIO2) $< ----------------------------------------------------------------------- Summary of changes: src/lisp/Config.ppc_darwin | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) hooks/post-receive -- CMU Common Lisp

1 0