vm/arrays.cpp

   1 #include "master.hpp"
   2
   3 namespace factor
   4 {
   5
   6 /* make a new array with an initial element */
   7 array *factor_vm::allot_array(cell capacity, cell fill_)
   8 {
   9         gc_root<object> fill(fill_,this);
  10         gc_root<array> new_array(allot_array_internal<array>(capacity),this);
  11
  12         if(fill.value() == tag_fixnum(0))
  13                 memset(new_array->data(),'\0',capacity * sizeof(cell));
  14         else
  15         {
  16                 /* No need for write barrier here. Either the object is in
  17                 the nursery, or it was allocated directly in tenured space
  18                 and the write barrier is already hit for us in that case. */
  19                 for(cell i = 0; i < capacity; i++)
  20                         new_array->data()[i] = fill.value();
  21         }
  22         return new_array.untagged();
  23 }
  24
  25 /* push a new array on the stack */
  26 void factor_vm::primitive_array()
  27 {
  28         cell initial = dpop();
  29         cell size = unbox_array_size();
  30         dpush(tag<array>(allot_array(size,initial)));
  31 }
  32
  33 cell factor_vm::allot_array_1(cell obj_)
  34 {
  35         gc_root<object> obj(obj_,this);
  36         gc_root<array> a(allot_array_internal<array>(1),this);
  37         set_array_nth(a.untagged(),0,obj.value());
  38         return a.value();
  39 }
  40
  41 cell factor_vm::allot_array_2(cell v1_, cell v2_)
  42 {
  43         gc_root<object> v1(v1_,this);
  44         gc_root<object> v2(v2_,this);
  45         gc_root<array> a(allot_array_internal<array>(2),this);
  46         set_array_nth(a.untagged(),0,v1.value());
  47         set_array_nth(a.untagged(),1,v2.value());
  48         return a.value();
  49 }
  50
  51 cell factor_vm::allot_array_4(cell v1_, cell v2_, cell v3_, cell v4_)
  52 {
  53         gc_root<object> v1(v1_,this);
  54         gc_root<object> v2(v2_,this);
  55         gc_root<object> v3(v3_,this);
  56         gc_root<object> v4(v4_,this);
  57         gc_root<array> a(allot_array_internal<array>(4),this);
  58         set_array_nth(a.untagged(),0,v1.value());
  59         set_array_nth(a.untagged(),1,v2.value());
  60         set_array_nth(a.untagged(),2,v3.value());
  61         set_array_nth(a.untagged(),3,v4.value());
  62         return a.value();
  63 }
  64
  65 void factor_vm::primitive_resize_array()
  66 {
  67         array* a = untag_check<array>(dpop());
  68         cell capacity = unbox_array_size();
  69         dpush(tag<array>(reallot_array(a,capacity)));
  70 }
  71
  72 void growable_array::add(cell elt_)
  73 {
  74         factor_vm* parent_vm = elements.parent_vm;
  75         gc_root<object> elt(elt_,parent_vm);
  76         if(count == array_capacity(elements.untagged()))
  77                 elements = parent_vm->reallot_array(elements.untagged(),count * 2);
  78
  79         parent_vm->set_array_nth(elements.untagged(),count++,elt.value());
  80 }
  81
  82 void growable_array::trim()
  83 {
  84         factor_vm *parent_vm = elements.parent_vm;
  85         elements = parent_vm->reallot_array(elements.untagged(),count);
  86 }
  87
  88 }