steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

VM: Refactor entry_points to Factor style

db4
Erik Charlebois 2013-05-11 21:58:23 -04:00
parent d5f66d9561
commit d6bc190f51
2 changed files with 37 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
vm/entry_points.cpp
View File

@ -1,53 +1,46 @@
#include "master.hpp"
namespace factor
{
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
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);
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);
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
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);
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;
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, void *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);
void factor_vm::unwind_native_frames(cell quot, void* 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> 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)();
cell factor_vm::get_fpu_state() {
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> 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);
void factor_vm::set_fpu_state(cell 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);
}
}

11
vm/entry_points.hpp
View File

@ -1,9 +1,8 @@
namespace factor
{
namespace factor {
typedef void (* c_to_factor_func_type)(cell quot);
typedef void (* unwind_native_frames_func_type)(cell quot, void *to);
typedef cell (* get_fpu_state_func_type)();
typedef void (* set_fpu_state_func_type)(cell state);
typedef void (*c_to_factor_func_type)(cell quot);
typedef void (*unwind_native_frames_func_type)(cell quot, void* to);
typedef cell (*get_fpu_state_func_type)();
typedef void (*set_fpu_state_func_type)(cell state);
}