X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fcore.h;h=3f05cd5bc2c64f7cea94638982a1b8c753064371;hb=3ea89bab9e4600ba80b6bc931481100fca74fa9d;hp=aa57ba9bfe307d9318c0ae1bf364b686b62c653b;hpb=cd2c70c8b5d4dcc62b968f5a9bedd3c9c8698e82;p=sbcl.git

diff --git a/src/runtime/core.h b/src/runtime/core.h
index aa57ba9..3f05cd5 100644
--- a/src/runtime/core.h
+++ b/src/runtime/core.h
@@ -12,10 +12,11 @@
 #ifndef _CORE_H_
 #define _CORE_H_
 
+#include "sbcl.h"
 #include "runtime.h"
 
 struct ndir_entry {
-#ifndef alpha
+#ifndef LISP_FEATURE_ALPHA
     long identifier;
     long nwords;
     long data_page;
@@ -30,7 +31,18 @@ struct ndir_entry {
 #endif
 };
 
-extern lispobj load_core_file(char *file);
+/* Tri-state flag to determine whether we attempt to mark pages
+ * as targets for virtual memory deduplication (ala MADV_MERGEABLE
+ * on Linux).
+ *
+ * 1: Yes
+ * 0: No
+ * -1: default, yes for compressed cores, no otherwise.
+ */
+extern int merge_core_pages;
+
+extern lispobj load_core_file(char *file, os_vm_offset_t offset);
+extern os_vm_offset_t search_for_embedded_core(char *file);
 
 /* arbitrary string identifying this build, embedded in .core files to
  * prevent people mismatching a runtime built e.g. with :SB-SHOW