vm: strip out call-counting profiler

[factor.git] / vm / code_heap.cpp

diff --git a/vm/code_heap.cpp b/vm/code_heap.cpp
index f8b78eabde17f7ddd9014e4d3ee62f90303fec07..f46891f7b8268164f0de1a331df12f2e267469b8 100755 (executable)
--- a/vm/code_heap.cpp
+++ b/vm/code_heap.cpp
@@ -102,11 +102,6 @@ void factor_vm::init_code_heap(cell size)
        code = new code_heap(size);
 }
 
-bool factor_vm::in_code_heap_p(cell ptr)
-{
-       return (ptr >= code->seg->start && ptr <= code->seg->end);
-}
-
 struct word_updater {
        factor_vm *parent;
        bool reset_inline_caches;
@@ -183,15 +178,13 @@ void factor_vm::primitive_modify_code_heap()
                                        parameters,
                                        literals);
 
-                               word->code = compiled;
+                               word->entry_point = compiled->entry_point();
                        }
                        break;
                default:
                        critical_error("Expected a quotation or an array",data.value());
                        break;
                }
-
-               update_word_entry_point(word.untagged());
        }
 
        if(update_existing_words)