src/runtime/ppc-bsd-os.c

   1 #include <signal.h>
   2 #include <machine/cpu.h>
   3 #include "sbcl.h"
   4 #include "runtime.h"
   5 #include "thread.h"
   6
   7
   8 int *
   9 os_context_register_addr(os_context_t *context, int offset)
  10 {
  11 #if defined(LISP_FEATURE_NETBSD)
  12     return &context->uc_mcontext.__gregs[offset];
  13 #elif defined(LISP_FEATURE_OPENBSD)
  14     return &context->sc_frame.fixreg[offset];
  15 #endif
  16 }
  17
  18 #if defined(ARCH_HAS_STACK_POINTER) /* It's not defined on PPC. */
  19 int *
  20 os_context_sp_addr(os_context_t *context)
  21 {
  22 #if defined(LISP_FEATURE_NETBSD)
  23     return &(_UC_MACHINE_SP(context));
  24 #endif
  25 }
  26 #endif
  27
  28
  29 int *
  30 os_context_pc_addr(os_context_t *context)
  31 {
  32 #if defined(LISP_FEATURE_NETBSD)
  33     return &(_UC_MACHINE_PC(context));
  34 #elif defined(LISP_FEATURE_OPENBSD)
  35     return &context->sc_frame.srr0;
  36 #endif
  37 }
  38
  39 int *
  40 os_context_lr_addr(os_context_t *context)
  41 {
  42 #if defined(LISP_FEATURE_NETBSD)
  43     return &context->uc_mcontext.__gregs[_REG_LR];
  44 #elif defined(LISP_FEATURE_OPENBSD)
  45     return &context->sc_frame.lr;
  46 #endif
  47 }
  48
  49 os_context_register_t *
  50 os_context_ctr_addr(os_context_t *context)
  51 {
  52     /* FIXME: Figure out how to make this happen. */
  53     lose("was asked for context Counter (CTR) register, but don't know how");
  54 }
  55
  56 os_context_register_t *
  57 os_context_cr_addr(os_context_t *context)
  58 {
  59     /* FIXME: Figure out how to make this happen. */
  60     lose("was asked for context Condition (CR) register, but don't know how");
  61 }
  62
  63 /* FIXME: If this can be a no-op on BSD/x86, then it
  64  * deserves a more precise name.
  65  *
  66  * (Perhaps os_prepare_data_area_to_be_executed()?) */
  67 void
  68 os_flush_icache(os_vm_address_t address, os_vm_size_t length)
  69 {
  70    ppc_flush_icache(address, length);
  71 }
  72
  73 int arch_os_thread_init(struct thread *thread) {
  74
  75 #ifdef LISP_FEATURE_C_STACK_IS_CONTROL_STACK
  76     stack_t sigstack;
  77
  78     /* Signal handlers are run on the control stack, so if it is exhausted
  79      * we had better use an alternate stack for whatever signal tells us
  80      * we've exhausted it */
  81     sigstack.ss_sp=((void *) thread)+dynamic_values_bytes;
  82     sigstack.ss_flags=0;
  83     sigstack.ss_size = 32*SIGSTKSZ;
  84     sigaltstack(&sigstack,0);
  85 #endif
  86
  87     return 1;                  /* success */
  88 }
  89
  90 int arch_os_thread_cleanup(struct thread *thread) {
  91
  92     return 1;                  /* success */
  93 }