37 lines
875 B
C++
37 lines
875 B
C++
namespace factor {
|
|
|
|
struct bump_allocator {
|
|
/* offset of 'here' and 'end' is hardcoded in compiler backends */
|
|
cell here;
|
|
cell start;
|
|
cell end;
|
|
cell size;
|
|
|
|
bump_allocator(cell size, cell start)
|
|
: here(start), start(start), end(start + size), size(size) {}
|
|
|
|
bool contains_p(object* obj) { return ((cell)obj - start) < size; }
|
|
|
|
object* allot(cell size) {
|
|
cell h = here;
|
|
here = h + align(size, data_alignment);
|
|
return (object*)h;
|
|
}
|
|
|
|
cell occupied_space() { return here - start; }
|
|
|
|
cell free_space() { return end - here; }
|
|
|
|
void flush() {
|
|
here = start;
|
|
#ifdef FACTOR_DEBUG
|
|
/* In case of bugs, there may be bogus references pointing to the
|
|
memory space after the gc has run. Filling it with a pattern
|
|
makes accesses to such shadow data fail hard. */
|
|
memset_cell((void*)start, 0xbaadbaad, size);
|
|
#endif
|
|
}
|
|
};
|
|
|
|
}
|