1 #include <sys/ucontext.h>
6 /* Fault handler information. MacOSX version.
7 Copyright (C) 1993-1999, 2002-2003 Bruno Haible <clisp.org at bruno>
8 Copyright (C) 2003 Paolo Bonzini <gnu.org at bonzini>
10 Used under BSD license with permission from Paolo Bonzini and Bruno Haible,
13 http://sourceforge.net/mailarchive/message.php?msg_name=200503102200.32002.bruno%40clisp.org
15 Modified for Factor by Slava Pestov and Daniel Ehrenberg */
16 #define MACH_EXC_STATE_TYPE x86_exception_state64_t
17 #define MACH_EXC_STATE_FLAVOR x86_EXCEPTION_STATE64
18 #define MACH_EXC_STATE_COUNT x86_EXCEPTION_STATE64_COUNT
20 #define MACH_EXC_INTEGER_DIV EXC_I386_DIV
22 #define MACH_THREAD_STATE_TYPE x86_thread_state64_t
23 #define MACH_THREAD_STATE_FLAVOR x86_THREAD_STATE64
24 #define MACH_THREAD_STATE_COUNT MACHINE_THREAD_STATE_COUNT
26 #define MACH_FLOAT_STATE_TYPE x86_float_state64_t
27 #define MACH_FLOAT_STATE_FLAVOR x86_FLOAT_STATE64
28 #define MACH_FLOAT_STATE_COUNT x86_FLOAT_STATE64_COUNT
31 #define MACH_EXC_STATE_FAULT(exc_state) (exc_state)->__faultvaddr
32 #define MACH_STACK_POINTER(thr_state) (thr_state)->__rsp
33 #define MACH_PROGRAM_COUNTER(thr_state) (thr_state)->__rip
34 #define UAP_SS(ucontext) &(((ucontext_t *)(ucontext))->uc_mcontext->__ss)
35 #define UAP_FS(ucontext) &(((ucontext_t *)(ucontext))->uc_mcontext->__fs)
37 #define MXCSR(float_state) (float_state)->__fpu_mxcsr
38 #define X87SW(float_state) (float_state)->__fpu_fsw
40 #define MACH_EXC_STATE_FAULT(exc_state) (exc_state)->faultvaddr
41 #define MACH_STACK_POINTER(thr_state) (thr_state)->rsp
42 #define MACH_PROGRAM_COUNTER(thr_state) (thr_state)->rip
43 #define UAP_SS(ucontext) &(((ucontext_t *)(ucontext))->uc_mcontext->ss)
44 #define UAP_FS(ucontext) &(((ucontext_t *)(ucontext))->uc_mcontext->fs)
46 #define MXCSR(float_state) (float_state)->fpu_mxcsr
47 #define X87SW(float_state) (float_state)->fpu_fsw
50 #define UAP_PROGRAM_COUNTER(ucontext) \
51 MACH_PROGRAM_COUNTER(UAP_SS(ucontext))
53 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)
62 return mach_fpu_status(UAP_FS(uap));
65 inline static cell fix_stack_pointer(cell sp)
67 return ((sp + 8) & ~15) - 8;
70 inline static void mach_clear_fpu_status(x86_float_state64_t *float_state)
72 MXCSR(float_state) &= 0xffffffc0;
73 memset(&X87SW(float_state), 0, sizeof(X87SW(float_state)));
76 inline static void uap_clear_fpu_status(void *uap)
78 mach_clear_fpu_status(UAP_FS(uap));