82 lines
1.4 KiB
C
82 lines
1.4 KiB
C
typedef struct {
|
|
CELL base;
|
|
CELL here;
|
|
CELL alarm;
|
|
CELL limit;
|
|
} ZONE;
|
|
|
|
ZONE active;
|
|
ZONE prior;
|
|
|
|
bool allot_profiling;
|
|
|
|
/* we can temporarily disable GC */
|
|
bool gc_protect;
|
|
|
|
void* alloc_guarded(CELL size);
|
|
void init_zone(ZONE* zone, CELL size);
|
|
void init_arena(CELL size);
|
|
void flip_zones();
|
|
|
|
void garbage_collection_later(void);
|
|
void allot_profile_step(CELL a);
|
|
|
|
INLINE CELL align8(CELL a)
|
|
{
|
|
return ((a & 7) == 0) ? a : ((a + 8) & ~7);
|
|
}
|
|
|
|
INLINE void* allot(CELL a)
|
|
{
|
|
CELL h = active.here;
|
|
active.here += align8(a);
|
|
if(allot_profiling)
|
|
allot_profile_step(align8(a));
|
|
if(active.here > active.alarm)
|
|
garbage_collection_later();
|
|
return (void*)h;
|
|
}
|
|
|
|
INLINE CELL get(CELL where)
|
|
{
|
|
return *((CELL*)where);
|
|
}
|
|
|
|
INLINE void put(CELL where, CELL what)
|
|
{
|
|
*((CELL*)where) = what;
|
|
}
|
|
|
|
INLINE CHAR cget(CELL where)
|
|
{
|
|
return *((CHAR*)where);
|
|
}
|
|
|
|
INLINE void cput(CELL where, CHAR what)
|
|
{
|
|
*((CHAR*)where) = what;
|
|
}
|
|
|
|
INLINE BYTE bget(CELL where)
|
|
{
|
|
return *((BYTE*)where);
|
|
}
|
|
|
|
INLINE void bput(CELL where, BYTE what)
|
|
{
|
|
*((BYTE*)where) = what;
|
|
}
|
|
|
|
bool in_zone(ZONE* z, CELL pointer);
|
|
|
|
void primitive_room(void);
|
|
void primitive_allot_profiling(void);
|
|
void primitive_address(void);
|
|
void primitive_memory_cell(void);
|
|
void primitive_memory_4(void);
|
|
void primitive_memory_1(void);
|
|
void primitive_set_memory_cell(void);
|
|
void primitive_set_memory_4(void);
|
|
void primitive_set_memory_1(void);
|
|
void primitive_heap_stats(void);
|