]> gitweb.factorcode.org Git - factor.git/blob - vm/os-linux-x86.64.hpp
alien.c-types: not necessary to import `short` differently anymore
[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
22 #define CODE_TO_FUNCTION_POINTER(code) (void)0
23 #define CODE_TO_FUNCTION_POINTER_CALLBACK(vm, code) (void)0
24 #define FUNCTION_CODE_POINTER(ptr) ptr
25 #define FUNCTION_TOC_POINTER(ptr) ptr
26
27 // Must match the stack-frame-size constant in
28 // bootstrap/assembler/x86.64.unix.factor
29 static const unsigned JIT_FRAME_SIZE = 32;
30
31 }