// TODO: put these in interpreter-wide ctx object
pool_object *pool;
pool_ptr ptop;
-char *vhp_base;
-char *vhp;
+object *vhp_base;
+heap_ptr vhp;
// TODO: store these in current PROCESS
frame *cf;
vhp_base =
mmap (0, VECTOR_OBJCT * sizeof (object), PROT_READ | PROT_WRITE,
MAP_PRIVATE | MAP_ANONYMOUS, -1, 0);
- vhp = vhp_base;
+ vhp = 1;
// Reader stack (TODO: dynamically allocate as VECTOR).
object rst_base[READER_OBJCT];
{
// mock GC (no object persistence)
ptop = 1;
- vhp = vhp_base;
+ vhp = 1;
// terminate input
assert (buf[n - 1] == '\n');
buf[n - 1] = '\0';