2010-01-05 21:47:36 -05:00
|
|
|
#include "master.hpp"
|
|
|
|
|
|
|
|
namespace factor
|
|
|
|
{
|
|
|
|
|
|
|
|
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
|
|
|
|
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);
|
2011-05-20 18:11:50 -04:00
|
|
|
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;
|
2010-01-05 21:47:36 -05:00
|
|
|
}
|
|
|
|
c_to_factor_func(quot);
|
|
|
|
}
|
|
|
|
|
2010-09-03 02:40:16 -04:00
|
|
|
template<typename Func> Func factor_vm::get_entry_point(cell n)
|
|
|
|
{
|
|
|
|
/* We return word->code->entry_point() and not word->entry_point,
|
|
|
|
because if profiling is enabled, we don't want to go through the
|
|
|
|
entry point's profiling stub. This clobbers registers, since entry
|
|
|
|
points use the C ABI and not the Factor ABI. */
|
|
|
|
tagged<word> entry_point_word(special_objects[n]);
|
|
|
|
return (Func)entry_point_word->code->entry_point();
|
|
|
|
}
|
|
|
|
|
2010-01-05 23:55:20 -05:00
|
|
|
void factor_vm::unwind_native_frames(cell quot, stack_frame *to)
|
|
|
|
{
|
2011-05-20 18:11:50 -04:00
|
|
|
tagged<word> entry_point_word(special_objects[UNWIND_NATIVE_FRAMES_WORD]);
|
|
|
|
void *func = entry_point_word->code->entry_point();
|
|
|
|
CODE_TO_FUNCTION_POINTER(func);
|
|
|
|
((unwind_native_frames_func_type)func)(quot,to);
|
2010-01-05 23:55:20 -05:00
|
|
|
}
|
|
|
|
|
2010-09-01 23:46:39 -04:00
|
|
|
cell factor_vm::get_fpu_state()
|
|
|
|
{
|
2011-05-20 18:11:50 -04:00
|
|
|
tagged<word> entry_point_word(special_objects[GET_FPU_STATE_WORD]);
|
|
|
|
void *func = entry_point_word->code->entry_point();
|
|
|
|
CODE_TO_FUNCTION_POINTER(func);
|
|
|
|
return ((get_fpu_state_func_type)func)();
|
2010-09-01 23:46:39 -04:00
|
|
|
}
|
|
|
|
|
|
|
|
void factor_vm::set_fpu_state(cell state)
|
|
|
|
{
|
2011-05-20 18:11:50 -04:00
|
|
|
tagged<word> entry_point_word(special_objects[SET_FPU_STATE_WORD]);
|
|
|
|
void *func = entry_point_word->code->entry_point();
|
|
|
|
CODE_TO_FUNCTION_POINTER(func);
|
|
|
|
((set_fpu_state_func_type)func)(state);
|
2010-09-01 23:46:39 -04:00
|
|
|
}
|
|
|
|
|
2010-01-05 21:47:36 -05:00
|
|
|
}
|