src/runtime/arm-arch.c

   1 /*
   2  * This software is part of the SBCL system. See the README file for
   3  * more information.
   4  *
   5  * This software is derived from the CMU CL system, which was
   6  * written at Carnegie Mellon University and released into the
   7  * public domain. The software is in the public domain and is
   8  * provided with absolutely no warranty. See the COPYING and CREDITS
   9  * files for more information.
  10  */
  11 #include <stdio.h>
  12
  13 #include "sbcl.h"
  14 #include "runtime.h"
  15 #include "arch.h"
  16 #include "globals.h"
  17 #include "validate.h"
  18 #include "os.h"
  19 #include "lispregs.h"
  20 #include "signal.h"
  21 #include "alloc.h"
  22 #include "interrupt.h"
  23 #include "interr.h"
  24 #include "breakpoint.h"
  25 #include "monitor.h"
  26
  27 void arch_init(void)
  28 {
  29     return;
  30 }
  31
  32 os_vm_address_t arch_get_bad_addr(int sig, siginfo_t *code, os_context_t *context)
  33 {
  34     return (os_vm_address_t)code->si_addr;
  35 }
  36
  37 void arch_skip_instruction(os_context_t *context)
  38 {
  39     /* KLUDGE: Other platforms check for trap codes and skip inlined
  40      * trap/error parameters.  We should too. */
  41
  42     /* Note that we're doing integer arithmetic here, not pointer. So
  43      * the value that the return value of os_context_pc_addr() points
  44      * to will be incremented by 4, not 16.
  45      */
  46     *os_context_pc_addr(context) += 4;
  47 }
  48
  49 unsigned char *arch_internal_error_arguments(os_context_t *context)
  50 {
  51     return (unsigned char *)(*os_context_pc_addr(context) + 5);
  52 }
  53
  54 boolean arch_pseudo_atomic_atomic(os_context_t *context)
  55 {
  56     /* FIXME: this foreign_function_call_active test is dubious at
  57      * best. If a foreign call is made in a pseudo atomic section
  58      * (?) or more likely a pseudo atomic section is in a foreign
  59      * call then an interrupt is executed immediately. Maybe it
  60      * has to do with C code not maintaining pseudo atomic
  61      * properly. MG - 2005-08-10
  62      *
  63      * The foreign_function_call_active used to live at each call-site
  64      * to arch_pseudo_atomic_atomic, but this seems clearer.
  65      * --NS 2007-05-15 */
  66 #ifdef LISP_FEATURE_GENCGC
  67     return SymbolValue(PSEUDO_ATOMIC_ATOMIC, 0) != NIL;
  68 #else
  69     return (!foreign_function_call_active)
  70         && (NIL != SymbolValue(PSEUDO_ATOMIC_ATOMIC,0));
  71 #endif
  72 }
  73
  74 void arch_set_pseudo_atomic_interrupted(os_context_t *context)
  75 {
  76     SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, do_pending_interrupt, 0);
  77 }
  78
  79 void arch_clear_pseudo_atomic_interrupted(os_context_t *context)
  80 {
  81     SetSymbolValue(PSEUDO_ATOMIC_INTERRUPTED, 0, 0);
  82 }
  83
  84 unsigned int arch_install_breakpoint(void *pc)
  85 {
  86     /* FIXME: Implement. */
  87
  88     return 0;
  89 }
  90
  91 void arch_remove_breakpoint(void *pc, unsigned int orig_inst)
  92 {
  93     /* FIXME: Implement. */
  94 }
  95
  96 void arch_do_displaced_inst(os_context_t *context, unsigned int orig_inst)
  97 {
  98     /* FIXME: Implement. */
  99 }
 100
 101 void
 102 arch_handle_breakpoint(os_context_t *context)
 103 {
 104     handle_breakpoint(context);
 105 }
 106
 107 void
 108 arch_handle_fun_end_breakpoint(os_context_t *context)
 109 {
 110     *os_context_pc_addr(context) = (int) handle_fun_end_breakpoint(context);
 111 }
 112
 113 void
 114 arch_handle_single_step_trap(os_context_t *context, int trap)
 115 {
 116     unsigned char register_offset =
 117         *((unsigned char *)(*os_context_pc_addr(context))+5);
 118     handle_single_step_trap(context, trap, register_offset);
 119     /* KLUDGE: arch_skip_instruction() only skips one instruction, and
 120      * there is a following word to deal with as well, so skip
 121      * twice. */
 122     arch_skip_instruction(context);
 123     arch_skip_instruction(context);
 124 }
 125
 126
 127
 128 #ifdef LISP_FEATURE_LINKAGE_TABLE
 129
 130 /* Linkage tables
 131  *
 132  * Linkage entry size is 16, because we need 4 instructions.
 133  */
 134
 135 #define LINKAGE_TEMP_REG        reg_NFP
 136
 137 void arch_write_linkage_table_jmp(char *reloc_addr, void *target_addr)
 138 {
 139   /*
 140     ldr reg, [pc, #4]
 141     bx  reg
 142     nop
 143     address
 144
 145     BX is needed for thumb interworking, without it it could take just two words with
 146     ldr pc, [pc, #-4]
 147     address
 148   */
 149   int* inst_ptr;
 150   unsigned inst;
 151
 152   inst_ptr = (int*) reloc_addr;
 153
 154   // ldr reg, [pc, #4]
 155   inst = 0xe59f0000 | LINKAGE_TEMP_REG << 12 | 4;
 156   *inst_ptr++ = inst;
 157
 158   // bx reg
 159   inst = 0xe12fff10 | LINKAGE_TEMP_REG;
 160   *inst_ptr++ = inst;
 161
 162   // nop aka mov r0, r0
 163   inst = 0xe1a00000;
 164   *inst_ptr++ = inst;
 165
 166   // address
 167   *inst_ptr++ = target_addr;
 168
 169   os_flush_icache((os_vm_address_t) reloc_addr, (char*) inst_ptr - reloc_addr);
 170 }
 171
 172 void
 173 arch_write_linkage_table_ref(void * reloc_addr, void *target_addr)
 174 {
 175     *(unsigned long *)reloc_addr = (unsigned long)target_addr;
 176 }
 177
 178 #endif