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
  20 #define MACH_EXC_INTEGER_DIV EXC_I386_DIV
  21
  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
  25
  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
  29
  30 #if __DARWIN_UNIX03
  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)
  36
  37         #define MXCSR(float_state) (float_state)->__fpu_mxcsr
  38         #define X87SW(float_state) (float_state)->__fpu_fsw
  39 #else
  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)
  45
  46         #define MXCSR(float_state) (float_state)->fpu_mxcsr
  47         #define X87SW(float_state) (float_state)->fpu_fsw
  48 #endif
  49
  50 #define UAP_PROGRAM_COUNTER(ucontext) \
  51         MACH_PROGRAM_COUNTER(UAP_SS(ucontext))
  52
  53 inline static unsigned int mach_fpu_status(x86_float_state64_t *float_state)
  54 {
  55         unsigned short x87sw;
  56         memcpy(&x87sw, &X87SW(float_state), sizeof(x87sw));
  57         return MXCSR(float_state) | x87sw;
  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 void mach_clear_fpu_status(x86_float_state64_t *float_state)
  66 {
  67         MXCSR(float_state) &= 0xffffffc0;
  68         memset(&X87SW(float_state), 0, sizeof(X87SW(float_state)));
  69 }
  70
  71 inline static void uap_clear_fpu_status(void *uap)
  72 {
  73         mach_clear_fpu_status(UAP_FS(uap));
  74 }
  75
  76 /* Must match the leaf-stack-frame-size, signal-handler-stack-frame-size,
  77 and stack-frame-size constants in basis/cpu/x86/64/unix/bootstrap.factor */
  78 static const unsigned LEAF_FRAME_SIZE = 16;
  79 static const unsigned SIGNAL_HANDLER_STACK_FRAME_SIZE = 160;
  80 static const unsigned JIT_FRAME_SIZE = 32;
  81
  82 }