src/lisp/core.h

   1 /*
   2
   3  This code was written as part of the CMU Common Lisp project at
   4  Carnegie Mellon University, and has been placed in the public domain.
   5
   6 */
   7
   8 #ifndef _CORE_H_
   9 #define _CORE_H_
  10
  11 #include "lisp.h"
  12
  13 #define CORE_PAGESIZE OS_VM_DEFAULT_PAGESIZE
  14 #define CORE_MAGIC (('C' << 24) | ('O' << 16) | ('R' << 8) | 'E')
  15 #define CORE_END 3840
  16 #define CORE_NDIRECTORY 3861
  17 #define CORE_VALIDATE 3845
  18 #define CORE_VERSION 3860
  19 #define CORE_MACHINE_STATE 3862
  20 #define CORE_INITIAL_FUNCTION 3863
  21
  22 #define DYNAMIC_SPACE_ID (1)
  23 #define STATIC_SPACE_ID (2)
  24 #define READ_ONLY_SPACE_ID (3)
  25
  26 struct ndir_entry {
  27 #if !(defined(alpha) || defined(__x86_64))
  28     long identifier;
  29     long nwords;
  30     long data_page;
  31     long address;
  32     long page_count;
  33 #else
  34     u32 identifier;
  35     u32 nwords;
  36     u32 data_page;
  37     u32 address;
  38     u32 page_count;
  39 #endif
  40 };
  41
  42 extern lispobj load_core_file(const char *file, fpu_mode_t *fpu_type);
  43
  44 #endif /* _CORE_H_ */