// void c_to_factor(cell quot);
// void lazy_jit_compile(cell quot);
-static const fixnum xt_tail_pic_offset = 4 + 1; // or 4 or whatever else...
-
-
-static const unsigned char call_opcode = 0xe8; // omg, these are x86 values
-static const unsigned char jmp_opcode = 0xe9; // omg
-
-static const unsigned SIGNAL_HANDLER_STACK_FRAME_SIZE = 64; // omg
+// static const fixnum xt_tail_pic_offset = 4 + 1; // or 4 or whatever else...
// omg
static const unsigned char call_opcode = 0xe8;
static const unsigned char jmp_opcode = 0xe9;
-inline static unsigned char call_site_opcode(cell return_address) {
- return *(unsigned char*)(return_address - 5);
-}
-
-inline static void check_call_site(cell return_address) {
- unsigned char opcode = call_site_opcode(return_address);
- FACTOR_ASSERT(opcode == call_opcode || opcode == jmp_opcode);
- (void)opcode; // suppress warning when compiling without assertions
-}
-
-inline static void* get_call_target(cell return_address) {
- check_call_site(return_address);
- return (void*)(*(int*)(return_address - 4) + return_address);
-}
-
-inline static void set_call_target(cell return_address, cell target) {
- check_call_site(return_address);
- *(int*)(return_address - 4) = (uint32_t)(target - return_address);
-}
-
-inline static bool tail_call_site_p(cell return_address) {
- switch (call_site_opcode(return_address)) {
- case jmp_opcode:
- return true;
- case call_opcode:
- return false;
- default:
- abort();
- return false;
- }
-}
static const unsigned SIGNAL_HANDLER_STACK_FRAME_SIZE = 192;