0.8.6.28:

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

diff --git a/src/runtime/coreparse.c b/src/runtime/coreparse.c
index a00438c..6ac74ba 100644 (file)
--- a/src/runtime/coreparse.c
+++ b/src/runtime/coreparse.c
@@ -33,6 +33,7 @@
 #include "arch.h"
 #include "interr.h"
 #include "sbcl.h"
+#include "thread.h"
 
 unsigned char build_id[] =
 #include "../../output/build-id.tmp"
@@ -89,10 +90,10 @@ process_directory(int fd, u32 *ptr, int count)
            }
 #endif
 /* FIXME: Should the conditional here be reg_ALLOC instead of
- *   defined(__i386__)
+ *   defined(LISP_FEATURE_X86)
  * ? */
 #if defined(LISP_FEATURE_X86)
-           SetSymbolValue(ALLOCATION_POINTER, (lispobj)free_pointer);
+           SetSymbolValue(ALLOCATION_POINTER, (lispobj)free_pointer,0);
 #else
            dynamic_space_free_pointer = free_pointer;
 #endif
@@ -187,7 +188,7 @@ load_core_file(char *file)
                    goto losing_build_id;
                for (i = 0; i < remaining_len; ++i) {
                    FSHOW((stderr, "ptr[%d] = char = %d, expected=%d\n",
-                          ptr[i], i, build_id[i]));
+                          i, ptr[i], build_id[i]));
                    if (ptr[i] != build_id[i])
                        goto losing_build_id;
                }