1 #include <sys/ucontext.h>
5 // Fault handler information. MacOSX version.
6 // Copyright (C) 1993-1999, 2002-2003 Bruno Haible <clisp.org at bruno>
7 // Copyright (C) 2003 Paolo Bonzini <gnu.org at bonzini>
9 // Used under BSD license with permission from Paolo Bonzini and Bruno Haible,
12 // http://sourceforge.net/mailarchive/message.php?msg_name=200503102200.32002.bruno%40clisp.org
14 // Modified for Factor by Slava Pestov and Daniel Ehrenberg
15 // Modified for arm64 by Doug Coleman
18 #define MACH_EXC_STATE_TYPE x86_exception_state64_t
19 #define MACH_EXC_STATE_FLAVOR x86_EXCEPTION_STATE64
20 #define MACH_EXC_STATE_COUNT x86_EXCEPTION_STATE64_COUNT
22 #define MACH_EXC_INTEGER_DIV EXC_ARM_FP_DZ
24 #define MACH_THREAD_STATE_TYPE x86_thread_state64_t
25 #define MACH_THREAD_STATE_FLAVOR x86_THREAD_STATE64
26 #define MACH_THREAD_STATE_COUNT MACHINE_THREAD_STATE_COUNT
28 #define MACH_FLOAT_STATE_TYPE x86_float_state64_t
29 #define MACH_FLOAT_STATE_FLAVOR x86_FLOAT_STATE64
30 #define MACH_FLOAT_STATE_COUNT x86_FLOAT_STATE64_COUNT
33 #define MACH_EXC_STATE_FAULT(exc_state) (exc_state)->__faultvaddr
34 #define MACH_STACK_POINTER(thr_state) (thr_state)->__rsp
35 #define MACH_PROGRAM_COUNTER(thr_state) (thr_state)->__rip
36 #define UAP_SS(ucontext) &(((ucontext_t*)(ucontext))->uc_mcontext->__ss)
37 #define UAP_FS(ucontext) &(((ucontext_t*)(ucontext))->uc_mcontext->__fs)
39 #define MXCSR(float_state) (float_state)->__fpu_mxcsr
40 #define X87SW(float_state) (float_state)->__fpu_fsw
42 #define MACH_EXC_STATE_FAULT(exc_state) (exc_state)->faultvaddr
43 #define MACH_STACK_POINTER(thr_state) (thr_state)->rsp
44 #define MACH_PROGRAM_COUNTER(thr_state) (thr_state)->rip
45 #define UAP_SS(ucontext) &(((ucontext_t*)(ucontext))->uc_mcontext->ss)
46 #define UAP_FS(ucontext) &(((ucontext_t*)(ucontext))->uc_mcontext->fs)
48 #define MXCSR(float_state) (float_state)->fpu_mxcsr
49 #define X87SW(float_state) (float_state)->fpu_fsw
52 #define UAP_PROGRAM_COUNTER(ucontext) MACH_PROGRAM_COUNTER(UAP_SS(ucontext))
54 inline static unsigned int mach_fpu_status(x86_float_state64_t* float_state) {
56 memcpy(&x87sw, &X87SW(float_state), sizeof(x87sw));
57 return MXCSR(float_state) | x87sw;
60 inline static unsigned int uap_fpu_status(void* uap) {
61 return mach_fpu_status(UAP_FS(uap));
64 inline static void mach_clear_fpu_status(x86_float_state64_t* float_state) {
65 MXCSR(float_state) &= 0xffffffc0;
66 memset(&X87SW(float_state), 0, sizeof(X87SW(float_state)));
69 inline static void uap_clear_fpu_status(void* uap) {
70 mach_clear_fpu_status(UAP_FS(uap));
73 // Must match the stack-frame-size constant in
74 // basis/bootstrap/assembler/x86.64.unix.factor
75 static const unsigned JIT_FRAME_SIZE = 32;
79 #define MACH_EXC_STATE_TYPE _STRUCT_ARM_EXCEPTION_STATE64 // arm_exception_state64_t
80 #define MACH_EXC_STATE_FAULT(exc_state) (exc_state)->__far
81 #define MACH_EXC_STATE_COUNT ARM_EXCEPTION_STATE64_COUNT
82 #define MACH_EXC_STATE_FLAVOR ARM_EXCEPTION_STATE64
84 //#define MACH_EXC_INTEGER_DIV undefined on arm? https://opensource.apple.com/source/lldb/lldb-112/source/Plugins/Process/Utility/StopInfoMachException.cpp.auto.html
86 #define MACH_THREAD_STATE_TYPE _STRUCT_ARM_THREAD_STATE64
87 #define MACH_THREAD_STATE_COUNT MACHINE_THREAD_STATE_COUNT
88 #define MACH_THREAD_STATE_FLAVOR ARM_THREAD_STATE64
90 #define MACH_FLOAT_STATE_TYPE _STRUCT_ARM_NEON_STATE64
91 #define MACH_FLOAT_STATE_COUNT ARM_NEON_STATE64_COUNT
92 #define MACH_FLOAT_STATE_FLAVOR ARM_NEON_STATE64
94 #define MACH_STACK_POINTER(thr_state) (thr_state)->__sp
97 #define MACH_PROGRAM_COUNTER(thr_state) (thr_state)->__pc
98 #define UAP_PROGRAM_COUNTER(ucontext) MACH_PROGRAM_COUNTER(UAP_SS(ucontext))
100 #define UAP_SS(ucontext) &(((ucontext_t*)(ucontext))->uc_mcontext->__ss)
101 #define UAP_FS(ucontext) &(((ucontext_t*)(ucontext))->uc_mcontext->__ns)
104 inline static unsigned int mach_fpu_status(_STRUCT_ARM_NEON_STATE64* float_state) {
105 // unsigned short x87sw;
106 // memcpy(&x87sw, &X87SW(float_state), sizeof(x87sw));
107 // return MXCSR(float_state) | x87sw;
108 return float_state->__fpsr;
112 inline static unsigned int uap_fpu_status(void* uap) {
113 return mach_fpu_status(UAP_FS(uap));
117 inline static void uap_clear_fpu_status(void* uap) {
118 // mach_clear_fpu_status(UAP_FS(uap));
122 inline static void mach_clear_fpu_status(arm_neon_state64_t* float_state) {
123 // MXCSR(float_state) &= 0xffffffc0; // omg
124 // memset(&X87SW(float_state), 0, sizeof(X87SW(float_state))); // omg
128 inline static unsigned int fpu_status(unsigned int status) {
133 r |= FP_TRAP_INVALID_OPERATION;
135 r |= FP_TRAP_ZERO_DIVIDE;
137 r |= FP_TRAP_OVERFLOW;
139 r |= FP_TRAP_UNDERFLOW;
141 r |= FP_TRAP_INEXACT;
147 static const unsigned JIT_FRAME_SIZE = 32; // omg