#define IMAGE_MAGIC 0x0f0e0d0c #define IMAGE_VERSION 2 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 data_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 data_size; /* size of code heap */ CELL code_size; /* code relocation base */ CELL code_relocation_base; } HEADER; void init_objects(HEADER *h); void load_image(const char* file); bool save_image(const char* file); void primitive_save_image(void); /* relocation base of currently loaded image's data heap */ CELL data_relocation_base; INLINE void data_fixup(CELL *cell) { if(TAG(*cell) != FIXNUM_TYPE && *cell != F) *cell += (tenured.base - data_relocation_base); } CELL code_relocation_base; INLINE void code_fixup(CELL *cell) { *cell += (compiling.base - code_relocation_base); } void relocate_data(); void relocate_code();