0.9.4.12:

[sbcl.git] / src / runtime / purify.c

diff --git a/src/runtime/purify.c b/src/runtime/purify.c
index 5e86276..ca850dd 100644 (file)
--- 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;