7 /* push a new tuple on the stack, filling its slots with f */
8 void factor_vm::primitive_tuple()
10 data_root<tuple_layout> layout(ctx->pop(),this);
11 tagged<tuple> t(allot<tuple>(tuple_size(layout.untagged())));
12 t->layout = layout.value();
14 memset_cell(t->data(),false_object,tuple_size(layout.untagged()) - sizeof(cell));
19 /* Allocates memory */
20 /* push a new tuple on the stack, filling its slots from the stack */
21 void factor_vm::primitive_tuple_boa()
23 data_root<tuple_layout> layout(ctx->pop(),this);
24 tagged<tuple> t(allot<tuple>(tuple_size(layout.untagged())));
25 t->layout = layout.value();
27 cell size = untag_fixnum(layout.untagged()->size) * sizeof(cell);
28 memcpy(t->data(),(cell *)(ctx->datastack - size + sizeof(cell)),size);
29 ctx->datastack -= size;