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 #ifdef FACTOR_DEBUG
  10   FACTOR_ASSERT(!current_gc);
  11 #endif
  12
  13   /* If the object is smaller than the nursery, allocate it in the nursery,
  14      after a GC if needed */
  15   if (nursery.size > size) {
  16     /* If there is insufficient room, collect the nursery */
  17     if (nursery.here + size > nursery.end)
  18       primitive_minor_gc();
  19
  20     object* obj = nursery.allot(size);
  21
  22     obj->initialize(type);
  23     return obj;
  24   } /* If the object is bigger than the nursery, allocate it in
  25        tenured space */
  26   else
  27     return allot_large_object(type, size);
  28 }
  29
  30 }