vm/os-macosx-ppc.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 */
  16 #define FRAME_RETURN_ADDRESS(frame) *((void **)(frame_successor(frame) + 1) + 2)
  17
  18 #define MACH_EXC_STATE_TYPE ppc_exception_state_t
  19 #define MACH_EXC_STATE_FLAVOR PPC_EXCEPTION_STATE
  20 #define MACH_EXC_STATE_COUNT PPC_EXCEPTION_STATE_COUNT
  21
  22 #define MACH_EXC_INTEGER_DIV EXC_PPC_ZERO_DIVIDE
  23
  24 #define MACH_THREAD_STATE_TYPE ppc_thread_state_t
  25 #define MACH_THREAD_STATE_FLAVOR PPC_THREAD_STATE
  26 #define MACH_THREAD_STATE_COUNT PPC_THREAD_STATE_COUNT
  27
  28 #define MACH_FLOAT_STATE_TYPE ppc_float_state_t
  29 #define MACH_FLOAT_STATE_FLAVOR PPC_FLOAT_STATE
  30 #define MACH_FLOAT_STATE_COUNT PPC_FLOAT_STATE_COUNT
  31
  32 #if __DARWIN_UNIX03
  33         #define MACH_EXC_STATE_FAULT(exc_state) (exc_state)->__dar
  34         #define MACH_STACK_POINTER(thr_state) (thr_state)->__r1
  35         #define MACH_PROGRAM_COUNTER(thr_state) (thr_state)->__srr0
  36
  37         #define UAP_SS(ucontext) &(((ucontext_t *)(ucontext))->uc_mcontext->__ss)
  38         #define UAP_FS(ucontext) &(((ucontext_t *)(ucontext))->uc_mcontext->__fs)
  39
  40         #define FPSCR(float_state) (float_state)->__fpscr
  41 #else
  42         #define MACH_EXC_STATE_FAULT(exc_state) (exc_state)->dar
  43         #define MACH_STACK_POINTER(thr_state) (thr_state)->r1
  44         #define MACH_PROGRAM_COUNTER(thr_state) (thr_state)->srr0
  45
  46         #define UAP_SS(ucontext) &(((ucontext_t *)(ucontext))->uc_mcontext->ss)
  47         #define UAP_FS(ucontext) &(((ucontext_t *)(ucontext))->uc_mcontext->fs)
  48
  49         #define FPSCR(float_state) (float_state)->fpscr
  50 #endif
  51
  52 #define UAP_PROGRAM_COUNTER(ucontext) \
  53         MACH_PROGRAM_COUNTER(UAP_SS(ucontext))
  54
  55 inline static unsigned int mach_fpu_status(ppc_float_state_t *float_state)
  56 {
  57         return FPSCR(float_state);
  58 }
  59
  60 inline static unsigned int uap_fpu_status(void *uap)
  61 {
  62         return mach_fpu_status(UAP_FS(uap));
  63 }
  64
  65 inline static cell fix_stack_pointer(cell sp)
  66 {
  67         return sp;
  68 }
  69
  70 inline static void mach_clear_fpu_status(ppc_float_state_t *float_state)
  71 {
  72         FPSCR(float_state) &= 0x0007f8ff;
  73 }
  74
  75 inline static void uap_clear_fpu_status(void *uap)
  76 {
  77         mach_clear_fpu_status(UAP_FS(uap));
  78 }
  79
  80 }