]> gitweb.factorcode.org Git - factor.git/blob - vm/os-linux-x86.64.hpp
VM: fix jit-signal-handler-prolog/epilog to account for the home space
[factor.git] / vm / os-linux-x86.64.hpp
1 #include <ucontext.h>
2
3 namespace factor {
4
5 inline static unsigned int uap_fpu_status(void* uap) {
6   ucontext_t* ucontext = (ucontext_t*)uap;
7   return ucontext->uc_mcontext.fpregs->swd |
8          ucontext->uc_mcontext.fpregs->mxcsr;
9 }
10
11 inline static void uap_clear_fpu_status(void* uap) {
12   ucontext_t* ucontext = (ucontext_t*)uap;
13   ucontext->uc_mcontext.fpregs->swd = 0;
14   ucontext->uc_mcontext.fpregs->mxcsr &= 0xffffffc0;
15 }
16
17 #define UAP_STACK_POINTER(ucontext) \
18   (((ucontext_t*)ucontext)->uc_mcontext.gregs[15])
19 #define UAP_PROGRAM_COUNTER(ucontext) \
20   (((ucontext_t*)ucontext)->uc_mcontext.gregs[16])
21 #define UAP_SET_TOC_POINTER(uap, ptr) (void)0
22
23 #define CODE_TO_FUNCTION_POINTER(code) (void)0
24 #define CODE_TO_FUNCTION_POINTER_CALLBACK(vm, code) (void)0
25 #define FUNCTION_CODE_POINTER(ptr) ptr
26 #define FUNCTION_TOC_POINTER(ptr) ptr
27
28 /* Must match the stack-frame-size constant in
29    bootstrap/assembler/x86.64.unix.factor */
30 static const unsigned JIT_FRAME_SIZE = 32;
31
32 }