1.0.24.44: bug in INVALID-ARRAY-INDEX-ERROR, leaving EXPECTED-TYPE slot unbound

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

diff --git a/src/runtime/alloc.c b/src/runtime/alloc.c
index ca69967..7843e0b 100644 (file)
--- a/src/runtime/alloc.c
+++ b/src/runtime/alloc.c
@@ -73,6 +73,8 @@ pa_alloc(int bytes, int page_type_flag)
 static lispobj *
 pa_alloc(int bytes, int page_type_flag)
 {
+    lispobj *result;
+
     /* FIXME: this is not pseudo atomic at all, but is called only from
      * interrupt safe places like interrupt handlers. MG - 2005-08-09 */
     result = dynamic_space_free_pointer;
@@ -170,7 +172,6 @@ alloc_sap(void *ptr)
 lispobj
 alloc_code_object (unsigned boxed, unsigned unboxed) {
     struct code * code;
-    unsigned size;
     boxed = make_fixnum(boxed + 1 + 4); /* 4 == trace_table_offset offset in words */
     boxed &= ~LOWTAG_MASK;
 
@@ -178,7 +179,7 @@ alloc_code_object (unsigned boxed, unsigned unboxed) {
     unboxed &= ~LOWTAG_MASK;
 
     code = (struct code *) pa_alloc(ALIGNED_SIZE((boxed + unboxed) * sizeof(lispobj)),
-                                    BOXED_PAGE_FLAG);
+                                    CODE_PAGE_FLAG);
 
     boxed = boxed << (N_WIDETAG_BITS - WORD_SHIFT);
     code->header = boxed | CODE_HEADER_WIDETAG;