cmucl-cvs April 2015

cmucl-cvs@common-lisp.net

3 participants
318 discussions

Start a nNew thread

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

08 Apr '15

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

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

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

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

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

1 0

← Newer
1
...
17
18
19
20
21
22
23
...
32
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

cmucl-cvs April 2015