X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fpurify.c;h=eaa602efcc45445f9ab4bf185b9fa6090875d911;hb=5e92e9ed61903658015c2a75c79a32ad41dbd29d;hp=5e86276657fc20b46cf65341f6860c0834683262;hpb=aaf74d586de62692c83c43f1359083d6e3eaf107;p=sbcl.git

diff --git a/src/runtime/purify.c b/src/runtime/purify.c
index 5e86276..eaa602e 100644
--- a/src/runtime/purify.c
+++ b/src/runtime/purify.c
@@ -127,13 +127,13 @@ newspace_alloc(long nwords, int constantp)
     lispobj *ret;
     nwords=CEILING(nwords,2);
     if(constantp) {
-        if(read_only_free + nwords >= READ_ONLY_SPACE_END) {
+        if(read_only_free + nwords >= (lispobj *)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) {
+        if(static_free + nwords >= (lispobj *)STATIC_SPACE_END) {
             lose("Ran out of static space while purifying!");
         }
         ret=static_free;
@@ -1491,9 +1491,8 @@ purify(lispobj static_roots, lispobj read_only_roots)
     printf(" handlers");
     fflush(stdout);
 #endif
-    pscav((lispobj *) all_threads->interrupt_data->interrupt_handlers,
-          sizeof(all_threads->interrupt_data->interrupt_handlers)
-          / sizeof(lispobj),
+    pscav((lispobj *) interrupt_handlers,
+          sizeof(interrupt_handlers) / sizeof(lispobj),
           0);
 
 #ifdef PRINTNOISE