X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fcoreparse.c;h=d657bac7e96a488d3c021d003188e57772f27979;hb=7137cb0872e17772f26c432384da5eefa3e645d7;hp=e7dbdfd153a46f7e757045b5e9ecaa252a1c7f5d;hpb=4e5668af19abcf84587bf3f7a1c4294cd92c94a7;p=sbcl.git

diff --git a/src/runtime/coreparse.c b/src/runtime/coreparse.c
index e7dbdfd..d657bac 100644
--- a/src/runtime/coreparse.c
+++ b/src/runtime/coreparse.c
@@ -38,10 +38,11 @@
 /* lutex stuff */
 #if defined(LISP_FEATURE_SB_THREAD) && defined(LISP_FEATURE_SB_LUTEX)
 #include "genesis/sap.h"
+#include "pthread-lutex.h"
 #endif
 
 
-unsigned char build_id[] =
+char build_id[] =
 #include "../../output/build-id.tmp"
 ;
 
@@ -324,7 +325,7 @@ load_core_file(char *file, os_vm_offset_t file_offset)
                         struct lutex *lutex = lutexes_to_resurrect[i];
 
                         FSHOW((stderr, "re-init'ing lutex @ %p\n", lutex));
-                        lutex_init(lutex);
+                        lutex_init((tagged_lutex_t) lutex);
                     }
 
                     free(lutexes_to_resurrect);