vm/os-macosx-x86.64.hpp

   1 #include <sys/ucontext.h>
   2
   3 namespace factor
   4 {
   5
   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>
   9
  10 Used under BSD license with permission from Paolo Bonzini and Bruno Haible,
  11 2005-03-10:
  12
  13 http://sourceforge.net/mailarchive/message.php?msg_name=200503102200.32002.bruno%40clisp.org
  14
  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
  19 #define MACH_EXC_INTEGER_DIV EXC_I386_DIV
  20 #define MACH_THREAD_STATE_TYPE x86_thread_state64_t
  21 #define MACH_THREAD_STATE_FLAVOR x86_THREAD_STATE64
  22 #define MACH_THREAD_STATE_COUNT MACHINE_THREAD_STATE_COUNT
  23
  24 #if __DARWIN_UNIX03
  25         #define MACH_EXC_STATE_FAULT(exc_state) (exc_state)->__faultvaddr
  26         #define MACH_STACK_POINTER(thr_state) (thr_state)->__rsp
  27         #define MACH_PROGRAM_COUNTER(thr_state) (thr_state)->__rip
  28         #define UAP_PROGRAM_COUNTER(ucontext) \
  29                 MACH_PROGRAM_COUNTER(&(((ucontext_t *)(ucontext))->uc_mcontext->__ss))
  30 #else
  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_PROGRAM_COUNTER(ucontext) \
  35                 MACH_PROGRAM_COUNTER(&(((ucontext_t *)(ucontext))->uc_mcontext->ss))
  36 #endif
  37
  38 inline static cell fix_stack_pointer(cell sp)
  39 {
  40         return ((sp + 8) & ~15) - 8;
  41 }
  42
  43 }