]> gitweb.factorcode.org Git - factor.git/blob - vm/os-linux-x86.64.hpp
VM: LEAF_FRAME_SIZE is 16 bytes on all platforms so we can simplify it
[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 signal-handler-stack-frame-size and stack-frame-size
29    constants in bootstrap/assembler/x86.64.unix.factor */
30 static const unsigned SIGNAL_HANDLER_STACK_FRAME_SIZE = 160;
31 static const unsigned JIT_FRAME_SIZE = 32;
32
33 }