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

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

27 Jan '11

Date: Wednesday, January 26, 2011 @ 19:49:32 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: reader.lisp Micro optimization: In SET-CMT-ENTRY, if the char-code is above attribute-table-limit and if the newvalue is #'read-token, we don't actually add the entry to the character-macro-hash-table, because that is the default value for the hash-table. This helps to keep the hash-table size small. -------------+ reader.lisp | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) Index: src/code/reader.lisp diff -u src/code/reader.lisp:1.67 src/code/reader.lisp:1.68 --- src/code/reader.lisp:1.67 Tue Apr 20 13:57:45 2010 +++ src/code/reader.lisp Wed Jan 26 19:49:32 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/reader.lisp,v 1.67 2010-04-20 17:57:45 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/reader.lisp,v 1.68 2011-01-27 00:49:32 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -275,8 +275,14 @@ (setf (elt (the simple-vector (character-macro-table rt)) code) (coerce newvalue 'function)) - (setf (gethash code (character-macro-hash-table rt)) - (coerce newvalue 'function))))) + (let ((f (coerce newvalue 'function))) + ;; Don't add an entry if the function would be the same as + ;; the default. This needs to be coordinated with + ;; GET-CMT-ENTRY above. + (if (eq f #'read-token) + f + (setf (gethash code (character-macro-hash-table rt)) + f)))))) (defun undefined-macro-char (stream char) (unless *read-suppress*

1 0

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

21 Jan '11

Date: Friday, January 21, 2011 @ 10:44:58 Author: rtoy Path: /project/cmucl/cvsroot/src/code Modified: foreign.lisp For Darwin, we need to specify -arch i386 if we need to run ld so that we produce 32-bit binaries instead of the default 64-bit (on 10.6 and later). --------------+ foreign.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) Index: src/code/foreign.lisp diff -u src/code/foreign.lisp:1.59 src/code/foreign.lisp:1.60 --- src/code/foreign.lisp:1.59 Tue Apr 20 13:57:44 2010 +++ src/code/foreign.lisp Fri Jan 21 10:44:58 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/foreign.lisp,v 1.59 2010-04-20 17:57:44 rtoy Rel $") + "$Header: /project/cmucl/cvsroot/src/code/foreign.lisp,v 1.60 2011-01-21 15:44:58 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -881,6 +881,8 @@ #+(or solaris linux) "-G" #+(or freebsd OpenBSD NetBSD irix) "-shared" #+darwin "-dylib" + #+darwin "-arch" + #+darwin "i386" "-o" output-file ;; Cause all specified libs to be loaded in full

1 0

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

21 Jan '11

1 0

[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 07 Jan '11

07 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