0.7.4.18: Fixing Alpha fixes
[sbcl.git] / src / runtime / core.h
1 /*
2  * This software is part of the SBCL system. See the README file for
3  * more information.
4  *
5  * This software is derived from the CMU CL system, which was
6  * written at Carnegie Mellon University and released into the
7  * public domain. The software is in the public domain and is
8  * provided with absolutely no warranty. See the COPYING and CREDITS
9  * files for more information.
10  */
11
12 #ifndef _CORE_H_
13 #define _CORE_H_
14
15 #include "runtime.h"
16
17 #define CORE_END 3840
18 #define CORE_NDIRECTORY 3861
19 #define CORE_VALIDATE 3845
20 #define CORE_VERSION 3860
21 #define CORE_MACHINE_STATE 3862
22 #define CORE_INITIAL_FUNCTION 3863
23
24 #define DYNAMIC_SPACE_ID (1)
25 #define STATIC_SPACE_ID (2)
26 #define READ_ONLY_SPACE_ID (3)
27
28 struct ndir_entry {
29 #ifndef alpha
30         long identifier;
31         long nwords;
32         long data_page;
33         long address;
34         long page_count;
35 #else
36         u32 identifier;
37         u32 nwords;
38         u32 data_page;
39         u32 address;
40         u32 page_count;
41 #endif
42 };
43
44 extern lispobj load_core_file(char *file);
45
46 #endif