io.streams.256color: faster by caching styles

[factor.git] / vm / callstack.cpp

diff --git a/vm/callstack.cpp b/vm/callstack.cpp
index a386ed2ecac65df3e344190359485e61200ac8f6..2d183e802805ebbc88265bcc733c3055619c69e0 100644 (file)
--- a/vm/callstack.cpp
+++ b/vm/callstack.cpp
@@ -46,10 +46,6 @@ void factor_vm::primitive_callstack_for() {
   ctx->replace(capture_callstack(other_ctx));
 }
 
-struct stack_frame_in_array {
-  cell cells[3];
-};
-
 // Allocates memory (frames.trim()), iterate_callstack_object()
 void factor_vm::primitive_callstack_to_array() {
   data_root<callstack> callstack(ctx->peek(), this);
@@ -60,6 +56,8 @@ void factor_vm::primitive_callstack_to_array() {
                                      cell size,
                                      code_block* owner,
                                      cell addr) {
+    (void)frame_top;
+    (void)size;
     data_root<object> executing_quot(owner->owner_quot(), this);
     data_root<object> executing(owner->owner, this);
     data_root<object> scan(owner->scan(this, addr), this);
@@ -96,8 +94,8 @@ void factor_vm::primitive_set_innermost_stack_frame_quotation() {
   data_root<callstack> stack(ctx->pop(), this);
   data_root<quotation> quot(ctx->pop(), this);
 
-  stack.untag_check(this);
-  quot.untag_check(this);
+  check_tagged(stack);
+  check_tagged(quot);
 
   jit_compile_quotation(quot.value(), true);