예제 #1
0
void factor_vm::primitive_set_retainstack()
{
	rs = array_to_stack(untag_check<array>(dpop()),rs_bot);
}
예제 #2
0
void factor_vm::set_retainstack(context* ctx, array* array) {
  ctx->retainstack = array_to_stack(array, ctx->retainstack_seg->start);
}
예제 #3
0
void factor_vm::primitive_set_datastack()
{
	ds = array_to_stack(untag_check<array>(dpop()),ds_bot);
}