steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

VM: factor_vm::set_callstack and set_retainstack is not needed

char-rename
Björn Lindqvist 2016-06-27 16:08:58 +02:00
parent 70c413e403
commit a331ad3788
2 changed files with 4 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
vm/contexts.cpp
View File

@ -247,20 +247,14 @@ cell factor_vm::array_to_stack(array* array, cell bottom) {
return bottom + depth - sizeof(cell);
}
void factor_vm::set_datastack(context* ctx, array* array) {
ctx->datastack = array_to_stack(array, ctx->datastack_seg->start);
}
void factor_vm::primitive_set_datastack() {
set_datastack(ctx, untag_check<array>(ctx->pop()));
}
void factor_vm::set_retainstack(context* ctx, array* array) {
ctx->retainstack = array_to_stack(array, ctx->retainstack_seg->start);
array* arr = untag_check<array>(ctx->pop());
ctx->datastack = array_to_stack(arr, ctx->datastack_seg->start);
}
void factor_vm::primitive_set_retainstack() {
set_retainstack(ctx, untag_check<array>(ctx->pop()));
array* arr = untag_check<array>(ctx->pop());
ctx->retainstack = array_to_stack(arr, ctx->retainstack_seg->start);
}
/* Used to implement call( */

2
vm/vm.hpp
View File

@ -166,9 +166,7 @@ struct factor_vm {
cell retainstack_to_array(context* ctx);
void primitive_retainstack_for();
cell array_to_stack(array* array, cell bottom);
void set_datastack(context* ctx, array* array);
void primitive_set_datastack();
void set_retainstack(context* ctx, array* array);
void primitive_set_retainstack();
void primitive_check_datastack();
void primitive_load_locals();