X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fcore.h;h=ce2ec8fe4e4232f3661ba6e02654f6ab9efaafba;hb=8a632c14b592472873cfb214239c9387bc1a1ced;hp=aa57ba9bfe307d9318c0ae1bf364b686b62c653b;hpb=cd2c70c8b5d4dcc62b968f5a9bedd3c9c8698e82;p=sbcl.git diff --git a/src/runtime/core.h b/src/runtime/core.h index aa57ba9..ce2ec8f 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,13 +31,14 @@ struct ndir_entry { #endif }; -extern lispobj load_core_file(char *file); +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 * 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[]; +extern char build_id[]; #endif