namespace factor {

/*
 * It is up to the caller to fill in the object's fields in a meaningful
 * fashion!
 */
/* Allocates memory */
inline object* factor_vm::allot_object(cell type, cell size) {
  FACTOR_ASSERT(!current_gc);

  bump_allocator *nursery = data->nursery;

  /* If the object is bigger than the nursery, allocate it in tenured
     space */
  if (size >= nursery->size)
    return allot_large_object(type, size);

  /* If the object is smaller than the nursery, allocate it in the nursery,
     after a GC if needed */
  if (nursery->here + size > nursery->end)
    primitive_minor_gc();

  object* obj = nursery->allot(size);
  obj->initialize(type);
  return obj;
}

}
