53 lines
1.1 KiB
C
53 lines
1.1 KiB
C
#include "factor.h"
|
|
|
|
void init_compiler(CELL size)
|
|
{
|
|
compiling.base = compiling.here = (CELL)(alloc_bounded_block(size)->start);
|
|
if(compiling.base == 0)
|
|
fatal_error("Cannot allocate code heap",size);
|
|
compiling.limit = compiling.base + size;
|
|
last_flush = compiling.base;
|
|
}
|
|
|
|
void primitive_compiled_offset(void)
|
|
{
|
|
box_unsigned_cell(compiling.here);
|
|
}
|
|
|
|
void primitive_set_compiled_offset(void)
|
|
{
|
|
CELL offset = unbox_unsigned_cell();
|
|
compiling.here = offset;
|
|
if(compiling.here > compiling.limit)
|
|
{
|
|
fprintf(stderr,"Code space exhausted\n");
|
|
factorbug();
|
|
}
|
|
}
|
|
|
|
void primitive_literal_top(void)
|
|
{
|
|
box_unsigned_cell(literal_top);
|
|
}
|
|
|
|
void primitive_set_literal_top(void)
|
|
{
|
|
CELL offset = unbox_unsigned_cell();
|
|
if(offset >= literal_max)
|
|
critical_error("Too many compiled literals",offset);
|
|
literal_top = offset;
|
|
}
|
|
|
|
void primitive_flush_icache(void)
|
|
{
|
|
flush_icache((void*)last_flush,compiling.here - last_flush);
|
|
last_flush = compiling.here;
|
|
}
|
|
|
|
void collect_literals(void)
|
|
{
|
|
CELL i;
|
|
for(i = compiling.base; i < literal_top; i += CELLS)
|
|
copy_handle((CELL*)i);
|
|
}
|