cmucl-cvs

cmucl-cvs@common-lisp.net

2904 discussions

[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www/www/news (index.html)
by Raymond Toy 12 Jan '11

12 Jan '11

Date: Tuesday, January 11, 2011 @ 22:57:44 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www/news Modified: index.html Update with 2011-01 changes. ------------+ index.html | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) Index: cmucl-www/cmucl-www/www/news/index.html diff -u cmucl-www/cmucl-www/www/news/index.html:1.44 cmucl-www/cmucl-www/www/news/index.html:1.45 --- cmucl-www/cmucl-www/www/news/index.html:1.44 Mon Dec 6 20:25:14 2010 +++ cmucl-www/cmucl-www/www/news/index.html Tue Jan 11 22:57:44 2011 @@ -11,6 +11,39 @@ <dl> +<dt>Snapshot 2011-01 +<dd> + The 2011-01 snapshot has been released. See the release notes for + details, but here is a quick summary of the changes between the + this snapshot and the previous snapshot. + <ul> + <li> Initial support for Solaris/x86. CMUCL will run on Solaris/x86 + with all features available. </li> + <li> <code>UNINTERN</code> no longer removes the wrong symbol. <code>UNINTERN</code> would + remove the symbol when inherited from another package although it + should not. + <li> <code>DEFSTRUCT</code> allows multiple keyword constructors as required by the spec.. + </li> + <li> <code>SUBSEQ</code> with an end index less than the start index sometimes + crashes CMUCL. Now, signal an error if the boudns are not + valid. + </li> + <li> Localization support was causing many calls to stat trying to + find non-existent translation files. This has been fixed so + that the results are cached. (If new translations are added, + the cache will need to be cleared or cmucl restarted.) This + change cuts building time by half on Solaris/sparc. + </li> + <li> On NetBSD, function-end breakpoints, especially for + tail-recursive functions, are working now. + </li> + <li> On NetBSD, display of FP numbers (sse2 and x87) during tracing + has been corrected. Previously, random values were displayed. + </li> + <li> Executables images can now be created on NetBSD again.</li> + </ul> +</dd> + <dt>2010-12 snapshot <dd> Some of the important changes are listed below. See the <a

1 0

[cmucl-cvs] CMUCL commit: cmucl-www/cmucl-www/www (index.html)
by Raymond Toy 12 Jan '11

12 Jan '11

Date: Tuesday, January 11, 2011 @ 19:47:39 Author: rtoy Path: /project/cmucl/cvsroot/cmucl-www/cmucl-www/www Modified: index.html Update with release notes for 2011-01. ------------+ index.html | 49 +++++++++++++++++++++++++++---------------------- 1 file changed, 27 insertions(+), 22 deletions(-) Index: cmucl-www/cmucl-www/www/index.html diff -u cmucl-www/cmucl-www/www/index.html:1.19 cmucl-www/cmucl-www/www/index.html:1.20 --- cmucl-www/cmucl-www/www/index.html:1.19 Mon Dec 6 20:25:14 2010 +++ cmucl-www/cmucl-www/www/index.html Tue Jan 11 19:47:39 2011 @@ -68,31 +68,36 @@ Also see <a href="news/index.html">News</a> for older news. <dl> -<dt>Snapshot 2010-12 +<dt>Snapshot 2011-01 <dd> - The 2010-11 snapshot has been released. See the release notes for + The 2011-01 snapshot has been released. See the release notes for details, but here is a quick summary of the changes between the - this snapshot and the 2010-11 snapshot. + this snapshot and the previous snapshot. <ul> - <li> ASDF2 updated to version 2.010.</li> - <li> On x86, <code>REALPART</code> and <code>IMAGPART</code> no longer incorrectly returns 0 - instead of the correct part of a complex number in some - situations.</li> - <li> The command line parser now correctly handles the case where - "--" is the first command option.</li> - <li> <code>build.sh</code> was accidenally loading the site-init file, but it - shouldn't. </li> - <li> On sparc, the vops to add a float to a complex were broken, - resulting in a complex number with the float as realpart and - garbage for the imaginary part. This is now fixed.</li> - <li> <code>XLIB::GET-BEST-AUTHORIZATION</code> will now return authorization data - if the protocol is :local, if the xauth file contains just - "localhost/unix:0". Previously, no authorization data was - returned because <code>GET-BEST-AUTHORIZATION</code> was looking for the - hostname.</li> - <li> <code>FORMAT</code> signals an warning if <code>~:;</code> is used inside <code>~:[.</code></li> - <li> <code>SET-SYSTEM-EXTERNAL-FORMAT</code> was not actually setting the filename - encoding if given.</li> + <li> Initial support for Solaris/x86. CMUCL will run on Solaris/x86 + with all features available. </li> + <li> <code>UNINTERN</code> no longer removes the wrong symbol. <code>UNINTERN</code> would + remove the symbol when inherited from another package although it + should not. + <li> <code>DEFSTRUCT</code> allows multiple keyword constructors as required by the spec.. + </li> + <li> <code>SUBSEQ</code> with an end index less than the start index sometimes + crashes CMUCL. Now, signal an error if the boudns are not + valid. + </li> + <li> Localization support was causing many calls to stat trying to + find non-existent translation files. This has been fixed so + that the results are cached. (If new translations are added, + the cache will need to be cleared or cmucl restarted.) This + change cuts building time by half on Solaris/sparc. + </li> + <li> On NetBSD, function-end breakpoints, especially for + tail-recursive functions, are working now. + </li> + <li> On NetBSD, display of FP numbers (sse2 and x87) during tracing + has been corrected. Previously, random values were displayed. + </li> + <li> Executables images can now be created on NetBSD again.</li> </ul> </dd>

1 0

[cmucl-cvs] CMUCL commit: src/compiler (srctran.lisp)
by Raymond Toy 12 Jan '11

12 Jan '11

Date: Tuesday, January 11, 2011 @ 19:41:34 Author: rtoy Path: /project/cmucl/cvsroot/src/compiler Modified: srctran.lisp Transform (EQ foo NIL) to the equivalent (IF foo NIL T). Optimization suggested by Helmut Eller on cmucl-imp, 2011-01-08. --------------+ srctran.lisp | 25 ++++++++++++++++++++++++- 1 file changed, 24 insertions(+), 1 deletion(-) Index: src/compiler/srctran.lisp diff -u src/compiler/srctran.lisp:1.173 src/compiler/srctran.lisp:1.174 --- src/compiler/srctran.lisp:1.173 Tue Apr 20 13:57:46 2010 +++ src/compiler/srctran.lisp Tue Jan 11 19:41:34 2011 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/compiler/srctran.lisp,v 1.173 2010-04-20 17:57:46 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/compiler/srctran.lisp,v 1.174 2011-01-12 00:41:34 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2945,6 +2945,29 @@ (%deftransform x '(function * *) #'commutative-arg-swap "place constant arg last.")) +;;; Convert (EQ foo NIL) and (EQ NIL foo) into the equivalent (if foo +;;; nil t), like we do for NULL and NOT so that IF optimizations will +;;; eliminate redundant negations. +(deftransform eq ((x y) (t t) * :when :both) + ;; It would be nice to use commutative-arg-swap above for this. + ;; Then we only need to handle one case. But if we do that + ;; commutative-arg-swap converts (eq 'declare x) to (eq x declare), + ;; losing the quote on declare. I'm too lazy to fix that in + ;; commutative-arg-swap, so we do everything here. + (cond ((and (constant-continuation-p x) + (not (constant-continuation-p y)) + (eq nil (continuation-value x))) + ;; (EQ NIL foo) case + `(if y nil t)) + ((and (constant-continuation-p y) + (not (constant-continuation-p x)) + (eq nil (continuation-value y))) + ;; (EQ foo NIL) case + `(if x nil t)) + (t + ;; Give up on all others. + (give-up)))) + ;;; Handle the case of a constant boole-code. ;;; (deftransform boole ((op x y) * * :when :both)

1 0

[cmucl-cvs] CMUCL commit: src/lisp (Config.x86_darwin Darwin-os.h gencgc.c gencgc.h)
by Raymond Toy 09 Jan '11

09 Jan '11

Date: Saturday, January 8, 2011 @ 19:12:36 Author: rtoy Path: /project/cmucl/cvsroot/src/lisp Modified: Config.x86_darwin Darwin-os.h gencgc.c gencgc.h Changes to support building on Mac OS X 10.6. When compiled on 10.6, the resulting binary still works on 10.5. lisp/Config.x86_darwin: o Add -m32 flag to build and link a 32-bit binary. lisp/Darwin-os.h: o Include <sys/ucontext.h> instead of <ucontext.h> to get rid of the error about deprecated functions in ucontext.h. lisp/gencgc.h: o Mac OS X defines PAGE_SIZE in a header and that conflicts with our name. Rename our PAGE_SIZE to GC_PAGE_SIZE. lisp/gencgc.c: o Rename PAGE_SIZE to GC_PAGE_SIZE. -------------------+ Config.x86_darwin | 4 - Darwin-os.h | 4 - gencgc.c | 162 ++++++++++++++++++++++++++-------------------------- gencgc.h | 14 ++-- 4 files changed, 92 insertions(+), 92 deletions(-) Index: src/lisp/Config.x86_darwin diff -u src/lisp/Config.x86_darwin:1.9 src/lisp/Config.x86_darwin:1.10 --- src/lisp/Config.x86_darwin:1.9 Fri Jul 30 18:51:58 2010 +++ src/lisp/Config.x86_darwin Sat Jan 8 19:12:36 2011 @@ -5,7 +5,7 @@ # Compile code that will run on OSX 10.4 (Tiger) MIN_VER = -mmacosx-version-min=10.4 -CPPFLAGS += -DDARWIN $(MIN_VER) +CPPFLAGS += -DDARWIN $(MIN_VER) -m32 CFLAGS += -g3 ASFLAGS += -g3 $(MIN_VER) @@ -13,7 +13,7 @@ UNDEFSYMPATTERN = -Xlinker -u -Xlinker & OS_SRC += Darwin-os.c mach-o.c -OS_LINK_FLAGS = $(MIN_VER) +OS_LINK_FLAGS = -m32 $(MIN_VER) OS_LIBS = EXEC_FINAL_OBJ = exec-final.o Index: src/lisp/Darwin-os.h diff -u src/lisp/Darwin-os.h:1.7 src/lisp/Darwin-os.h:1.8 --- src/lisp/Darwin-os.h:1.7 Thu Jan 3 06:41:54 2008 +++ src/lisp/Darwin-os.h Sat Jan 8 19:12:36 2011 @@ -1,6 +1,6 @@ /* - $Header: /project/cmucl/cvsroot/src/lisp/Darwin-os.h,v 1.7 2008-01-03 11:41:54 cshapiro Rel $ + $Header: /project/cmucl/cvsroot/src/lisp/Darwin-os.h,v 1.8 2011-01-09 00:12:36 rtoy Exp $ This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. @@ -14,7 +14,7 @@ #include <sys/mman.h> #include <sys/signal.h> #include <signal.h> -#include <ucontext.h> +#include <sys/ucontext.h> #include <mach/vm_types.h> typedef caddr_t os_vm_address_t; Index: src/lisp/gencgc.c diff -u src/lisp/gencgc.c:1.111 src/lisp/gencgc.c:1.112 --- src/lisp/gencgc.c:1.111 Tue Dec 21 21:12:52 2010 +++ src/lisp/gencgc.c Sat Jan 8 19:12:36 2011 @@ -7,7 +7,7 @@ * * Douglas Crosher, 1996, 1997, 1998, 1999. * - * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.c,v 1.111 2010-12-22 02:12:52 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.c,v 1.112 2011-01-09 00:12:36 rtoy Exp $ * */ @@ -324,7 +324,7 @@ /* * The minimum size for a large object. */ -unsigned large_object_size = 4 * PAGE_SIZE; +unsigned large_object_size = 4 * GC_PAGE_SIZE; /* * Enable the filtering of stack/register pointers. This could reduce @@ -394,7 +394,7 @@ static char * page_address(int page_num) { - return heap_base + PAGE_SIZE * page_num; + return heap_base + GC_PAGE_SIZE * page_num; } /* @@ -407,7 +407,7 @@ int index = (char *) addr - heap_base; if (index >= 0) { - index = (unsigned int) index / PAGE_SIZE; + index = (unsigned int) index / GC_PAGE_SIZE; if (index < dynamic_space_pages) return index; } @@ -441,7 +441,7 @@ "*** Page fault in page not marked as write protected\n"); /* Un-protect the page */ - os_protect((os_vm_address_t) page_address(page_index), PAGE_SIZE, OS_VM_PROT_ALL); + os_protect((os_vm_address_t) page_address(page_index), GC_PAGE_SIZE, OS_VM_PROT_ALL); page_table[page_index].flags &= ~PAGE_WRITE_PROTECTED_MASK; page_table[page_index].flags |= PAGE_WRITE_PROTECT_CLEARED_MASK; @@ -712,7 +712,7 @@ gens = NUM_GENERATIONS; /* Print the heap stats */ - fprintf(stderr, " Page count (%d KB)\n", PAGE_SIZE / 1024); + fprintf(stderr, " Page count (%d KB)\n", GC_PAGE_SIZE / 1024); fprintf(stderr, " Gen Boxed Unboxed LB LUB Alloc Waste Trigger WP GCs Mem-age\n"); @@ -750,7 +750,7 @@ fprintf(stderr, " %5d: %5d %5d %5d %5d %10d %6d %10d %4d %3d %7.4f\n", i, boxed_cnt, unboxed_cnt, large_boxed_cnt, large_unboxed_cnt, generations[i].bytes_allocated, - PAGE_SIZE * count_generation_pages(i) - + GC_PAGE_SIZE * count_generation_pages(i) - generations[i].bytes_allocated, generations[i].gc_trigger, count_write_protect_generation_pages(i), generations[i].num_gc, gen_av_mem_age(i)); @@ -993,7 +993,7 @@ if (!(flags & PAGE_ALLOCATED_MASK) || ((flags & mmask) == mflags && - page_table[first_page].bytes_used < PAGE_SIZE - 32)) + page_table[first_page].bytes_used < GC_PAGE_SIZE - 32)) break; first_page++; } @@ -1022,19 +1022,19 @@ * number of pages in a region. */ last_page = first_page; - bytes_found = PAGE_SIZE - page_table[first_page].bytes_used; + bytes_found = GC_PAGE_SIZE - page_table[first_page].bytes_used; num_pages = 1; while ((bytes_found < nbytes || num_pages < 2) && last_page < dynamic_space_pages - 1 && !PAGE_ALLOCATED(last_page + 1)) { last_page++; num_pages++; - bytes_found += PAGE_SIZE; + bytes_found += GC_PAGE_SIZE; gc_assert(!PAGE_WRITE_PROTECTED(last_page)); } - region_size = (PAGE_SIZE - page_table[first_page].bytes_used) - + PAGE_SIZE * (last_page - first_page); + region_size = (GC_PAGE_SIZE - page_table[first_page].bytes_used) + + GC_PAGE_SIZE * (last_page - first_page); gc_assert(bytes_found == region_size); @@ -1113,7 +1113,7 @@ if (last_page + 1 > last_free_page) { last_free_page = last_page + 1; set_alloc_pointer((lispobj) ((char *) heap_base + - PAGE_SIZE * last_free_page)); + GC_PAGE_SIZE * last_free_page)); } } @@ -1174,14 +1174,14 @@ gc_abort(); } - new_area_start = PAGE_SIZE * first_page + offset; + new_area_start = GC_PAGE_SIZE * first_page + offset; /* * Search backwards for a prior area that this follows from. If * found this will save adding a new area. */ for (i = new_areas_index - 1, c = 0; i >= 0 && c < 8; i--, c++) { - unsigned area_end = PAGE_SIZE * (*new_areas)[i].page + unsigned area_end = GC_PAGE_SIZE * (*new_areas)[i].page + (*new_areas)[i].offset + (*new_areas)[i].size; #if 0 @@ -1281,8 +1281,8 @@ */ more = 0; bytes_used = alloc_region->free_pointer - page_address(first_page); - if (bytes_used > PAGE_SIZE) { - bytes_used = PAGE_SIZE; + if (bytes_used > GC_PAGE_SIZE) { + bytes_used = GC_PAGE_SIZE; more = 1; } page_table[first_page].bytes_used = bytes_used; @@ -1309,8 +1309,8 @@ /* Calc. the number of bytes used in this page. */ more = 0; bytes_used = alloc_region->free_pointer - page_address(next_page); - if (bytes_used > PAGE_SIZE) { - bytes_used = PAGE_SIZE; + if (bytes_used > GC_PAGE_SIZE) { + bytes_used = GC_PAGE_SIZE; more = 1; } page_table[next_page].bytes_used = bytes_used; @@ -1456,7 +1456,7 @@ if (!(flags & PAGE_ALLOCATED_MASK) || ((flags & mmask) == mflags && - page_table[first_page].bytes_used < PAGE_SIZE - 32)) + page_table[first_page].bytes_used < GC_PAGE_SIZE - 32)) break; first_page++; } @@ -1478,19 +1478,19 @@ #endif last_page = first_page; - bytes_found = PAGE_SIZE - page_table[first_page].bytes_used; + bytes_found = GC_PAGE_SIZE - page_table[first_page].bytes_used; num_pages = 1; while (bytes_found < nbytes && last_page < dynamic_space_pages - 1 && !PAGE_ALLOCATED(last_page + 1)) { last_page++; num_pages++; - bytes_found += PAGE_SIZE; + bytes_found += GC_PAGE_SIZE; gc_assert(!PAGE_WRITE_PROTECTED(last_page)); } - region_size = (PAGE_SIZE - page_table[first_page].bytes_used) - + PAGE_SIZE * (last_page - first_page); + region_size = (GC_PAGE_SIZE - page_table[first_page].bytes_used) + + GC_PAGE_SIZE * (last_page - first_page); gc_assert(bytes_found == region_size); @@ -1555,8 +1555,8 @@ */ more = 0; bytes_used = nbytes + orig_first_page_bytes_used; - if (bytes_used > PAGE_SIZE) { - bytes_used = PAGE_SIZE; + if (bytes_used > GC_PAGE_SIZE) { + bytes_used = GC_PAGE_SIZE; more = 1; } page_table[first_page].bytes_used = bytes_used; @@ -1579,13 +1579,13 @@ PAGE_FLAGS_UPDATE(next_page, mmask, mflags); page_table[next_page].first_object_offset = - orig_first_page_bytes_used - PAGE_SIZE * (next_page - first_page); + orig_first_page_bytes_used - GC_PAGE_SIZE * (next_page - first_page); /* Calc. the number of bytes used in this page. */ more = 0; bytes_used = nbytes + orig_first_page_bytes_used - byte_cnt; - if (bytes_used > PAGE_SIZE) { - bytes_used = PAGE_SIZE; + if (bytes_used > GC_PAGE_SIZE) { + bytes_used = GC_PAGE_SIZE; more = 1; } page_table[next_page].bytes_used = bytes_used; @@ -1607,7 +1607,7 @@ if (last_page + 1 > last_free_page) { last_free_page = last_page + 1; set_alloc_pointer((lispobj) ((char *) heap_base + - PAGE_SIZE * last_free_page)); + GC_PAGE_SIZE * last_free_page)); } return (void *) (page_address(first_page) + orig_first_page_bytes_used); @@ -1961,7 +1961,7 @@ return page_index >= 0 && (page_index = - (unsigned int) page_index / PAGE_SIZE) < dynamic_space_pages + (unsigned int) page_index / GC_PAGE_SIZE) < dynamic_space_pages && PAGE_GENERATION(page_index) == from_space; } @@ -1972,7 +1972,7 @@ return page_index >= 0 && (page_index = - (unsigned int) page_index / PAGE_SIZE) < dynamic_space_pages + (unsigned int) page_index / GC_PAGE_SIZE) < dynamic_space_pages && PAGE_GENERATION(page_index) == new_space; } @@ -2170,14 +2170,14 @@ next_page = first_page; remaining_bytes = nwords * sizeof(lispobj); - while (remaining_bytes > PAGE_SIZE) { + while (remaining_bytes > GC_PAGE_SIZE) { gc_assert(PAGE_GENERATION(next_page) == from_space); gc_assert(PAGE_ALLOCATED(next_page)); gc_assert(!PAGE_UNBOXED(next_page)); gc_assert(PAGE_LARGE_OBJECT(next_page)); gc_assert(page_table[next_page].first_object_offset == - PAGE_SIZE * (first_page - next_page)); - gc_assert(page_table[next_page].bytes_used == PAGE_SIZE); + GC_PAGE_SIZE * (first_page - next_page)); + gc_assert(page_table[next_page].bytes_used == GC_PAGE_SIZE); PAGE_FLAGS_UPDATE(next_page, PAGE_GENERATION_MASK, new_space); @@ -2186,11 +2186,11 @@ * WP flag to avoid redundant calls. */ if (PAGE_WRITE_PROTECTED(next_page)) { - os_protect((os_vm_address_t) page_address(next_page), PAGE_SIZE, + os_protect((os_vm_address_t) page_address(next_page), GC_PAGE_SIZE, OS_VM_PROT_ALL); page_table[next_page].flags &= ~PAGE_WRITE_PROTECTED_MASK; } - remaining_bytes -= PAGE_SIZE; + remaining_bytes -= GC_PAGE_SIZE; next_page++; } @@ -2218,10 +2218,10 @@ /* Free any remaining pages; needs care. */ next_page++; - while (old_bytes_used == PAGE_SIZE && + while (old_bytes_used == GC_PAGE_SIZE && PAGE_FLAGS(next_page, mmask) == mflags && page_table[next_page].first_object_offset == - PAGE_SIZE * (first_page - next_page)) { + GC_PAGE_SIZE * (first_page - next_page)) { /* * Checks out OK, free the page. Don't need to both zeroing * pages as this should have been done before shrinking the @@ -2352,18 +2352,18 @@ next_page = first_page; remaining_bytes = nwords * sizeof(lispobj); - while (remaining_bytes > PAGE_SIZE) { + while (remaining_bytes > GC_PAGE_SIZE) { gc_assert(PAGE_GENERATION(next_page) == from_space); gc_assert(PAGE_ALLOCATED(next_page)); gc_assert(PAGE_LARGE_OBJECT(next_page)); gc_assert(page_table[next_page].first_object_offset == - PAGE_SIZE * (first_page - next_page)); - gc_assert(page_table[next_page].bytes_used == PAGE_SIZE); + GC_PAGE_SIZE * (first_page - next_page)); + gc_assert(page_table[next_page].bytes_used == GC_PAGE_SIZE); PAGE_FLAGS_UPDATE(next_page, PAGE_UNBOXED_MASK | PAGE_GENERATION_MASK, PAGE_UNBOXED_MASK | new_space); - remaining_bytes -= PAGE_SIZE; + remaining_bytes -= GC_PAGE_SIZE; next_page++; } @@ -2391,10 +2391,10 @@ /* Free any remaining pages; needs care. */ next_page++; - while (old_bytes_used == PAGE_SIZE && + while (old_bytes_used == GC_PAGE_SIZE && PAGE_FLAGS(next_page, mmask) == mflags && page_table[next_page].first_object_offset == - PAGE_SIZE * (first_page - next_page)) { + GC_PAGE_SIZE * (first_page - next_page)) { /* * Checks out OK, free the page. Don't need to both zeroing * pages as this should have been done before shrinking the @@ -5880,13 +5880,13 @@ next_page = first_page; remaining_bytes = nwords * sizeof(lispobj); - while (remaining_bytes > PAGE_SIZE) { + while (remaining_bytes > GC_PAGE_SIZE) { gc_assert(PAGE_GENERATION(next_page) == from_space); gc_assert(PAGE_ALLOCATED(next_page)); gc_assert(PAGE_LARGE_OBJECT(next_page)); gc_assert(page_table[next_page].first_object_offset == - PAGE_SIZE * (first_page - next_page)); - gc_assert(page_table[next_page].bytes_used == PAGE_SIZE); + GC_PAGE_SIZE * (first_page - next_page)); + gc_assert(page_table[next_page].bytes_used == GC_PAGE_SIZE); PAGE_FLAGS_UPDATE(next_page, PAGE_UNBOXED_MASK, unboxed << PAGE_UNBOXED_SHIFT); @@ -5896,7 +5896,7 @@ * pages aren't. */ gc_assert(!PAGE_WRITE_PROTECTED(next_page)); - remaining_bytes -= PAGE_SIZE; + remaining_bytes -= GC_PAGE_SIZE; next_page++; } @@ -5924,9 +5924,9 @@ /* Free any remaining pages; needs care. */ next_page++; - while (old_bytes_used == PAGE_SIZE && + while (old_bytes_used == GC_PAGE_SIZE && PAGE_FLAGS(next_page, mmask) == mflags && - page_table[next_page].first_object_offset == PAGE_SIZE * (first_page + page_table[next_page].first_object_offset == GC_PAGE_SIZE * (first_page - next_page)) { @@ -6010,7 +6010,7 @@ while (page_table[first_page].first_object_offset != 0) { first_page--; /* Do some checks */ - gc_assert(page_table[first_page].bytes_used == PAGE_SIZE); + gc_assert(page_table[first_page].bytes_used == GC_PAGE_SIZE); gc_assert(PAGE_GENERATION(first_page) == from_space); gc_assert(PAGE_ALLOCATED(first_page)); gc_assert(PAGE_UNBOXED(first_page) == region_unboxed); @@ -6072,8 +6072,8 @@ gc_assert(!PAGE_WRITE_PROTECTED(i)); /* Check if this is the last page in this contiguous block */ - if (page_table[i].bytes_used < PAGE_SIZE - /* Or it is PAGE_SIZE and is the last in the block */ + if (page_table[i].bytes_used < GC_PAGE_SIZE + /* Or it is GC_PAGE_SIZE and is the last in the block */ || !PAGE_ALLOCATED(i + 1) || page_table[i + 1].bytes_used == 0 /* Next page free */ || PAGE_GENERATION(i + 1) != from_space /* Diff. gen */ @@ -6214,7 +6214,7 @@ fprintf(stderr, "* WP page %d of gen %d\n", page, gen); #endif - os_protect((os_vm_address_t) page_addr, PAGE_SIZE, + os_protect((os_vm_address_t) page_addr, GC_PAGE_SIZE, OS_VM_PROT_READ | OS_VM_PROT_EXECUTE); /* Note the page as protected in the page tables */ @@ -6292,8 +6292,8 @@ */ for (last_page = i;; last_page++) /* Check if this is the last page in this contiguous block */ - if (page_table[last_page].bytes_used < PAGE_SIZE - /* Or it is PAGE_SIZE and is the last in the block */ + if (page_table[last_page].bytes_used < GC_PAGE_SIZE + /* Or it is GC_PAGE_SIZE and is the last in the block */ || !PAGE_ALLOCATED(last_page + 1) || PAGE_UNBOXED(last_page + 1) || page_table[last_page + 1].bytes_used == 0 @@ -6318,7 +6318,7 @@ #endif { scavenge(page_address(i), (page_table[last_page].bytes_used - + PAGE_SIZE * (last_page - + + GC_PAGE_SIZE * (last_page - i)) / sizeof(lispobj)); @@ -6425,8 +6425,8 @@ */ for (last_page = i;; last_page++) /* Check if this is the last page in this contiguous block */ - if (page_table[last_page].bytes_used < PAGE_SIZE - /* Or it is PAGE_SIZE and is the last in the block */ + if (page_table[last_page].bytes_used < GC_PAGE_SIZE + /* Or it is GC_PAGE_SIZE and is the last in the block */ || !PAGE_ALLOCATED(last_page + 1) || PAGE_UNBOXED(last_page + 1) || page_table[last_page + 1].bytes_used == 0 @@ -6462,7 +6462,7 @@ else size = (page_table[last_page].bytes_used + - PAGE_SIZE * (last_page - i) - + GC_PAGE_SIZE * (last_page - i) - page_table[i].first_object_offset) / sizeof(lispobj); @@ -6750,7 +6750,7 @@ * WP flag to avoid redundant calls. */ if (PAGE_WRITE_PROTECTED(i)) { - os_protect((os_vm_address_t) page_start, PAGE_SIZE, + os_protect((os_vm_address_t) page_start, GC_PAGE_SIZE, OS_VM_PROT_ALL); page_table[i].flags &= ~PAGE_WRITE_PROTECTED_MASK; } @@ -6802,7 +6802,7 @@ void *page_start = (void *) page_address(last_page); if (PAGE_WRITE_PROTECTED(last_page)) { - os_protect((os_vm_address_t) page_start, PAGE_SIZE, + os_protect((os_vm_address_t) page_start, GC_PAGE_SIZE, OS_VM_PROT_ALL); page_table[last_page].flags &= ~PAGE_WRITE_PROTECTED_MASK; } @@ -6820,10 +6820,10 @@ page_start = page_address(first_page); os_invalidate((os_vm_address_t) page_start, - PAGE_SIZE * (last_page - first_page)); + GC_PAGE_SIZE * (last_page - first_page)); addr = (char *) os_validate((os_vm_address_t) page_start, - PAGE_SIZE * (last_page - first_page)); + GC_PAGE_SIZE * (last_page - first_page)); if (addr == NULL || addr != page_start) fprintf(stderr, "gc_zero: page moved, 0x%08lx ==> 0x%08lx!\n", (unsigned long) page_start, (unsigned long) addr); @@ -6831,7 +6831,7 @@ int *page_start; page_start = (int *) page_address(first_page); - memset(page_start, 0, PAGE_SIZE * (last_page - first_page)); + memset(page_start, 0, GC_PAGE_SIZE * (last_page - first_page)); } first_page = last_page; @@ -7150,8 +7150,8 @@ */ for (last_page = i;; last_page++) /* Check if this is the last page in this contiguous block */ - if (page_table[last_page].bytes_used < PAGE_SIZE - /* Or it is PAGE_SIZE and is the last in the block */ + if (page_table[last_page].bytes_used < GC_PAGE_SIZE + /* Or it is GC_PAGE_SIZE and is the last in the block */ || !PAGE_ALLOCATED(last_page + 1) || PAGE_UNBOXED(last_page + 1) != region_unboxed || page_table[last_page + 1].bytes_used == 0 @@ -7161,7 +7161,7 @@ verify_space((lispobj *) page_address(i), (page_table[last_page].bytes_used + - PAGE_SIZE * (last_page - i)) / sizeof(lispobj)); + GC_PAGE_SIZE * (last_page - i)) / sizeof(lispobj)); i = last_page; } } @@ -7185,7 +7185,7 @@ fprintf(stderr, "** free page not zero @ %lx\n", (unsigned long) (start_addr + i)); } else { - int free_bytes = PAGE_SIZE - page_table[page].bytes_used; + int free_bytes = GC_PAGE_SIZE - page_table[page].bytes_used; if (free_bytes > 0) { unsigned long *start_addr = @@ -7251,7 +7251,7 @@ page_start = (void *) page_address(i); - os_protect((os_vm_address_t) page_start, PAGE_SIZE, + os_protect((os_vm_address_t) page_start, GC_PAGE_SIZE, OS_VM_PROT_READ | OS_VM_PROT_EXECUTE); /* Note the page as protected in the page tables */ @@ -7396,7 +7396,7 @@ fprintf(stderr, "Non-movable pages due to conservative pointers = %d, %d bytes\n", - num_dont_move_pages, PAGE_SIZE * num_dont_move_pages); + num_dont_move_pages, GC_PAGE_SIZE * num_dont_move_pages); #if !(defined(i386) || defined(__x86_64)) /* * There shouldn't be any non-movable pages because we don't have @@ -7576,7 +7576,7 @@ last_free_page = last_page + 1; set_alloc_pointer((lispobj) - ((char *) heap_base + PAGE_SIZE * last_free_page)); + ((char *) heap_base + GC_PAGE_SIZE * last_free_page)); } @@ -7770,12 +7770,12 @@ page_start = (void *) page_address(page); /* First remove any write protection */ - os_protect((os_vm_address_t) page_start, PAGE_SIZE, OS_VM_PROT_ALL); + os_protect((os_vm_address_t) page_start, GC_PAGE_SIZE, OS_VM_PROT_ALL); page_table[page].flags &= ~PAGE_WRITE_PROTECTED_MASK; - os_invalidate((os_vm_address_t) page_start, PAGE_SIZE); + os_invalidate((os_vm_address_t) page_start, GC_PAGE_SIZE); addr = - (char *) os_validate((os_vm_address_t) page_start, PAGE_SIZE); + (char *) os_validate((os_vm_address_t) page_start, GC_PAGE_SIZE); if (addr == NULL || addr != page_start) fprintf(stderr, "gc_zero: page moved, 0x%08lx ==> 0x%08lx!\n", (unsigned long) page_start, (unsigned long) addr); @@ -7853,7 +7853,7 @@ heap_base = (void *) DYNAMIC_0_SPACE_START; /* The number of pages needed for the dynamic space - rounding up. */ - dynamic_space_pages = (dynamic_space_size + (PAGE_SIZE - 1)) / PAGE_SIZE; + dynamic_space_pages = (dynamic_space_size + (GC_PAGE_SIZE - 1)) / GC_PAGE_SIZE; page_table = (struct page *) malloc(dynamic_space_pages * sizeof(struct page)); @@ -7932,16 +7932,16 @@ page_table[page].flags |= PAGE_ALLOCATED_MASK; page_table[page].flags &= ~(PAGE_UNBOXED_MASK | PAGE_GENERATION_MASK | PAGE_LARGE_OBJECT_MASK); - page_table[page].bytes_used = PAGE_SIZE; + page_table[page].bytes_used = GC_PAGE_SIZE; page_table[page].first_object_offset = (char *) DYNAMIC_0_SPACE_START - page_address(page); - addr += PAGE_SIZE; + addr += GC_PAGE_SIZE; page++; } while (addr < alloc_ptr); - generations[0].bytes_allocated = PAGE_SIZE * page; - bytes_allocated = PAGE_SIZE * page; + generations[0].bytes_allocated = GC_PAGE_SIZE * page; + bytes_allocated = GC_PAGE_SIZE * page; set_current_region_free((lispobj) boxed_region.free_pointer); set_current_region_end((lispobj) boxed_region.end_addr); Index: src/lisp/gencgc.h diff -u src/lisp/gencgc.h:1.16 src/lisp/gencgc.h:1.17 --- src/lisp/gencgc.h:1.16 Mon Nov 2 10:05:07 2009 +++ src/lisp/gencgc.h Sat Jan 8 19:12:36 2011 @@ -7,7 +7,7 @@ * * Douglas Crosher, 1996, 1997. * - * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.h,v 1.16 2009-11-02 15:05:07 rtoy Rel $ + * $Header: /project/cmucl/cvsroot/src/lisp/gencgc.h,v 1.17 2011-01-09 00:12:36 rtoy Exp $ * */ @@ -124,7 +124,7 @@ */ #if defined(i386) -#define PAGE_SIZE 4096 +#define GC_PAGE_SIZE 4096 #elif defined(sparc) /* * For sparc, the minimum page size (physical page size) is 8K. @@ -134,17 +134,17 @@ * page size. (I'm assuming the gain is because we do the kernel * allocation trap less often.) */ -#define PAGE_SIZE (4*8192) +#define GC_PAGE_SIZE (4*8192) #elif defined(DARWIN) /* * The physical page size is 4K. Like sparc, this appears to be * somewhat slow (but need to verify that), so let's make the page * size 32K so we hit the allocation trap less often. */ -/*#define PAGE_SIZE 4096*/ -/*#define PAGE_SIZE (2*4096)*/ -#define PAGE_SIZE (4*4096) -/*#define PAGE_SIZE (8*4096)*/ +/*#define GC_PAGE_SIZE 4096*/ +/*#define GC_PAGE_SIZE (2*4096)*/ +#define GC_PAGE_SIZE (4*4096) +/*#define GC_PAGE_SIZE (8*4096)*/ #endif extern unsigned dynamic_space_pages;

1 0

[cmucl-cvs] CMUCL commit: src/tools (build-all.sh)
by Raymond Toy 08 Jan '11

08 Jan '11

Date: Friday, January 7, 2011 @ 18:43:58 Author: rtoy Path: /project/cmucl/cvsroot/src/tools Modified: build-all.sh Oops. Forgot to tell getopts about the -B option. --------------+ build-all.sh | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) Index: src/tools/build-all.sh diff -u src/tools/build-all.sh:1.2 src/tools/build-all.sh:1.3 --- src/tools/build-all.sh:1.2 Wed Oct 27 20:01:46 2010 +++ src/tools/build-all.sh Fri Jan 7 18:43:58 2011 @@ -37,7 +37,7 @@ BASE=build CREATE_OPT="" -while getopts "Ub:v:C:o:8:?" arg +while getopts "UB:b:v:C:o:8:?" arg do case $arg in b) BASE="$OPTARG" ;;

1 0

[cmucl-cvs] CMUCL commit: src/code (unix.lisp)
by Raymond Toy 07 Jan '11

07 Jan '11

Date: Thursday, January 6, 2011 @ 22:46:43 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: unix.lisp Fix typo in unix-uname. We want to use "uname" everywhere except on freebsd and solaris/x86. -----------+ unix.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/code/unix.lisp diff -u src/code/unix.lisp:1.133 src/code/unix.lisp:1.134 --- src/code/unix.lisp:1.133 Tue Dec 21 21:15:39 2010 +++ src/code/unix.lisp Thu Jan 6 22:46:42 2011 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/unix.lisp,v 1.133 2010-12-22 02:15:39 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/unix.lisp,v 1.134 2011-01-07 03:46:42 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3391,7 +3391,7 @@ (defun unix-uname () (with-alien ((names (struct utsname))) - (syscall* (#-(or freebsd solaris) "uname" + (syscall* (#-(or freebsd (and x86 solaris)) "uname" #+(and x86 solaris) "nuname" ; See /usr/include/sys/utsname.h #+freebsd "__xuname" #+freebsd int (* (struct utsname)))

1 0

[cmucl-cvs] CMUCL commit: src/code (debug-int.lisp)
by Raymond Toy 27 Dec '10

27 Dec '10

Date: Sunday, December 26, 2010 @ 21:05:31 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: debug-int.lisp NetBSD has a working dladdr, so we can use the fancy FIND-FOREIGN-FUNCTION-NAME. ----------------+ debug-int.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) Index: src/code/debug-int.lisp diff -u src/code/debug-int.lisp:1.143 src/code/debug-int.lisp:1.144 --- src/code/debug-int.lisp:1.143 Sun Dec 26 18:14:21 2010 +++ src/code/debug-int.lisp Sun Dec 26 21:05:31 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/debug-int.lisp,v 1.143 2010-12-26 23:14:21 rtoy Exp $") + "$Header: /project/cmucl/cvsroot/src/code/debug-int.lisp,v 1.144 2010-12-27 02:05:31 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1180,7 +1180,7 @@ frame))))) -#+(or sparc (and x86 darwin) (and (or x86 amd64) linux) (and x86 solaris)) +#+(or sparc (and x86 (or darwin solaris netbsd)) (and (or x86 amd64) linux)) (defun find-foreign-function-name (address) "Return a string describing the foreign function near ADDRESS" (let ((addr (sys:sap-int address))) @@ -1203,7 +1203,7 @@ (alien:slot info 'filename) ))))))) -#-(or sparc (and x86 darwin) (and (or x86 amd64) linux) (and x86 solaris)) +#-(or sparc (and x86 (or darwin solaris netbsd)) (and (or x86 amd64) linux)) (defun find-foreign-function-name (ra) (declare (ignore ra)) "Foreign function call land")

1 0

[cmucl-cvs] CMUCL commit: src/motif/server (Config.Darwin)
by Raymond Toy 27 Dec '10

27 Dec '10

Date: Sunday, December 26, 2010 @ 20:46:46 Author: rtoy Path: /project/cmucl/cvsroot/src/motif/server Modified: Config.Darwin o The latest openmotif from macports appears to be linked against the macports X11 libs, so search for that first. Without that, motifd crashes. o Add -g to enable debugging. ---------------+ Config.Darwin | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) Index: src/motif/server/Config.Darwin diff -u src/motif/server/Config.Darwin:1.3 src/motif/server/Config.Darwin:1.4 --- src/motif/server/Config.Darwin:1.3 Tue Jan 22 07:43:42 2008 +++ src/motif/server/Config.Darwin Sun Dec 26 20:46:46 2010 @@ -1,5 +1,5 @@ -CFLAGS = -O2 -I/opt/local/include -I/sw/include -I/usr/local/include -I/usr/X11R6/include -I. -I$(VPATH) -LDFLAGS = -L/usr/X11R6/lib -L/opt/local/lib -L/sw/lib -L/usr/local/lib +CFLAGS = -g -O2 -I/opt/local/include -I/sw/include -I/usr/local/include -I/usr/X11R6/include -I. -I$(VPATH) +LDFLAGS = -L/opt/local/lib -L/usr/X11R6/lib -L/sw/lib -L/usr/local/lib LIBS = -lXm -lXt -lXext -lX11 -lSM -lICE #LIBS = -lXm -lXt -lXext -lX11 -lSM -lICE -llanginfo # This def assumes you are building in the same or parallel

1 0

[cmucl-cvs] CMUCL commit: src/code (debug-int.lisp)
by Raymond Toy 27 Dec '10

27 Dec '10

Date: Sunday, December 26, 2010 @ 18:14:22 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: debug-int.lisp Solaris/x86 has a working dladdr, so we can use the fancy FIND-FOREIGN-FUNCTION-NAME. ----------------+ debug-int.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) Index: src/code/debug-int.lisp diff -u src/code/debug-int.lisp:1.142 src/code/debug-int.lisp:1.143 --- src/code/debug-int.lisp:1.142 Wed Jul 14 19:08:59 2010 +++ src/code/debug-int.lisp Sun Dec 26 18:14:21 2010 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /project/cmucl/cvsroot/src/code/debug-int.lisp,v 1.142 2010-07-14 23:08:59 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/debug-int.lisp,v 1.143 2010-12-26 23:14:21 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1180,7 +1180,7 @@ frame))))) -#+(or sparc (and x86 darwin) (and (or x86 amd64) linux)) +#+(or sparc (and x86 darwin) (and (or x86 amd64) linux) (and x86 solaris)) (defun find-foreign-function-name (address) "Return a string describing the foreign function near ADDRESS" (let ((addr (sys:sap-int address))) @@ -1203,7 +1203,7 @@ (alien:slot info 'filename) ))))))) -#-(or sparc (and x86 darwin) (and (or x86 amd64) linux)) +#-(or sparc (and x86 darwin) (and (or x86 amd64) linux) (and x86 solaris)) (defun find-foreign-function-name (ra) (declare (ignore ra)) "Foreign function call land")

1 0

[cmucl-cvs] CMUCL commit: src/lisp (8 files)
by Robert Swindells 26 Dec '10

26 Dec '10

Date: Sunday, December 26, 2010 @ 11:04:44 Author: rswindells Path: /project/cmucl/cvsroot/src/lisp Modified: Darwin-os.c FreeBSD-os.c Linux-os.c NetBSD-os.c lisp.c os.h solaris-os.c x86-arch.c Add a test for whether the operating system supports use of the SSE2 registers. The test is a stub on everything except NetBSD for now. --------------+ Darwin-os.c | 10 +++++++++- FreeBSD-os.c | 11 ++++++++++- Linux-os.c | 10 +++++++++- NetBSD-os.c | 18 +++++++++++++++++- lisp.c | 6 +++--- os.h | 6 +++++- solaris-os.c | 8 +++++++- x86-arch.c | 4 ++-- 8 files changed, 62 insertions(+), 11 deletions(-) Index: src/lisp/Darwin-os.c diff -u src/lisp/Darwin-os.c:1.30 src/lisp/Darwin-os.c:1.31 --- src/lisp/Darwin-os.c:1.30 Tue Jun 22 12:55:17 2010 +++ src/lisp/Darwin-os.c Sun Dec 26 11:04:43 2010 @@ -14,7 +14,7 @@ * Frobbed for OpenBSD by Pierre R. Mai, 2001. * Frobbed for Darwin by Pierre R. Mai, 2003. * - * $Header: /project/cmucl/cvsroot/src/lisp/Darwin-os.c,v 1.30 2010-06-22 16:55:17 rtoy Rel $ + * $Header: /project/cmucl/cvsroot/src/lisp/Darwin-os.c,v 1.31 2010-12-26 16:04:43 rswindells Exp $ * */ @@ -523,3 +523,11 @@ return sym_addr; } + +#ifdef i386 +boolean +os_support_sse2() +{ + return TRUE; +} +#endif Index: src/lisp/FreeBSD-os.c diff -u src/lisp/FreeBSD-os.c:1.36 src/lisp/FreeBSD-os.c:1.37 --- src/lisp/FreeBSD-os.c:1.36 Tue Sep 7 23:28:08 2010 +++ src/lisp/FreeBSD-os.c Sun Dec 26 11:04:43 2010 @@ -12,7 +12,7 @@ * Much hacked by Paul Werkowski * GENCGC support by Douglas Crosher, 1996, 1997. * - * $Header: /project/cmucl/cvsroot/src/lisp/FreeBSD-os.c,v 1.36 2010-09-08 03:28:08 agoncharov Rel $ + * $Header: /project/cmucl/cvsroot/src/lisp/FreeBSD-os.c,v 1.37 2010-12-26 16:04:43 rswindells Exp $ * */ @@ -356,3 +356,12 @@ } #endif } + +#ifdef i386 +boolean +os_support_sse2() +{ + return TRUE; +} +#endif + Index: src/lisp/Linux-os.c diff -u src/lisp/Linux-os.c:1.50 src/lisp/Linux-os.c:1.51 --- src/lisp/Linux-os.c:1.50 Tue Jun 22 12:55:17 2010 +++ src/lisp/Linux-os.c Sun Dec 26 11:04:43 2010 @@ -15,7 +15,7 @@ * GENCGC support by Douglas Crosher, 1996, 1997. * Alpha support by Julian Dolby, 1999. * - * $Header: /project/cmucl/cvsroot/src/lisp/Linux-os.c,v 1.50 2010-06-22 16:55:17 rtoy Rel $ + * $Header: /project/cmucl/cvsroot/src/lisp/Linux-os.c,v 1.51 2010-12-26 16:04:43 rswindells Exp $ * */ @@ -537,3 +537,11 @@ #endif } } + +#ifdef i386 +boolean +os_support_sse2() +{ + return TRUE; +} +#endif Index: src/lisp/NetBSD-os.c diff -u src/lisp/NetBSD-os.c:1.18 src/lisp/NetBSD-os.c:1.19 --- src/lisp/NetBSD-os.c:1.18 Thu Dec 23 12:38:05 2010 +++ src/lisp/NetBSD-os.c Sun Dec 26 11:04:43 2010 @@ -15,7 +15,7 @@ * Frobbed for OpenBSD by Pierre R. Mai, 2001. * Frobbed for NetBSD by Pierre R. Mai, 2002. * - * $Header: /project/cmucl/cvsroot/src/lisp/NetBSD-os.c,v 1.18 2010-12-23 17:38:05 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/NetBSD-os.c,v 1.19 2010-12-26 16:04:43 rswindells Exp $ * */ @@ -36,6 +36,7 @@ /* #include <sys/sysinfo.h> */ #include <sys/proc.h> #include <dlfcn.h> +#include <sys/sysctl.h> #include "validate.h" size_t os_vm_page_size; @@ -409,3 +410,18 @@ __asm__ __volatile__ ("ldmxcsr %0"::"m"(*&mxcsr)); } } + +#ifdef i386 +boolean +os_support_sse2() +{ + int support_sse2; + size_t len; + + if (sysctlbyname("machdep.sse2", &support_sse2, &len, + NULL, 0) == 0 && support_sse2 != 0) + return TRUE; + else + return FALSE; +} +#endif Index: src/lisp/lisp.c diff -u src/lisp/lisp.c:1.80 src/lisp/lisp.c:1.81 --- src/lisp/lisp.c:1.80 Wed Dec 22 22:20:27 2010 +++ src/lisp/lisp.c Sun Dec 26 11:04:43 2010 @@ -1,7 +1,7 @@ /* * main() entry point for a stand alone lisp image. * - * $Header: /project/cmucl/cvsroot/src/lisp/lisp.c,v 1.80 2010-12-23 03:20:27 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/lisp.c,v 1.81 2010-12-26 16:04:43 rswindells Exp $ * */ @@ -715,8 +715,8 @@ } #ifdef i386 - if ((fpu_type == SSE2) && !arch_support_sse2()) { - fprintf(stderr, "Core uses SSE2, but CPU doesn't support SSE2. Exiting\n"); + if ((fpu_type == SSE2) && (!arch_support_sse2() || !os_support_sse2())) { + fprintf(stderr, "Core uses SSE2, but CPU/OS doesn't support SSE2. Exiting\n"); exit(1); } fpu_mode = fpu_type; Index: src/lisp/os.h diff -u src/lisp/os.h:1.26 src/lisp/os.h:1.27 --- src/lisp/os.h:1.26 Mon Feb 1 12:38:48 2010 +++ src/lisp/os.h Sun Dec 26 11:04:43 2010 @@ -1,5 +1,5 @@ /* - * $Header: /project/cmucl/cvsroot/src/lisp/os.h,v 1.26 2010-02-01 17:38:48 rtoy Rel $ + * $Header: /project/cmucl/cvsroot/src/lisp/os.h,v 1.27 2010-12-26 16:04:43 rswindells Exp $ * * Common interface for os-dependent functions. * @@ -115,6 +115,10 @@ unsigned char *os_sigcontext_fpu_reg(ucontext_t *, int); unsigned int os_sigcontext_fpu_modes(ucontext_t *); +#ifdef i386 +extern boolean os_support_sse2(void); +#endif + char* convert_lisp_string(char* c_string, void* lisp_string, int len); #endif /* _OS_H_ */ Index: src/lisp/solaris-os.c diff -u src/lisp/solaris-os.c:1.28 src/lisp/solaris-os.c:1.29 --- src/lisp/solaris-os.c:1.28 Thu Dec 23 18:02:58 2010 +++ src/lisp/solaris-os.c Sun Dec 26 11:04:43 2010 @@ -1,5 +1,5 @@ /* - * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.28 2010-12-23 23:02:58 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/solaris-os.c,v 1.29 2010-12-26 16:04:43 rswindells Exp $ * * OS-dependent routines. This file (along with os.h) exports an * OS-independent interface to the operating system VM facilities. @@ -609,4 +609,10 @@ modes ^= (0x3f << 7); return modes; } + +boolean +os_support_sse2() +{ + return TRUE; +} #endif Index: src/lisp/x86-arch.c diff -u src/lisp/x86-arch.c:1.42 src/lisp/x86-arch.c:1.43 --- src/lisp/x86-arch.c:1.42 Thu Dec 23 17:55:31 2010 +++ src/lisp/x86-arch.c Sun Dec 26 11:04:43 2010 @@ -1,6 +1,6 @@ /* x86-arch.c -*- Mode: C; comment-column: 40 -*- * - * $Header: /project/cmucl/cvsroot/src/lisp/x86-arch.c,v 1.42 2010-12-23 22:55:31 rtoy Exp $ + * $Header: /project/cmucl/cvsroot/src/lisp/x86-arch.c,v 1.43 2010-12-26 16:04:43 rswindells Exp $ * */ @@ -105,7 +105,7 @@ { int have_sse2; - have_sse2 = arch_support_sse2(); + have_sse2 = arch_support_sse2() && os_support_sse2(); switch (mode) { case AUTO:

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

cmucl-cvs