Beispiel #1
0
array *factor_vm::allot_array(cell capacity, cell fill_)
{
    data_root<object> fill(fill_,this);
    array *new_array = allot_uninitialized_array<array>(capacity);
    memset_cell(new_array->data(),fill.value(),capacity * sizeof(cell));
    return new_array;
}
Beispiel #2
0
void factor_vm::primitive_array()
{
    data_root<object> fill(dpop(),this);
    cell capacity = unbox_array_size();
    array *new_array = allot_uninitialized_array<array>(capacity);
    memset_cell(new_array->data(),fill.value(),capacity * sizeof(cell));
    dpush(tag<array>(new_array));
}
Beispiel #3
0
void context::reset_context_objects() {
  memset_cell(context_objects, false_object,
              context_object_count * sizeof(cell));
}