4 /* The compiled code heap is structured into blocks. */
8 cell owner; /* tagged pointer to word, quotation or f */
9 cell literals; /* tagged pointer to array or f */
10 cell relocation; /* tagged pointer to byte-array or f */
14 return header & 1 == 1;
17 code_block_type type() const
19 return (code_block_type)((header >> 1) & 0x3);
22 void set_type(code_block_type type)
24 header = ((header & ~0x7) | (type << 1));
29 return type() == code_block_pic;
32 bool optimized_p() const
34 return type() == code_block_optimized;
44 return (void *)(this + 1);
49 factor::flush_icache((cell)this,size());