Put brackets around ipv6 addresses in `inet6 present`

[factor.git] / vm / os-linux-x86.64.hpp

diff --git a/vm/os-linux-x86.64.hpp b/vm/os-linux-x86.64.hpp
index 477e21708c4db3220476b438b7e8f0ca23b131ed..44f2dfd391f0e97790d865339d156021af5e3535 100644 (file)
--- a/vm/os-linux-x86.64.hpp
+++ b/vm/os-linux-x86.64.hpp
@@ -1,15 +1,31 @@
 #include <ucontext.h>
 
-namespace factor
-{
+namespace factor {
 
-inline static void *ucontext_stack_pointer(void *uap)
-{
-        ucontext_t *ucontext = (ucontext_t *)uap;
-        return (void *)ucontext->uc_mcontext.gregs[15];
+inline static unsigned int uap_fpu_status(void* uap) {
+  ucontext_t* ucontext = (ucontext_t*)uap;
+  return ucontext->uc_mcontext.fpregs->swd |
+         ucontext->uc_mcontext.fpregs->mxcsr;
 }
 
+inline static void uap_clear_fpu_status(void* uap) {
+  ucontext_t* ucontext = (ucontext_t*)uap;
+  ucontext->uc_mcontext.fpregs->swd = 0;
+  ucontext->uc_mcontext.fpregs->mxcsr &= 0xffffffc0;
+}
+
+#define UAP_STACK_POINTER(ucontext) \
+  (((ucontext_t*)ucontext)->uc_mcontext.gregs[15])
 #define UAP_PROGRAM_COUNTER(ucontext) \
-       (((ucontext_t *)(ucontext))->uc_mcontext.gregs[16])
+  (((ucontext_t*)ucontext)->uc_mcontext.gregs[16])
+
+#define CODE_TO_FUNCTION_POINTER(code) (void)0
+#define CODE_TO_FUNCTION_POINTER_CALLBACK(vm, code) (void)0
+#define FUNCTION_CODE_POINTER(ptr) ptr
+#define FUNCTION_TOC_POINTER(ptr) ptr
+
+// Must match the stack-frame-size constant in
+// bootstrap/assembler/x86.64.unix.factor
+static const unsigned JIT_FRAME_SIZE = 32;
 
 }