src/lisp/core.h

   1 /* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/core.h,v 1.9 2009/01/20 03:58:11 agoncharov Rel $ */
   2
   3 #ifndef _CORE_H_
   4 #define _CORE_H_
   5
   6 #include "lisp.h"
   7
   8 #define CORE_PAGESIZE OS_VM_DEFAULT_PAGESIZE
   9 #define CORE_MAGIC (('C' << 24) | ('O' << 16) | ('R' << 8) | 'E')
  10 #define CORE_END 3840
  11 #define CORE_NDIRECTORY 3861
  12 #define CORE_VALIDATE 3845
  13 #define CORE_VERSION 3860
  14 #define CORE_MACHINE_STATE 3862
  15 #define CORE_INITIAL_FUNCTION 3863
  16
  17 #define DYNAMIC_SPACE_ID (1)
  18 #define STATIC_SPACE_ID (2)
  19 #define READ_ONLY_SPACE_ID (3)
  20
  21 struct ndir_entry {
  22 #if !(defined(alpha) || defined(__x86_64))
  23     long identifier;
  24     long nwords;
  25     long data_page;
  26     long address;
  27     long page_count;
  28 #else
  29     u32 identifier;
  30     u32 nwords;
  31     u32 data_page;
  32     u32 address;
  33     u32 page_count;
  34 #endif
  35 };
  36
  37 extern lispobj load_core_file(const char *file, fpu_mode_t *fpu_type);
  38
  39 #endif /* _CORE_H_ */