*/
#include "alloc.h"
+#include "atom.h"
#include "object.h"
extern pool_object *pool;
return &pool[p];
}
+pool_ptr
+pool_copy_array (const pool_object * objs, uint32_t len)
+{
+ if (!len)
+ return 0;
+ pool_ptr p = pool_alloc (len);
+ for (int i = 0; i < len; i++)
+ {
+ pool[p + i] = (pool_object)
+ {
+ .type = objs[i].type,.rest = p + i + 1,.val = objs[i].val};
+ }
+ pool[p + len - 1].rest = 0;
+ return p;
+}
+
pool_ptr
pool_copy_array_rev (const pool_object * objs, uint32_t len)
{
}
return p;
}
+
+uv_val *
+UV_VAL (heap_ptr p)
+{
+ assert (p > 0);
+ return (uv_val *) & vhp_base[p];
+}
+
+atom_body *
+ATOM_BODY (heap_ptr p)
+{
+ assert (p);
+ return (atom_body *) (&vhp_base[p]);
+}