void factor_vm::set_fpu_state(cell state) { tagged<word> entry_point_word(special_objects[SET_FPU_STATE_WORD]); cell func = entry_point_word->entry_point; CODE_TO_FUNCTION_POINTER(func); ((set_fpu_state_func_type) func)(state); }
cell factor_vm::get_fpu_state() { tagged<word> entry_point_word(special_objects[GET_FPU_STATE_WORD]); cell func = entry_point_word->entry_point; CODE_TO_FUNCTION_POINTER(func); return ((get_fpu_state_func_type) func)(); }
void factor_vm::unwind_native_frames(cell quot, cell to) { tagged<word> entry_point_word(special_objects[UNWIND_NATIVE_FRAMES_WORD]); cell func = entry_point_word->entry_point; CODE_TO_FUNCTION_POINTER(func); ((unwind_native_frames_func_type) func)(quot, to); }
void factor_vm::factor_sleep(long us) { void* func = alien_offset(special_objects[OBJ_SLEEP_CALLBACK]); CODE_TO_FUNCTION_POINTER(func); ((void(*)(long)) func)(us); }
void factor_vm::factor_yield() { void* func = alien_offset(special_objects[OBJ_YIELD_CALLBACK]); CODE_TO_FUNCTION_POINTER(func); ((void(*)()) func)(); }
char* factor_vm::factor_eval_string(char* string) { void* func = alien_offset(special_objects[OBJ_EVAL_CALLBACK]); CODE_TO_FUNCTION_POINTER(func); return ((char * (*)(char*)) func)(string); }