src/runtime/x86-64-bsd-os.c

   1 #include <signal.h>
   2 #include "sbcl.h"
   3 #include "runtime.h"
   4 #include "thread.h"
   5 #include "lispregs.h"
   6
   7 #if defined(LISP_FEATURE_FREEBSD)
   8 #include <machine/fpu.h>
   9 #endif
  10
  11 #if defined(LISP_FEATURE_OPENBSD)
  12 #include <machine/fpu.h>
  13 #endif
  14
  15 /* KLUDGE: There is strong family resemblance in the signal context
  16  * stuff in FreeBSD and OpenBSD, but in detail they're different in
  17  * almost every line of code. It would be nice to find some way to
  18  * factor out the commonality better; failing that, it might be best
  19  * just to split this generic-BSD code into one variant for each BSD.
  20  *
  21  * KLUDGE II: this split has begun with the addition of the Darwin BSD
  22  * flavour, with the cross-architecture complications that this
  23  * entails; unfortunately, currently the situation is worse, not
  24  * better, than in the above paragraph. */
  25
  26 #if defined(LISP_FEATURE_FREEBSD) || defined(LISP_FEATURE_DARWIN) || defined(LISP_FEATURE_OPENBSD)
  27 os_context_register_t *
  28 os_context_register_addr(os_context_t *context, int offset)
  29 {
  30     switch(offset) {
  31     case reg_RAX:
  32         return CONTEXT_ADDR_FROM_STEM(rax);
  33     case reg_RCX:
  34         return CONTEXT_ADDR_FROM_STEM(rcx);
  35     case reg_RDX:
  36         return CONTEXT_ADDR_FROM_STEM(rdx);
  37     case reg_RBX:
  38         return CONTEXT_ADDR_FROM_STEM(rbx);
  39     case reg_RSP:
  40         return CONTEXT_ADDR_FROM_STEM(rsp);
  41     case reg_RBP:
  42         return CONTEXT_ADDR_FROM_STEM(rbp);
  43     case reg_RSI:
  44         return CONTEXT_ADDR_FROM_STEM(rsi);
  45     case reg_RDI:
  46         return CONTEXT_ADDR_FROM_STEM(rdi);
  47     case reg_R8:
  48         return CONTEXT_ADDR_FROM_STEM(r8);
  49     case reg_R9:
  50         return CONTEXT_ADDR_FROM_STEM(r9);
  51     case reg_R10:
  52         return CONTEXT_ADDR_FROM_STEM(r10);
  53     case reg_R11:
  54         return CONTEXT_ADDR_FROM_STEM(r11);
  55     case reg_R12:
  56         return CONTEXT_ADDR_FROM_STEM(r12);
  57     case reg_R13:
  58         return CONTEXT_ADDR_FROM_STEM(r13);
  59     case reg_R14:
  60         return CONTEXT_ADDR_FROM_STEM(r14);
  61     case reg_R15:
  62         return CONTEXT_ADDR_FROM_STEM(r15);
  63     default:
  64         return 0;
  65     }
  66 }
  67
  68 os_context_register_t *
  69 os_context_sp_addr(os_context_t *context)
  70 {
  71     return CONTEXT_ADDR_FROM_STEM(rsp);
  72 }
  73
  74 os_context_register_t *
  75 os_context_pc_addr(os_context_t *context)
  76 {
  77     return CONTEXT_ADDR_FROM_STEM(rip);
  78 }
  79
  80 #elif defined(LISP_FEATURE_NETBSD)
  81 os_context_register_t *
  82 os_context_register_addr(os_context_t *context, int offset)
  83 {
  84     switch(offset) {
  85     case reg_RAX:
  86         return CONTEXT_ADDR_FROM_STEM(RAX);
  87     case reg_RCX:
  88         return CONTEXT_ADDR_FROM_STEM(RCX);
  89     case reg_RDX:
  90         return CONTEXT_ADDR_FROM_STEM(RDX);
  91     case reg_RBX:
  92         return CONTEXT_ADDR_FROM_STEM(RBX);
  93     case reg_RSP:
  94         return CONTEXT_ADDR_FROM_STEM(RSP);
  95     case reg_RBP:
  96         return CONTEXT_ADDR_FROM_STEM(RBP);
  97     case reg_RSI:
  98         return CONTEXT_ADDR_FROM_STEM(RSI);
  99     case reg_RDI:
 100         return CONTEXT_ADDR_FROM_STEM(RDI);
 101     case reg_R8:
 102         return CONTEXT_ADDR_FROM_STEM(R8);
 103     case reg_R9:
 104         return CONTEXT_ADDR_FROM_STEM(R9);
 105     case reg_R10:
 106         return CONTEXT_ADDR_FROM_STEM(R10);
 107     case reg_R11:
 108         return CONTEXT_ADDR_FROM_STEM(R11);
 109     case reg_R12:
 110         return CONTEXT_ADDR_FROM_STEM(R12);
 111     case reg_R13:
 112         return CONTEXT_ADDR_FROM_STEM(R13);
 113     case reg_R14:
 114         return CONTEXT_ADDR_FROM_STEM(R14);
 115     case reg_R15:
 116         return CONTEXT_ADDR_FROM_STEM(R15);
 117     default:
 118         return 0;
 119     }
 120 }
 121
 122 os_context_register_t *
 123 os_context_sp_addr(os_context_t *context)
 124 {
 125     return CONTEXT_ADDR_FROM_STEM(RSP);
 126 }
 127
 128 os_context_register_t *
 129 os_context_pc_addr(os_context_t *context)
 130 {
 131     return CONTEXT_ADDR_FROM_STEM(RIP);
 132 }
 133
 134 #endif
 135
 136 void
 137 os_flush_icache(os_vm_address_t address, os_vm_size_t length)
 138 {
 139 }
 140
 141 int arch_os_thread_init(struct thread *thread) {
 142     stack_t sigstack;
 143 #ifdef LISP_FEATURE_SB_THREAD
 144 #ifdef LISP_FEATURE_GCC_TLS
 145     current_thread = thread;
 146 #else
 147     pthread_setspecific(specials,thread);
 148 #endif
 149 #endif
 150
 151 #ifdef LISP_FEATURE_MACH_EXCEPTION_HANDLER
 152     mach_lisp_thread_init(thread);
 153 #endif
 154
 155 #ifdef LISP_FEATURE_C_STACK_IS_CONTROL_STACK
 156     /* Signal handlers are run on the control stack, so if it is exhausted
 157      * we had better use an alternate stack for whatever signal tells us
 158      * we've exhausted it */
 159     sigstack.ss_sp=((void *) thread)+dynamic_values_bytes;
 160     sigstack.ss_flags=0;
 161     sigstack.ss_size = 32*SIGSTKSZ;
 162     sigaltstack(&sigstack,0);
 163 #endif
 164     return 1;                  /* success */
 165 }
 166
 167 int arch_os_thread_cleanup(struct thread *thread) {
 168     return 1;                  /* success */
 169 }
 170
 171 #if defined(LISP_FEATURE_FREEBSD)
 172 void
 173 os_restore_fp_control(os_context_t *context)
 174 {
 175     struct envxmm *ex = (struct envxmm*)(&context->uc_mcontext.mc_fpstate);
 176     /* reset exception flags and restore control flags on SSE2 FPU */
 177     unsigned int temp = (ex->en_mxcsr) & ~0x3F;
 178     asm ("ldmxcsr %0" : : "m" (temp));
 179     /* same for x87 FPU. */
 180     asm ("fldcw %0" : : "m" (ex->en_cw));
 181 }
 182 #endif
 183
 184 #if defined(LISP_FEATURE_OPENBSD)
 185 void
 186 os_restore_fp_control(os_context_t *context)
 187 {
 188     if (context->sc_fpstate != NULL) {
 189         u_int32_t mxcsr = context->sc_fpstate->fx_mxcsr & ~0x3F;
 190         u_int16_t cw = context->sc_fpstate->fx_fcw;
 191         asm ("ldmxcsr %0" : : "m" (mxcsr));
 192         asm ("fldcw %0" : : "m" (cw));
 193     }
 194 }
 195 #endif