namespace factor { /* * It is up to the caller to fill in the object's fields in a meaningful * fashion! */ inline object *factor_vm::allot_object(header header, cell size) { /* If the object is smaller than the nursery, allocate it in the nursery, after a GC if needed */ if(nursery.size > size) { /* If there is insufficient room, collect the nursery */ if(nursery.here + size > nursery.end) primitive_minor_gc(); object *obj = nursery.allot(size); obj->h = header; return obj; } /* If the object is bigger than the nursery, allocate it in tenured space */ else return allot_large_object(header,size); } }