5 // push a new tuple on the stack, filling its slots with f
7 void factor_vm::primitive_tuple() {
8 data_root<tuple_layout> layout(ctx->pop(), this);
9 tagged<tuple> t(allot<tuple>(tuple_size(layout.untagged())));
10 t->layout = layout.value();
12 memset_cell(t->data(), false_object,
13 tuple_size(layout.untagged()) - sizeof(cell));
18 // push a new tuple on the stack, filling its slots from the stack
20 void factor_vm::primitive_tuple_boa() {
21 data_root<tuple_layout> layout(ctx->pop(), 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*)(ctx->datastack - size + sizeof(cell)), size);
27 ctx->datastack -= size;