vm: strip out call-counting profiler

[factor.git] / vm / entry_points.cpp

diff --git a/vm/entry_points.cpp b/vm/entry_points.cpp
index 2bc8f057a70d16cbb9d96b7176f3e6bcecbc0715..f3a834eb17ab657da37d19b6ba86f7b88611f27b 100755 (executable)
--- a/vm/entry_points.cpp
+++ b/vm/entry_points.cpp
@@ -7,37 +7,47 @@ void factor_vm::c_to_factor(cell quot)
 {
        /* First time this is called, wrap the c-to-factor sub-primitive inside
        of a callback stub, which saves and restores non-volatile registers
-       as per platform ABI conventions, so that the Factor compiler can treat
+       per platform ABI conventions, so that the Factor compiler can treat
        all registers as volatile */
        if(!c_to_factor_func)
        {
                tagged<word> c_to_factor_word(special_objects[C_TO_FACTOR_WORD]);
                code_block *c_to_factor_block = callbacks->add(c_to_factor_word.value(),0);
-               c_to_factor_func = (c_to_factor_func_type)c_to_factor_block->entry_point();
+               void* func = c_to_factor_block->entry_point();
+               CODE_TO_FUNCTION_POINTER_CALLBACK(this, func);
+               c_to_factor_func = (c_to_factor_func_type)func;
        }
-
        c_to_factor_func(quot);
 }
 
+template<typename Func> Func factor_vm::get_entry_point(cell n)
+{
+       tagged<word> entry_point_word(special_objects[n]);
+       return (Func)entry_point_word->entry_point;
+}
+
 void factor_vm::unwind_native_frames(cell quot, stack_frame *to)
 {
-       tagged<word> unwind_native_frames_word(special_objects[UNWIND_NATIVE_FRAMES_WORD]);
-       unwind_native_frames_func_type unwind_native_frames_func = (unwind_native_frames_func_type)unwind_native_frames_word->entry_point;
-       unwind_native_frames_func(quot,to);
+       tagged<word> entry_point_word(special_objects[UNWIND_NATIVE_FRAMES_WORD]);
+       void *func = entry_point_word->entry_point;
+       CODE_TO_FUNCTION_POINTER(func);
+       ((unwind_native_frames_func_type)func)(quot,to);
 }
 
 cell factor_vm::get_fpu_state()
 {
-       tagged<word> get_fpu_state_word(special_objects[GET_FPU_STATE_WORD]);
-       get_fpu_state_func_type get_fpu_state_func = (get_fpu_state_func_type)get_fpu_state_word->entry_point;
-       return get_fpu_state_func();
+       tagged<word> entry_point_word(special_objects[GET_FPU_STATE_WORD]);
+       void *func = entry_point_word->entry_point;
+       CODE_TO_FUNCTION_POINTER(func);
+       return ((get_fpu_state_func_type)func)();
 }
 
 void factor_vm::set_fpu_state(cell state)
 {
-       tagged<word> set_fpu_state_word(special_objects[SET_FPU_STATE_WORD]);
-       set_fpu_state_func_type set_fpu_state_func = (set_fpu_state_func_type)set_fpu_state_word->entry_point;
-       set_fpu_state_func(state);
+       tagged<word> entry_point_word(special_objects[SET_FPU_STATE_WORD]);
+       void *func = entry_point_word->entry_point;
+       CODE_TO_FUNCTION_POINTER(func);
+       ((set_fpu_state_func_type)func)(state);
 }
 
 }