23 lines
603 B
C++
23 lines
603 B
C++
|
#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);
|
||
|
|
c_to_factor_func = (c_to_factor_func_type)c_to_factor_block->xt();
|
||
|
|
}
|
||
|
|
|
||
|
|
c_to_factor_func(quot);
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|