11 #include "interrupt.h"
14 /* The header files may not define PT_DAR/PT_DSISR. This definition
15 is correct for all versions of ppc linux >= 2.0.30
17 As of DR2.1u4, MkLinux doesn't pass these registers to signal
18 handlers correctly; a patch is necessary in order to (partially)
21 Even with the patch, the DSISR may not have its 'write' bit set
22 correctly (it tends not to be set if the fault was caused by
23 something other than a protection violation.)
39 arch_get_bad_addr(int sig, siginfo_t *code, os_context_t *context)
41 unsigned int *pc = (unsigned int *)(*os_context_pc_addr(context));
45 /* Make sure it's not the pc thats bogus, and that it was lisp code */
46 /* that caused the fault. */
47 if ((((unsigned long)pc) & 3) != 0 ||
48 ((pc < READ_ONLY_SPACE_START ||
49 pc >= READ_ONLY_SPACE_START+READ_ONLY_SPACE_SIZE) &&
50 ((lispobj *)pc < current_dynamic_space ||
51 (lispobj *)pc >= current_dynamic_space + DYNAMIC_SPACE_SIZE)))
55 addr = (os_vm_address_t) (*os_context_register_addr(context,PT_DAR));
61 arch_skip_instruction(os_context_t *context)
63 ((char*)*os_context_pc_addr(context)) +=4;
67 arch_internal_error_arguments(os_context_t *context)
69 return (unsigned char *)(*os_context_pc_addr(context)+4);
74 arch_pseudo_atomic_atomic(os_context_t *context)
76 return ((*os_context_register_addr(context,reg_ALLOC)) & 4);
79 #define PSEUDO_ATOMIC_INTERRUPTED_BIAS 0x7f000000
82 arch_set_pseudo_atomic_interrupted(os_context_t *context)
84 *os_context_register_addr(context,reg_NL3)
85 += PSEUDO_ATOMIC_INTERRUPTED_BIAS;
89 arch_install_breakpoint(void *pc)
91 unsigned long *ptr = (unsigned long *)pc;
92 unsigned long result = *ptr;
93 *ptr = (3<<26) | (5 << 21) | trap_Breakpoint;
94 os_flush_icache((os_vm_address_t) pc, sizeof(unsigned long));
99 arch_remove_breakpoint(void *pc, unsigned long orig_inst)
101 *(unsigned long *)pc = orig_inst;
102 os_flush_icache((os_vm_address_t) pc, sizeof(unsigned long));
105 static unsigned long *skipped_break_addr, displaced_after_inst;
106 static sigset_t orig_sigmask;
109 arch_do_displaced_inst(os_context_t *context,unsigned int orig_inst)
111 /* not sure how we ensure that we get the breakpoint reinstalled
112 * after doing this -dan */
113 unsigned long *pc = (unsigned long *)(*os_context_pc_addr(context));
115 orig_sigmask = *os_context_sigmask_addr(context);
116 sigaddset_blockable(os_context_sigmask_addr(context));
119 os_flush_icache((os_vm_address_t) pc, sizeof(unsigned long));
120 skipped_break_addr = pc;
124 sigtrap_handler(int signal, siginfo_t *siginfo, os_context_t *context)
128 #ifdef LISP_FEATURE_LINUX
129 os_restore_fp_control(context);
131 mask=(os_context_sigmask_addr(context));
133 code=*((u32 *)(*os_context_pc_addr(context)));
134 if (code == ((3 << 26) | (16 << 21) | (reg_ALLOC << 16))) {
135 /* twlti reg_ALLOC,0 - check for deferred interrupt */
136 *os_context_register_addr(context,reg_ALLOC)
137 -= PSEUDO_ATOMIC_INTERRUPTED_BIAS;
138 arch_skip_instruction(context);
139 /* interrupt or GC was requested in PA; now we're done with the
140 PA section we may as well get around to it */
141 interrupt_handle_pending(context);
145 if ((code >> 16) == ((3 << 10) | (6 << 5))) {
146 /* twllei reg_ZERO,N will always trap if reg_ZERO = 0 */
147 int trap = code & 0x1f;
151 fake_foreign_function_call(context);
152 lose("%%primitive halt called; the party is over.\n");
156 interrupt_internal_error(signal, code, context, trap == trap_Cerror);
159 case trap_PendingInterrupt:
160 /* when do we run this branch instead of the twlti code above? */
161 arch_skip_instruction(context);
162 interrupt_handle_pending(context);
165 case trap_Breakpoint:
166 handle_breakpoint(signal, code, context);
169 case trap_FunEndBreakpoint:
170 *os_context_pc_addr(context)
171 =(int)handle_fun_end_breakpoint(signal, code, context);
174 case trap_AfterBreakpoint:
175 *skipped_break_addr = trap_Breakpoint;
176 skipped_break_addr = NULL;
177 *(unsigned long *)*os_context_pc_addr(context)
178 = displaced_after_inst;
179 *os_context_sigmask_addr(context)= orig_sigmask;
181 os_flush_icache((os_vm_address_t) *os_context_pc_addr(context),
182 sizeof(unsigned long));
186 interrupt_handle_now(signal, code, context);
189 #ifdef LISP_FEATURE_DARWIN
194 if (((code >> 26) == 3) && (((code >> 21) & 31) == 24)) {
195 interrupt_internal_error(signal, code, context, 0);
196 #ifdef LISP_FEATURE_DARWIN
202 interrupt_handle_now(signal, code, context);
203 #ifdef LISP_FEATURE_DARWIN
204 /* Work around G5 bug */
210 void arch_install_interrupt_handlers()
212 undoably_install_low_level_interrupt_handler(SIGILL,sigtrap_handler);
213 undoably_install_low_level_interrupt_handler(SIGTRAP,sigtrap_handler);
217 extern lispobj call_into_lisp(lispobj fun, lispobj *args, int nargs);
219 lispobj funcall0(lispobj function)
221 lispobj *args = current_control_stack_pointer;
223 return call_into_lisp(function, args, 0);
226 lispobj funcall1(lispobj function, lispobj arg0)
228 lispobj *args = current_control_stack_pointer;
230 current_control_stack_pointer += 1;
233 return call_into_lisp(function, args, 1);
236 lispobj funcall2(lispobj function, lispobj arg0, lispobj arg1)
238 lispobj *args = current_control_stack_pointer;
240 current_control_stack_pointer += 2;
244 return call_into_lisp(function, args, 2);
247 lispobj funcall3(lispobj function, lispobj arg0, lispobj arg1, lispobj arg2)
249 lispobj *args = current_control_stack_pointer;
251 current_control_stack_pointer += 3;
256 return call_into_lisp(function, args, 3);
260 ppc_flush_icache(os_vm_address_t address, os_vm_size_t length)
262 os_vm_address_t end = (os_vm_address_t) ((int)(address+length+(32-1)) &~(32-1));
263 extern void ppc_flush_cache_line(os_vm_address_t);
265 while (address < end) {
266 ppc_flush_cache_line(address);