X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fcore.h;h=e7484c3d07a68437c94c3c2f71f26180d017baa6;hb=e4542bc034db18cf98f005b2dac53a6d7d5c7260;hp=2fcbd138af0ebf8bd9f62e040a6ff9b32ebfcd14;hpb=1bcf4fb22a25e713a0ab898d78abb97abe94c225;p=sbcl.git

diff --git a/src/runtime/core.h b/src/runtime/core.h
index 2fcbd13..e7484c3 100644
--- a/src/runtime/core.h
+++ b/src/runtime/core.h
@@ -12,24 +12,32 @@
 #ifndef _CORE_H_
 #define _CORE_H_
 
+#include "sbcl.h"
 #include "runtime.h"
 
 struct ndir_entry {
-#ifndef alpha
-	long identifier;
-	long nwords;
-	long data_page;
-	long address;
-	long page_count;
+#ifndef LISP_FEATURE_ALPHA
+    long identifier;
+    long nwords;
+    long data_page;
+    long address;
+    long page_count;
 #else
-	u32 identifier;
-	u32 nwords;
-	u32 data_page;
-	u32 address;
-	u32 page_count;
+    u32 identifier;
+    u32 nwords;
+    u32 data_page;
+    u32 address;
+    u32 page_count;
 #endif
 };
 
 extern lispobj load_core_file(char *file);
 
+/* arbitrary string identifying this build, embedded in .core files to
+ * prevent people mismatching a runtime built e.g. with :SB-SHOW
+ * against a .core built without :SB-SHOW (or against various grosser
+ * mismatches, e.g. a .core built with an old version of the code
+ * against a runtime with patches which add new C code) */
+extern unsigned char build_id[];
+
 #endif