vm/allot.hpp

   1 namespace factor {
   2
   3 /*
   4  * It is up to the caller to fill in the object's fields in a meaningful
   5  * fashion!
   6  */
   7 /* Allocates memory */
   8 inline object* factor_vm::allot_object(cell type, cell size) {
   9   FACTOR_ASSERT(!current_gc);
  10
  11   /* If the object is smaller than the nursery, allocate it in the nursery,
  12      after a GC if needed */
  13   if (nursery.size > size) {
  14     /* If there is insufficient room, collect the nursery */
  15     if (nursery.here + size > nursery.end)
  16       primitive_minor_gc();
  17
  18     object* obj = nursery.allot(size);
  19
  20     obj->initialize(type);
  21     return obj;
  22   } /* If the object is bigger than the nursery, allocate it in
  23        tenured space */
  24   else
  25     return allot_large_object(type, size);
  26 }
  27
  28 }