common-lisp.net / projects/cmucl/cmucl.git / blame
| Commit | Line | Data |
|---|---|---|
| eeab7066 RT |
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 | */ | |
| 62957726 | 7 | |
| 8 | #ifndef _CORE_H_ | |
| 9 | #define _CORE_H_ | |
| 10 | ||
| 11 | #include "lisp.h" | |
| 62957726 | 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 | |
| 5eb10b17 | 20 | #define CORE_INITIAL_FUNCTION 3863 |
| 62957726 | 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 { | |
| 835ff5b3 | 27 | #if !(defined(alpha) || defined(__x86_64)) |
| 9a8c1c2f | 28 | long identifier; |
| 29 | long nwords; | |
| 30 | long data_page; | |
| 31 | long address; | |
| 32 | long page_count; | |
| 6f4a04e5 | 33 | #else |
| 9a8c1c2f | 34 | u32 identifier; |
| 35 | u32 nwords; | |
| 36 | u32 data_page; | |
| 37 | u32 address; | |
| 38 | u32 page_count; | |
| 6f4a04e5 | 39 | #endif |
| 62957726 | 40 | }; |
| 41 | ||
| d4bc586c | 42 | extern lispobj load_core_file(const char *file, fpu_mode_t *fpu_type); |
| 62957726 | 43 | |
| e67c0397 | 44 | #endif /* _CORE_H_ */ |