2009-05-02 05:04:19 -04:00
|
|
|
#include <assert.h>
|
|
|
|
|
2009-05-04 02:46:13 -04:00
|
|
|
namespace factor
|
|
|
|
{
|
|
|
|
|
2009-10-03 09:47:05 -04:00
|
|
|
#define FRAME_RETURN_ADDRESS(frame,vm) *(void **)(vm->frame_successor(frame) + 1)
|
2009-05-02 05:04:19 -04:00
|
|
|
|
2009-05-04 05:50:24 -04:00
|
|
|
inline static void flush_icache(cell start, cell len) {}
|
2009-05-02 05:04:19 -04:00
|
|
|
|
2009-05-06 23:44:30 -04:00
|
|
|
/* In the instruction sequence:
|
|
|
|
|
|
|
|
MOV EBX,...
|
|
|
|
JMP blah
|
|
|
|
|
|
|
|
the offset from the immediate operand to MOV to the instruction after
|
|
|
|
the jump is a cell for the immediate operand, 4 bytes for the JMP
|
|
|
|
destination, and one byte for the JMP opcode. */
|
|
|
|
static const fixnum xt_tail_pic_offset = sizeof(cell) + 4 + 1;
|
2009-05-06 23:04:01 -04:00
|
|
|
|
2009-05-06 20:22:22 -04:00
|
|
|
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);
|
|
|
|
}
|
|
|
|
|
2009-05-04 05:50:24 -04:00
|
|
|
inline static void check_call_site(cell return_address)
|
2009-05-02 05:04:19 -04:00
|
|
|
{
|
|
|
|
#ifdef FACTOR_DEBUG
|
2009-05-06 20:22:22 -04:00
|
|
|
unsigned char opcode = call_site_opcode(return_address);
|
|
|
|
assert(opcode == call_opcode || opcode == jmp_opcode);
|
2009-05-02 05:04:19 -04:00
|
|
|
#endif
|
|
|
|
}
|
|
|
|
|
2009-05-04 05:50:24 -04:00
|
|
|
inline static void *get_call_target(cell return_address)
|
2009-05-02 05:04:19 -04:00
|
|
|
{
|
|
|
|
check_call_site(return_address);
|
2009-05-04 05:50:24 -04:00
|
|
|
return (void *)(*(int *)(return_address - 4) + return_address);
|
2009-05-02 05:04:19 -04:00
|
|
|
}
|
|
|
|
|
2009-05-04 05:50:24 -04:00
|
|
|
inline static void set_call_target(cell return_address, void *target)
|
2009-05-02 05:04:19 -04:00
|
|
|
{
|
|
|
|
check_call_site(return_address);
|
2009-05-04 05:50:24 -04:00
|
|
|
*(int *)(return_address - 4) = ((cell)target - return_address);
|
2009-05-02 05:04:19 -04:00
|
|
|
}
|
|
|
|
|
2009-05-06 20:22:22 -04:00
|
|
|
inline static bool tail_call_site_p(cell return_address)
|
|
|
|
{
|
2009-12-15 07:20:09 -05:00
|
|
|
switch(call_site_opcode(return_address))
|
|
|
|
{
|
|
|
|
case jmp_opcode: return true;
|
|
|
|
case call_opcode: return false;
|
|
|
|
default: abort(); return false;
|
|
|
|
}
|
2009-05-06 20:22:22 -04:00
|
|
|
}
|
|
|
|
|
2009-09-14 00:37:28 -04:00
|
|
|
inline static unsigned int fpu_status(unsigned int status)
|
|
|
|
{
|
|
|
|
unsigned int r = 0;
|
2009-09-14 04:09:03 -04:00
|
|
|
|
2009-09-14 00:37:28 -04:00
|
|
|
if (status & 0x01)
|
2009-09-14 04:09:03 -04:00
|
|
|
r |= FP_TRAP_INVALID_OPERATION;
|
2009-09-14 00:37:28 -04:00
|
|
|
if (status & 0x04)
|
2009-09-14 04:09:03 -04:00
|
|
|
r |= FP_TRAP_ZERO_DIVIDE;
|
2009-09-14 00:37:28 -04:00
|
|
|
if (status & 0x08)
|
2009-09-14 04:09:03 -04:00
|
|
|
r |= FP_TRAP_OVERFLOW;
|
2009-09-14 00:37:28 -04:00
|
|
|
if (status & 0x10)
|
2009-09-14 04:09:03 -04:00
|
|
|
r |= FP_TRAP_UNDERFLOW;
|
2009-09-14 00:37:28 -04:00
|
|
|
if (status & 0x20)
|
2009-09-14 04:09:03 -04:00
|
|
|
r |= FP_TRAP_INEXACT;
|
2009-09-14 00:37:28 -04:00
|
|
|
|
|
|
|
return r;
|
|
|
|
}
|
|
|
|
|
2009-05-02 05:04:19 -04:00
|
|
|
/* Defined in assembly */
|
2009-12-23 07:37:24 -05:00
|
|
|
VM_C_API void c_to_factor(cell quot, void *vm);
|
2009-12-18 16:59:56 -05:00
|
|
|
VM_C_API void throw_impl(cell quot, void *new_stack, void *vm);
|
2009-12-23 07:37:24 -05:00
|
|
|
VM_C_API void lazy_jit_compile_impl(cell quot, void *vm);
|
2009-05-02 05:04:19 -04:00
|
|
|
|
2009-12-18 16:59:56 -05:00
|
|
|
VM_C_API void set_callstack(
|
|
|
|
void *vm,
|
|
|
|
stack_frame *to,
|
2009-12-15 07:20:09 -05:00
|
|
|
stack_frame *from,
|
|
|
|
cell length,
|
|
|
|
void *(*memcpy)(void*,const void*, size_t));
|
2009-05-04 02:46:13 -04:00
|
|
|
|
|
|
|
}
|