VM: removing array_to_stack() from the factor_vm class

diff --git a/vm/contexts.cpp b/vm/contexts.cpp
index c922090ea79c5b6e94db71870abf13969ca976f6..d110418db5052d749919e14b4af3741dbf93f7e4 100644 (file)
--- a/vm/contexts.cpp
+++ b/vm/contexts.cpp
@@ -240,7 +240,7 @@ void factor_vm::primitive_retainstack_for() {
 }
 
 // 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);
   memcpy((void*)bottom, array + 1, depth);
   return bottom + depth - sizeof(cell);

diff --git a/vm/vm.hpp b/vm/vm.hpp
index 06aefee99bc32352eca62f1ab99713732a3c27e3..c52f1478cf86cb841589cbdc0e3ead0878735af2 100644 (file)
--- a/vm/vm.hpp
+++ b/vm/vm.hpp
@@ -169,7 +169,6 @@ struct factor_vm {
   void primitive_datastack_for();
   cell retainstack_to_array(context* ctx);
   void primitive_retainstack_for();
-  cell array_to_stack(array* array, cell bottom);
   void primitive_set_datastack();
   void primitive_set_retainstack();
   void primitive_check_datastack();
@@ -683,7 +682,6 @@ struct factor_vm {
   void init_factor(vm_parameters* p);
   void pass_args_to_factor(int argc, vm_char** argv);
   void stop_factor();
-  void start_embedded_factor(vm_parameters* p);
   void start_standalone_factor(int argc, vm_char** argv);
   char* factor_eval_string(char* string);
   void factor_eval_free(char* result);