vm/generic_arrays.hpp

   1 namespace factor
   2 {
   3
   4 template<typename Array> cell array_capacity(Array *array)
   5 {
   6 #ifdef FACTOR_DEBUG
   7         assert(array->h.hi_tag() == Array::type_number);
   8 #endif
   9         return array->capacity >> TAG_BITS;
  10 }
  11
  12 template<typename Array> cell array_size(cell capacity)
  13 {
  14         return sizeof(Array) + capacity * Array::element_size;
  15 }
  16
  17 template<typename Array> cell array_size(Array *array)
  18 {
  19         return array_size<Array>(array_capacity(array));
  20 }
  21
  22 template<typename Array> Array *factor_vm::allot_array_internal(cell capacity)
  23 {
  24         Array *array = allot<Array>(array_size<Array>(capacity));
  25         array->capacity = tag_fixnum(capacity);
  26         return array;
  27 }
  28
  29 template<typename Array> bool factor_vm::reallot_array_in_place_p(Array *array, cell capacity)
  30 {
  31         return nursery.contains_p(array) && capacity <= array_capacity(array);
  32 }
  33
  34 template<typename Array> Array *factor_vm::reallot_array(Array *array_, cell capacity)
  35 {
  36         gc_root<Array> array(array_,this);
  37
  38         if(reallot_array_in_place_p(array.untagged(),capacity))
  39         {
  40                 array->capacity = tag_fixnum(capacity);
  41                 return array.untagged();
  42         }
  43         else
  44         {
  45                 cell to_copy = array_capacity(array.untagged());
  46                 if(capacity < to_copy)
  47                         to_copy = capacity;
  48
  49                 Array *new_array = allot_array_internal<Array>(capacity);
  50
  51                 memcpy(new_array + 1,array.untagged() + 1,to_copy * Array::element_size);
  52                 memset((char *)(new_array + 1) + to_copy * Array::element_size,
  53                        0,(capacity - to_copy) * Array::element_size);
  54
  55                 return new_array;
  56         }
  57 }
  58
  59 }