vm/entry_points.cpp

   1 #include "master.hpp"
   2
   3 namespace factor
   4 {
   5
   6 void factor_vm::c_to_factor(cell quot)
   7 {
   8         /* First time this is called, wrap the c-to-factor sub-primitive inside
   9         of a callback stub, which saves and restores non-volatile registers
  10         as per platform ABI conventions, so that the Factor compiler can treat
  11         all registers as volatile */
  12         if(!c_to_factor_func)
  13         {
  14                 tagged<word> c_to_factor_word(special_objects[C_TO_FACTOR_WORD]);
  15                 code_block *c_to_factor_block = callbacks->add(c_to_factor_word.value(),0);
  16                 c_to_factor_func = (c_to_factor_func_type)c_to_factor_block->entry_point();
  17         }
  18
  19         c_to_factor_func(quot);
  20 }
  21
  22 void factor_vm::unwind_native_frames(cell quot, stack_frame *to)
  23 {
  24         tagged<word> unwind_native_frames_word(special_objects[UNWIND_NATIVE_FRAMES_WORD]);
  25         unwind_native_frames_func_type unwind_native_frames_func = (unwind_native_frames_func_type)unwind_native_frames_word->entry_point;
  26         unwind_native_frames_func(quot,to);
  27 }
  28
  29 }