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 */
16 #define MACH_EXC_STATE_TYPE i386_exception_state_t
17 #define MACH_EXC_STATE_FLAVOR i386_EXCEPTION_STATE
18 #define MACH_EXC_STATE_COUNT i386_EXCEPTION_STATE_COUNT
19 #define MACH_THREAD_STATE_TYPE i386_thread_state_t
20 #define MACH_THREAD_STATE_FLAVOR i386_THREAD_STATE
21 #define MACH_THREAD_STATE_COUNT i386_THREAD_STATE_COUNT
24 #define MACH_EXC_STATE_FAULT(exc_state) (exc_state)->__faultvaddr
25 #define MACH_STACK_POINTER(thr_state) (thr_state)->__esp
26 #define MACH_PROGRAM_COUNTER(thr_state) (thr_state)->__eip
27 #define UAP_PROGRAM_COUNTER(ucontext) \
28 MACH_PROGRAM_COUNTER(&(((ucontext_t *)(ucontext))->uc_mcontext->__ss))
30 #define MACH_EXC_STATE_FAULT(exc_state) (exc_state)->faultvaddr
31 #define MACH_STACK_POINTER(thr_state) (thr_state)->esp
32 #define MACH_PROGRAM_COUNTER(thr_state) (thr_state)->eip
33 #define UAP_PROGRAM_COUNTER(ucontext) \
34 MACH_PROGRAM_COUNTER(&(((ucontext_t *)(ucontext))->uc_mcontext->ss))
37 inline static cell fix_stack_pointer(cell sp)
39 return ((sp + 4) & ~15) - 4;