From aaf74d586de62692c83c43f1359083d6e3eaf107 Mon Sep 17 00:00:00 2001 From: Juho Snellman Date: Wed, 3 Aug 2005 13:05:07 +0000 Subject: [PATCH] 0.9.3.22: Merge sbcl-devel "Crash in purify" by James Knight, 2005-08-01 --- src/runtime/purify.c | 6 ++++++ version.lisp-expr | 2 +- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/src/runtime/purify.c b/src/runtime/purify.c index e6a8f39..5e86276 100644 --- 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 --- 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" -- 1.7.10.4