vm: strip out call-counting profiler

[factor.git] / vm / code_block_visitor.hpp

diff --git a/vm/code_block_visitor.hpp b/vm/code_block_visitor.hpp
index d43daa3ad3d5b65e322b821acdd0ff9472167c50..2421ace669657b6565939e9d0c31181dc880807e 100644 (file)
--- a/vm/code_block_visitor.hpp
+++ b/vm/code_block_visitor.hpp
@@ -59,19 +59,15 @@ void code_block_visitor<Fixup>::visit_object_code_block(object *obj)
        case WORD_TYPE:
                {
                        word *w = (word *)obj;
-                       if(w->code)
-                               w->code = visit_code_block(w->code);
-                       if(w->counting_profiler)
-                               w->counting_profiler = visit_code_block(w->counting_profiler);
-
-                       parent->update_word_entry_point(w);
+                       if(w->entry_point)
+                               w->entry_point = visit_code_block(w->code())->entry_point();
                        break;
                }
        case QUOTATION_TYPE:
                {
                        quotation *q = (quotation *)obj;
-                       if(q->code)
-                               parent->set_quot_entry_point(q,visit_code_block(q->code));
+                       if(q->entry_point)
+                               q->entry_point = visit_code_block(q->code())->entry_point();
                        break;
                }
        case CALLSTACK_TYPE: