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

VM: removing array_to_stack() from the factor_vm class

char-rename
Björn Lindqvist 2016-11-23 04:00:08 +01:00
parent 6955823107
commit 1a646d3379
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
vm/contexts.cpp
View File

@ -240,7 +240,7 @@ void factor_vm::primitive_retainstack_for() {
} }
// returns pointer to top of stack // returns pointer to top of stack
cell factor_vm::array_to_stack(array* array, cell bottom) { static cell array_to_stack(array* array, cell bottom) {
cell depth = array_capacity(array) * sizeof(cell); cell depth = array_capacity(array) * sizeof(cell);
memcpy((void*)bottom, array + 1, depth); memcpy((void*)bottom, array + 1, depth);
return bottom + depth - sizeof(cell); return bottom + depth - sizeof(cell);

2
vm/vm.hpp
View File

@ -169,7 +169,6 @@ struct factor_vm {
void primitive_datastack_for(); void primitive_datastack_for();
cell retainstack_to_array(context* ctx); cell retainstack_to_array(context* ctx);
void primitive_retainstack_for(); void primitive_retainstack_for();
cell array_to_stack(array* array, cell bottom);
void primitive_set_datastack(); void primitive_set_datastack();
void primitive_set_retainstack(); void primitive_set_retainstack();
void primitive_check_datastack(); void primitive_check_datastack();
@ -683,7 +682,6 @@ struct factor_vm {
void init_factor(vm_parameters* p); void init_factor(vm_parameters* p);
void pass_args_to_factor(int argc, vm_char** argv); void pass_args_to_factor(int argc, vm_char** argv);
void stop_factor(); void stop_factor();
void start_embedded_factor(vm_parameters* p);
void start_standalone_factor(int argc, vm_char** argv); void start_standalone_factor(int argc, vm_char** argv);
char* factor_eval_string(char* string); char* factor_eval_string(char* string);
void factor_eval_free(char* result); void factor_eval_free(char* result);