From: Juho S. <js...@us...> - 2007-04-30 20:55:56
|
Update of /cvsroot/sbcl/sbcl/tests In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv29413/tests Modified Files: static-alloc.impure.lisp Log Message: 1.0.5.14: make PURIFY a no-op on gencgc * Purification doesn't really make any sense with gencgc, since we have an uncollected generation with a write barrier these days. * Apparently it had also bitrotted on ppc/gencgc between 1.0.0 and 1.0.4, causing crashes with software doing (SAVE-LISP-AND-DIE ... :PURIFY T), for example Maxima. (Reported by Rex Dieter) * So make PURIFY a no-op on gencgc, and remove about 600 lines worth of #ifdeffed OAOO violations from purify.c. * Allows shrinking the static and read-only spaces into something sensible (arbitrary value of 1MB selected), and moving all of them closer together to reduce the virtual address space footprint. * Move + shrink the linkage-table while we're at it. Index: static-alloc.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/static-alloc.impure.lisp,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- static-alloc.impure.lisp 26 Aug 2005 21:09:04 -0000 1.3 +++ static-alloc.impure.lisp 30 Apr 2007 20:55:43 -0000 1.4 @@ -2,7 +2,7 @@ (dolist (type '(single-float double-float (unsigned-byte 8) (unsigned-byte 32) (signed-byte 32))) (let* ((vectors (loop - for i upto 1024 + for i upto 128 collect (sb-int:make-static-vector 256 :element-type type))) (saps (mapcar #'sb-sys:vector-sap vectors))) |