0.9.3.22:

	Merge sbcl-devel "Crash in purify" by James Knight, 2005-08-01

diff --git a/src/runtime/purify.c b/src/runtime/purify.c
index e6a8f39..5e86276 100644 (file)
--- a/src/runtime/purify.c
+++ b/src/runtime/purify.c
@@ -127,9 +127,15 @@ newspace_alloc(long nwords, int constantp)
     lispobj *ret;
     nwords=CEILING(nwords,2);
     if(constantp) {
+        if(read_only_free + nwords >= READ_ONLY_SPACE_END) {
+            lose("Ran out of read-only space while purifying!");
+        }
         ret=read_only_free;
         read_only_free+=nwords;
     } else {
+        if(static_free + nwords >= STATIC_SPACE_END) {
+            lose("Ran out of static space while purifying!");
+        }
         ret=static_free;
         static_free+=nwords;
     }

diff --git a/version.lisp-expr b/version.lisp-expr
index 71706ef..7145c15 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.3.21"
+"0.9.3.22"