6 /* push a new tuple on the stack, filling its slots with f */
7 void factor_vm::primitive_tuple()
9 gc_root<tuple_layout> layout(dpop(),this);
10 tagged<tuple> t(allot<tuple>(tuple_size(layout.untagged())));
11 t->layout = layout.value();
13 memset_cell(t->data(),false_object,tuple_size(layout.untagged()) - sizeof(cell));
18 /* push a new tuple on the stack, filling its slots from the stack */
19 void factor_vm::primitive_tuple_boa()
21 gc_root<tuple_layout> layout(dpop(),this);
22 tagged<tuple> t(allot<tuple>(tuple_size(layout.untagged())));
23 t->layout = layout.value();
25 cell size = untag_fixnum(layout.untagged()->size) * sizeof(cell);
26 memcpy(t->data(),(cell *)(ds - size + sizeof(cell)),size);