43 lines
1.0 KiB
C
43 lines
1.0 KiB
C
#define IMAGE_MAGIC 0x0f0e0d0c
|
|
#define IMAGE_VERSION_0 0
|
|
#define IMAGE_VERSION 1
|
|
|
|
typedef struct {
|
|
CELL magic;
|
|
CELL version;
|
|
/* all pointers in the image file are relocated from
|
|
relocation_base to here when the image is loaded */
|
|
CELL relocation_base;
|
|
/* tagged pointer to bootstrap quotation */
|
|
CELL boot;
|
|
/* tagged pointer to global namespace */
|
|
CELL global;
|
|
/* tagged pointer to t singleton */
|
|
CELL t;
|
|
/* tagged pointer to bignum 0 */
|
|
CELL bignum_zero;
|
|
/* tagged pointer to bignum 1 */
|
|
CELL bignum_pos_one;
|
|
/* tagged pointer to bignum -1 */
|
|
CELL bignum_neg_one;
|
|
/* size of heap */
|
|
CELL size;
|
|
} HEADER;
|
|
|
|
/* If version is IMAGE_VERSION_1 */
|
|
typedef struct EXT_HEADER {
|
|
/* size of code heap */
|
|
CELL size;
|
|
/* code relocation base */
|
|
CELL relocation_base;
|
|
/* end of literal table */
|
|
CELL literal_top;
|
|
/* maximum value of literal_top */
|
|
CELL literal_max;
|
|
} HEADER_2;
|
|
|
|
void init_objects(HEADER *h);
|
|
void load_image(char* file, int literal_size);
|
|
bool save_image(char* file);
|
|
void primitive_save_image(void);
|