io.streams.256color: faster by caching styles

[factor.git] / vm / tuples.cpp

diff --git a/vm/tuples.cpp b/vm/tuples.cpp
old mode 100755 (executable)
new mode 100644 (file)
index 8a6e2d0..b15914f
--- a/vm/tuples.cpp
+++ b/vm/tuples.cpp
@@ -1,36 +1,32 @@
 #include "master.hpp"
 
-namespace factor
-{
-
-/* push a new tuple on the stack */
-tuple *factor_vm::allot_tuple(cell layout_)
-{
-       gc_root<tuple_layout> layout(layout_,this);
-       gc_root<tuple> t(allot<tuple>(tuple_size(layout.untagged())),this);
-       t->layout = layout.value();
-       return t.untagged();
-}
+namespace factor {
+
+// push a new tuple on the stack, filling its slots with f
+// Allocates memory
+void factor_vm::primitive_tuple() {
+  data_root<tuple_layout> layout(ctx->pop(), this);
+  tagged<tuple> t(allot<tuple>(tuple_size(layout.untagged())));
+  t->layout = layout.value();
+
+  memset_cell(t->data(), false_object,
+              tuple_size(layout.untagged()) - sizeof(cell));
 
-/* push a new tuple on the stack, filling its slots with f */
-void factor_vm::primitive_tuple()
-{
-       gc_root<tuple_layout> layout(dpop(),this);
-       tuple *t = allot_tuple(layout.value());
-       cell size = (tuple_size(layout.untagged()) - 1) * sizeof(cell);
-       memset_cell(t->data(),false_object,size);
-       dpush(tag<tuple>(t));
+  ctx->push(t.value());
 }
 
-/* push a new tuple on the stack, filling its slots from the stack */
-void factor_vm::primitive_tuple_boa()
-{
-       gc_root<tuple_layout> layout(dpop(),this);
-       gc_root<tuple> t(allot_tuple(layout.value()),this);
-       cell size = untag_fixnum(layout.untagged()->size) * sizeof(cell);
-       memcpy(t->data(),(cell *)(ds - (size - sizeof(cell))),size);
-       ds -= size;
-       dpush(t.value());
+// push a new tuple on the stack, filling its slots from the stack
+// Allocates memory
+void factor_vm::primitive_tuple_boa() {
+  data_root<tuple_layout> layout(ctx->pop(), this);
+  tagged<tuple> t(allot<tuple>(tuple_size(layout.untagged())));
+  t->layout = layout.value();
+
+  cell size = untag_fixnum(layout.untagged()->size) * sizeof(cell);
+  memcpy(t->data(), (cell*)(ctx->datastack - size + sizeof(cell)), size);
+  ctx->datastack -= size;
+
+  ctx->push(t.value());
 }
 
 }