2007-10-28 14:41:28 -04:00
|
|
|
/* Fault handler information. MacOSX version.
|
|
|
|
|
Copyright (C) 1993-1999, 2002-2003 Bruno Haible <clisp.org at bruno>
|
|
|
|
|
Copyright (C) 2003 Paolo Bonzini <gnu.org at bonzini>
|
|
|
|
|
|
|
|
|
|
Used under BSD license with permission from Paolo Bonzini and Bruno Haible,
|
|
|
|
|
2005-03-10:
|
|
|
|
|
|
|
|
|
|
http://sourceforge.net/mailarchive/message.php?msg_name=200503102200.32002.bruno%40clisp.org
|
|
|
|
|
|
|
|
|
|
Modified for Factor by Slava Pestov */
|
2008-04-18 17:56:47 -04:00
|
|
|
#include <ucontext.h>
|
|
|
|
|
|
2007-09-20 18:09:08 -04:00
|
|
|
#define MACH_EXC_STATE_TYPE i386_exception_state_t
|
|
|
|
|
#define MACH_EXC_STATE_FLAVOR i386_EXCEPTION_STATE
|
|
|
|
|
#define MACH_EXC_STATE_COUNT i386_EXCEPTION_STATE_COUNT
|
|
|
|
|
#define MACH_THREAD_STATE_TYPE i386_thread_state_t
|
|
|
|
|
#define MACH_THREAD_STATE_FLAVOR i386_THREAD_STATE
|
|
|
|
|
#define MACH_THREAD_STATE_COUNT i386_THREAD_STATE_COUNT
|
|
|
|
|
|
|
|
|
|
#if __DARWIN_UNIX03
|
2007-10-28 14:41:28 -04:00
|
|
|
#define MACH_EXC_STATE_FAULT(exc_state) (exc_state)->__faultvaddr
|
|
|
|
|
#define MACH_STACK_POINTER(thr_state) (thr_state)->__esp
|
|
|
|
|
#define MACH_PROGRAM_COUNTER(thr_state) (thr_state)->__eip
|
2007-10-05 02:54:35 -04:00
|
|
|
#define UAP_PROGRAM_COUNTER(ucontext) \
|
|
|
|
|
MACH_PROGRAM_COUNTER(&(((ucontext_t *)(ucontext))->uc_mcontext->__ss))
|
2007-09-20 18:09:08 -04:00
|
|
|
#else
|
2007-10-28 14:41:28 -04:00
|
|
|
#define MACH_EXC_STATE_FAULT(exc_state) (exc_state)->faultvaddr
|
|
|
|
|
#define MACH_STACK_POINTER(thr_state) (thr_state)->esp
|
|
|
|
|
#define MACH_PROGRAM_COUNTER(thr_state) (thr_state)->eip
|
2007-10-05 02:54:35 -04:00
|
|
|
#define UAP_PROGRAM_COUNTER(ucontext) \
|
|
|
|
|
MACH_PROGRAM_COUNTER(&(((ucontext_t *)(ucontext))->uc_mcontext->ss))
|
2007-09-20 18:09:08 -04:00
|
|
|
#endif
|
2007-10-29 02:23:16 -04:00
|
|
|
|
|
|
|
|
INLINE CELL fix_stack_pointer(CELL sp)
|
|
|
|
|
{
|
|
|
|
|
return ((sp + 4) & ~15) - 4;
|
|
|
|
|
}
|
