Moved PRIMITIVE and PRIMITIVE_FORWARDs to primitives.[ch]pp

[factor.git] / vm / arrays.cpp

diff --git a/vm/arrays.cpp b/vm/arrays.cpp
index 4188c8bf0b8f4b6fec307cc46848fa44bc71b532..95a435eecd4f9e9f9accf9cf784da1be89225f58 100644 (file)
--- a/vm/arrays.cpp
+++ b/vm/arrays.cpp
@@ -24,15 +24,13 @@ array *factor_vm::allot_array(cell capacity, cell fill_)
 }
 
 /* push a new array on the stack */
-inline void factor_vm::primitive_array()
+void factor_vm::primitive_array()
 {
        cell initial = dpop();
        cell size = unbox_array_size();
        dpush(tag<array>(allot_array(size,initial)));
 }
 
-PRIMITIVE_FORWARD(array)
-
 cell factor_vm::allot_array_1(cell obj_)
 {
        gc_root<object> obj(obj_,this);
@@ -65,15 +63,13 @@ cell factor_vm::allot_array_4(cell v1_, cell v2_, cell v3_, cell v4_)
        return a.value();
 }
 
-inline void factor_vm::primitive_resize_array()
+void factor_vm::primitive_resize_array()
 {
        array* a = untag_check<array>(dpop());
        cell capacity = unbox_array_size();
        dpush(tag<array>(reallot_array(a,capacity)));
 }
 
-PRIMITIVE_FORWARD(resize_array)
-
 void growable_array::add(cell elt_)
 {
        factor_vm* parent_vm = elements.parent_vm;