factor/vm/cpu-x86.64.S

132 lines
2.7 KiB
ArmAsm
Raw Normal View History

2007-09-21 22:56:01 -04:00
#include "asm.h"
#define STACK_REG %rsp
#define DS_REG %r14
2007-09-26 00:34:37 -04:00
#define RETURN_REG %rax
2007-09-21 22:56:01 -04:00
#define CELL_SIZE 8
2008-11-07 21:33:32 -05:00
#define STACK_PADDING 56
2007-09-21 22:56:01 -04:00
2008-11-08 21:32:23 -05:00
#define NV_TEMP_REG %rbp
#define ARITH_TEMP_1 %r8
#define ARITH_TEMP_2 %r9
#define DIV_RESULT %rax
2008-11-07 21:33:32 -05:00
#ifdef WINDOWS
2007-09-21 22:56:01 -04:00
2008-11-07 21:33:32 -05:00
#define ARG0 %rcx
#define ARG1 %rdx
#define ARG2 %r8
#define ARG3 %r9
#define PUSH_NONVOLATILE \
push %r12 ; \
push %r13 ; \
push %rdi ; \
push %rsi ; \
push %rbx ; \
2008-11-08 21:32:23 -05:00
push %rbp ; \
2008-11-07 21:33:32 -05:00
push %rbp
#define POP_NONVOLATILE \
2008-11-08 21:32:23 -05:00
pop %rbp ; \
2008-11-07 21:33:32 -05:00
pop %rbp ; \
pop %rbx ; \
pop %rsi ; \
pop %rdi ; \
pop %r13 ; \
pop %r12
#else
#define ARG0 %rdi
#define ARG1 %rsi
#define ARG2 %rdx
#define ARG3 %rcx
#define PUSH_NONVOLATILE \
push %rbx ; \
push %rbp ; \
push %r12 ; \
2008-11-08 21:32:23 -05:00
push %r13 ; \
2008-11-07 21:33:32 -05:00
push %r13
#define POP_NONVOLATILE \
2008-11-08 21:32:23 -05:00
pop %r13 ; \
2008-11-07 21:33:32 -05:00
pop %r13 ; \
pop %r12 ; \
pop %rbp ; \
pop %rbx
#endif
2007-09-21 22:56:01 -04:00
#define QUOT_XT_OFFSET 28
2007-09-21 22:56:01 -04:00
2007-09-22 02:28:49 -04:00
/* We pass a function pointer to memcpy to work around a Mac OS X
2007-09-21 22:56:01 -04:00
ABI limitation which would otherwise require us to do a bizzaro PC-relative
trampoline to retrieve the function address */
DEF(void,set_callstack,(F_STACK_FRAME *to, F_STACK_FRAME *from, CELL length, void *memcpy)):
2008-11-07 21:33:32 -05:00
sub ARG2,ARG0 /* compute new stack pointer */
mov ARG0,%rsp
call *ARG3 /* call memcpy */
2007-09-21 22:56:01 -04:00
ret /* return _with new stack_ */
DEF(long long,read_timestamp_counter,(void)):
mov $0,%rax
rdtsc
shl $32,%rdx
or %rdx,%rax
ret
DEF(void,primitive_inline_cache_miss,(void *vm)):
mov (%rsp),%rbx
DEF(void,primitive_inline_cache_miss_tail,(void *vm)):
sub $STACK_PADDING,%rsp
mov ARG0,ARG1
mov %rbx,ARG0
call MANGLE(inline_cache_miss)
add $STACK_PADDING,%rsp
2009-04-30 19:00:49 -04:00
jmp *%rax
DEF(void,get_sse_env,(void*)):
2009-09-14 04:14:48 -04:00
stmxcsr (%rdi)
ret
DEF(void,set_sse_env,(const void*)):
2009-09-14 04:14:48 -04:00
ldmxcsr (%rdi)
ret
DEF(void,get_x87_env,(void*)):
2009-09-14 04:14:48 -04:00
fnstsw (%rdi)
fnstcw 2(%rdi)
ret
DEF(void,set_x87_env,(const void*)):
2009-09-14 04:14:48 -04:00
fnclex
fldcw 2(%rdi)
ret
2009-08-19 14:40:09 -04:00
DEF(F_FASTCALL void,throw_impl,(CELL quot, F_STACK_FRAME *rewind_to, void *vm)):
/* clear x87 stack, but preserve rounding mode and exception flags */
sub $2,STACK_REG
fnstcw (STACK_REG)
fninit
fldcw (STACK_REG)
/* rewind_to */
mov ARG1,STACK_REG
mov ARG2,ARG1 /* make vm ptr 2nd arg in case quot_xt = lazy_jit_compile */
2009-08-19 14:40:09 -04:00
jmp *QUOT_XT_OFFSET(ARG0)
DEF(F_FASTCALL void,lazy_jit_compile,(CELL quot, void *vm)):
mov ARG1,ARG2 /* vm is 3rd arg */
mov STACK_REG,ARG1 /* Save stack pointer */
sub $STACK_PADDING,STACK_REG
call MANGLE(lazy_jit_compile_impl)
mov RETURN_REG,ARG0 /* No-op on 32-bit */
add $STACK_PADDING,STACK_REG
jmp *QUOT_XT_OFFSET(ARG0) /* Call the quotation */
2009-08-19 14:40:09 -04:00
2007-09-21 22:56:01 -04:00
#include "cpu-x86.S"