4 INLINE F_BLOCK
*compiled_to_block(F_CODE_BLOCK
*compiled
)
6 return (F_BLOCK
*)compiled
- 1;
9 INLINE F_CODE_BLOCK
*block_to_compiled(F_BLOCK
*block
)
11 return (F_CODE_BLOCK
*)(block
+ 1);
14 void init_code_heap(CELL size
);
16 bool in_code_heap_p(CELL ptr
);
18 void default_word_code(F_WORD
*word
, bool relocate
);
20 void set_word_code(F_WORD
*word
, F_CODE_BLOCK
*compiled
);
22 typedef void (*CODE_HEAP_ITERATOR
)(F_CODE_BLOCK
*compiled
);
24 void iterate_code_heap(CODE_HEAP_ITERATOR iter
);
26 void copy_code_heap_roots(void);
28 void update_code_heap_roots(void);
30 void primitive_modify_code_heap(void);
32 void primitive_code_room(void);
34 void compact_code_heap(void);