trap.c revision 1.65 1 1.65 matt /* $NetBSD: trap.c,v 1.65 2012/07/23 04:13:06 matt Exp $ */
2 1.1 simonb
3 1.1 simonb /*
4 1.1 simonb * Copyright 2001 Wasabi Systems, Inc.
5 1.1 simonb * All rights reserved.
6 1.1 simonb *
7 1.1 simonb * Written by Eduardo Horvath and Simon Burge for Wasabi Systems, Inc.
8 1.1 simonb *
9 1.1 simonb * Redistribution and use in source and binary forms, with or without
10 1.1 simonb * modification, are permitted provided that the following conditions
11 1.1 simonb * are met:
12 1.1 simonb * 1. Redistributions of source code must retain the above copyright
13 1.1 simonb * notice, this list of conditions and the following disclaimer.
14 1.1 simonb * 2. Redistributions in binary form must reproduce the above copyright
15 1.1 simonb * notice, this list of conditions and the following disclaimer in the
16 1.1 simonb * documentation and/or other materials provided with the distribution.
17 1.1 simonb * 3. All advertising materials mentioning features or use of this software
18 1.1 simonb * must display the following acknowledgement:
19 1.1 simonb * This product includes software developed for the NetBSD Project by
20 1.1 simonb * Wasabi Systems, Inc.
21 1.1 simonb * 4. The name of Wasabi Systems, Inc. may not be used to endorse
22 1.1 simonb * or promote products derived from this software without specific prior
23 1.1 simonb * written permission.
24 1.1 simonb *
25 1.1 simonb * THIS SOFTWARE IS PROVIDED BY WASABI SYSTEMS, INC. ``AS IS'' AND
26 1.1 simonb * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
27 1.1 simonb * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
28 1.1 simonb * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL WASABI SYSTEMS, INC
29 1.1 simonb * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
30 1.1 simonb * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
31 1.1 simonb * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
32 1.1 simonb * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
33 1.1 simonb * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
34 1.1 simonb * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
35 1.1 simonb * POSSIBILITY OF SUCH DAMAGE.
36 1.1 simonb */
37 1.1 simonb
38 1.1 simonb /*
39 1.1 simonb * Copyright (C) 1995, 1996 Wolfgang Solfrank.
40 1.1 simonb * Copyright (C) 1995, 1996 TooLs GmbH.
41 1.1 simonb * All rights reserved.
42 1.1 simonb *
43 1.1 simonb * Redistribution and use in source and binary forms, with or without
44 1.1 simonb * modification, are permitted provided that the following conditions
45 1.1 simonb * are met:
46 1.1 simonb * 1. Redistributions of source code must retain the above copyright
47 1.1 simonb * notice, this list of conditions and the following disclaimer.
48 1.1 simonb * 2. Redistributions in binary form must reproduce the above copyright
49 1.1 simonb * notice, this list of conditions and the following disclaimer in the
50 1.1 simonb * documentation and/or other materials provided with the distribution.
51 1.1 simonb * 3. All advertising materials mentioning features or use of this software
52 1.1 simonb * must display the following acknowledgement:
53 1.1 simonb * This product includes software developed by TooLs GmbH.
54 1.1 simonb * 4. The name of TooLs GmbH may not be used to endorse or promote products
55 1.1 simonb * derived from this software without specific prior written permission.
56 1.1 simonb *
57 1.1 simonb * THIS SOFTWARE IS PROVIDED BY TOOLS GMBH ``AS IS'' AND ANY EXPRESS OR
58 1.1 simonb * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
59 1.1 simonb * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
60 1.1 simonb * IN NO EVENT SHALL TOOLS GMBH BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
61 1.1 simonb * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
62 1.1 simonb * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
63 1.1 simonb * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
64 1.1 simonb * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
65 1.1 simonb * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
66 1.1 simonb * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
67 1.1 simonb */
68 1.14 lukem
69 1.14 lukem #include <sys/cdefs.h>
70 1.65 matt __KERNEL_RCSID(0, "$NetBSD: trap.c,v 1.65 2012/07/23 04:13:06 matt Exp $");
71 1.1 simonb
72 1.1 simonb #include "opt_altivec.h"
73 1.1 simonb #include "opt_ddb.h"
74 1.44 garbled #include "opt_kgdb.h"
75 1.1 simonb
76 1.1 simonb #include <sys/param.h>
77 1.1 simonb #include <sys/proc.h>
78 1.1 simonb #include <sys/reboot.h>
79 1.1 simonb #include <sys/syscall.h>
80 1.1 simonb #include <sys/systm.h>
81 1.20 cl #include <sys/userret.h>
82 1.34 yamt #include <sys/kauth.h>
83 1.61 matt #include <sys/cpu.h>
84 1.1 simonb
85 1.44 garbled #if defined(KGDB)
86 1.44 garbled #include <sys/kgdb.h>
87 1.44 garbled #endif
88 1.44 garbled
89 1.1 simonb #include <uvm/uvm_extern.h>
90 1.1 simonb
91 1.1 simonb #include <dev/cons.h>
92 1.1 simonb
93 1.1 simonb #include <machine/fpu.h>
94 1.1 simonb #include <machine/frame.h>
95 1.1 simonb #include <machine/pcb.h>
96 1.1 simonb #include <machine/psl.h>
97 1.1 simonb #include <machine/trap.h>
98 1.1 simonb
99 1.61 matt #include <powerpc/db_machdep.h>
100 1.1 simonb #include <powerpc/spr.h>
101 1.54 matt #include <powerpc/ibm4xx/spr.h>
102 1.61 matt
103 1.61 matt #include <powerpc/ibm4xx/cpu.h>
104 1.1 simonb #include <powerpc/ibm4xx/pmap.h>
105 1.1 simonb #include <powerpc/ibm4xx/tlb.h>
106 1.61 matt
107 1.1 simonb #include <powerpc/fpu/fpu_extern.h>
108 1.1 simonb
109 1.1 simonb /* These definitions should probably be somewhere else XXX */
110 1.1 simonb #define FIRSTARG 3 /* first argument is in reg 3 */
111 1.1 simonb #define NARGREG 8 /* 8 args are in registers */
112 1.40 christos #define MOREARGS(sp) ((void *)((int)(sp) + 8)) /* more args go here */
113 1.1 simonb
114 1.63 kiyohara static int fix_unaligned(struct lwp *l, struct trapframe *tf);
115 1.1 simonb
116 1.50 dsl void trap(struct trapframe *); /* Called from locore / trap_subr */
117 1.1 simonb /* Why are these not defined in a header? */
118 1.50 dsl int badaddr(void *, size_t);
119 1.50 dsl int badaddr_read(void *, size_t, int *);
120 1.50 dsl int ctx_setup(int, int);
121 1.1 simonb
122 1.1 simonb #ifdef DEBUG
123 1.1 simonb #define TDB_ALL 0x1
124 1.1 simonb int trapdebug = /* TDB_ALL */ 0;
125 1.1 simonb #define DBPRINTF(x, y) if (trapdebug & (x)) printf y
126 1.1 simonb #else
127 1.1 simonb #define DBPRINTF(x, y)
128 1.1 simonb #endif
129 1.1 simonb
130 1.1 simonb void
131 1.58 matt trap(struct trapframe *tf)
132 1.1 simonb {
133 1.10 thorpej struct lwp *l = curlwp;
134 1.55 chs struct proc *p = l->l_proc;
135 1.53 rmind struct pcb *pcb;
136 1.58 matt int type = tf->tf_exc;
137 1.1 simonb int ftype, rv;
138 1.18 eeh ksiginfo_t ksi;
139 1.1 simonb
140 1.55 chs KASSERT(l->l_stat == LSONPROC);
141 1.1 simonb
142 1.58 matt if (tf->tf_srr1 & PSL_PR) {
143 1.35 ad LWP_CACHE_CREDS(l, p);
144 1.1 simonb type |= EXC_USER;
145 1.35 ad }
146 1.1 simonb
147 1.1 simonb ftype = VM_PROT_READ;
148 1.1 simonb
149 1.13 simonb DBPRINTF(TDB_ALL, ("trap(%x) at %lx from frame %p &frame %p\n",
150 1.58 matt type, tf->tf_srr0, tf, &tf));
151 1.1 simonb
152 1.1 simonb switch (type) {
153 1.1 simonb case EXC_DEBUG|EXC_USER:
154 1.13 simonb {
155 1.13 simonb int srr2, srr3;
156 1.13 simonb
157 1.28 perry __asm volatile("mfspr %0,0x3f0" :
158 1.13 simonb "=r" (rv), "=r" (srr2), "=r" (srr3) :);
159 1.13 simonb printf("debug reg is %x srr2 %x srr3 %x\n", rv, srr2,
160 1.13 simonb srr3);
161 1.13 simonb /* XXX fall through or break here?! */
162 1.13 simonb }
163 1.1 simonb /*
164 1.1 simonb * DEBUG intr -- probably single-step.
165 1.1 simonb */
166 1.1 simonb case EXC_TRC|EXC_USER:
167 1.58 matt tf->tf_srr1 &= ~PSL_SE;
168 1.19 thorpej KSI_INIT_TRAP(&ksi);
169 1.17 matt ksi.ksi_signo = SIGTRAP;
170 1.17 matt ksi.ksi_trap = EXC_TRC;
171 1.58 matt ksi.ksi_addr = (void *)tf->tf_srr0;
172 1.17 matt trapsignal(l, &ksi);
173 1.1 simonb break;
174 1.7 simonb
175 1.13 simonb /*
176 1.13 simonb * If we could not find and install appropriate TLB entry, fall through.
177 1.13 simonb */
178 1.7 simonb
179 1.1 simonb case EXC_DSI:
180 1.1 simonb /* FALLTHROUGH */
181 1.1 simonb case EXC_DTMISS:
182 1.1 simonb {
183 1.1 simonb struct vm_map *map;
184 1.1 simonb vaddr_t va;
185 1.11 matt struct faultbuf *fb = NULL;
186 1.1 simonb
187 1.58 matt va = tf->tf_dear;
188 1.58 matt if (tf->tf_pid == KERNEL_PID) {
189 1.1 simonb map = kernel_map;
190 1.1 simonb } else {
191 1.1 simonb map = &p->p_vmspace->vm_map;
192 1.1 simonb }
193 1.1 simonb
194 1.58 matt if (tf->tf_esr & (ESR_DST|ESR_DIZ))
195 1.3 chs ftype = VM_PROT_WRITE;
196 1.1 simonb
197 1.13 simonb DBPRINTF(TDB_ALL,
198 1.13 simonb ("trap(EXC_DSI) at %lx %s fault on %p esr %x\n",
199 1.58 matt tf->tf_srr0,
200 1.13 simonb (ftype & VM_PROT_WRITE) ? "write" : "read",
201 1.58 matt (void *)va, tf->tf_esr));
202 1.58 matt
203 1.55 chs pcb = lwp_getpcb(l);
204 1.55 chs fb = pcb->pcb_onfault;
205 1.55 chs pcb->pcb_onfault = NULL;
206 1.32 drochner rv = uvm_fault(map, trunc_page(va), ftype);
207 1.55 chs pcb->pcb_onfault = fb;
208 1.1 simonb if (rv == 0)
209 1.1 simonb goto done;
210 1.55 chs if (fb != NULL) {
211 1.58 matt tf->tf_pid = KERNEL_PID;
212 1.58 matt tf->tf_srr0 = fb->fb_pc;
213 1.58 matt tf->tf_srr1 |= PSL_IR; /* Re-enable IMMU */
214 1.58 matt tf->tf_cr = fb->fb_cr;
215 1.58 matt tf->tf_fixreg[1] = fb->fb_sp;
216 1.58 matt tf->tf_fixreg[2] = fb->fb_r2;
217 1.58 matt tf->tf_fixreg[3] = 1; /* Return TRUE */
218 1.58 matt memcpy(&tf->tf_fixreg[13], fb->fb_fixreg,
219 1.11 matt sizeof(fb->fb_fixreg));
220 1.1 simonb goto done;
221 1.1 simonb }
222 1.1 simonb }
223 1.1 simonb goto brain_damage;
224 1.7 simonb
225 1.1 simonb case EXC_DSI|EXC_USER:
226 1.1 simonb /* FALLTHROUGH */
227 1.1 simonb case EXC_DTMISS|EXC_USER:
228 1.58 matt if (tf->tf_esr & (ESR_DST|ESR_DIZ))
229 1.3 chs ftype = VM_PROT_WRITE;
230 1.1 simonb
231 1.13 simonb DBPRINTF(TDB_ALL,
232 1.13 simonb ("trap(EXC_DSI|EXC_USER) at %lx %s fault on %lx %x\n",
233 1.58 matt tf->tf_srr0, (ftype & VM_PROT_WRITE) ? "write" : "read",
234 1.58 matt tf->tf_dear, tf->tf_esr));
235 1.13 simonb KASSERT(l == curlwp && (l->l_stat == LSONPROC));
236 1.55 chs // KASSERT(curpcb->pcb_onfault == NULL);
237 1.58 matt rv = uvm_fault(&p->p_vmspace->vm_map, trunc_page(tf->tf_dear),
238 1.32 drochner ftype);
239 1.1 simonb if (rv == 0) {
240 1.13 simonb break;
241 1.1 simonb }
242 1.19 thorpej KSI_INIT_TRAP(&ksi);
243 1.17 matt ksi.ksi_signo = SIGSEGV;
244 1.17 matt ksi.ksi_trap = EXC_DSI;
245 1.58 matt ksi.ksi_addr = (void *)tf->tf_dear;
246 1.1 simonb if (rv == ENOMEM) {
247 1.10 thorpej printf("UVM: pid %d (%s) lid %d, uid %d killed: "
248 1.13 simonb "out of swap\n",
249 1.13 simonb p->p_pid, p->p_comm, l->l_lid,
250 1.36 ad l->l_cred ?
251 1.36 ad kauth_cred_geteuid(l->l_cred) : -1);
252 1.17 matt ksi.ksi_signo = SIGKILL;
253 1.1 simonb }
254 1.17 matt trapsignal(l, &ksi);
255 1.1 simonb break;
256 1.15 chs
257 1.1 simonb case EXC_ITMISS|EXC_USER:
258 1.1 simonb case EXC_ISI|EXC_USER:
259 1.15 chs ftype = VM_PROT_EXECUTE;
260 1.13 simonb DBPRINTF(TDB_ALL,
261 1.15 chs ("trap(EXC_ISI|EXC_USER) at %lx execute fault tf %p\n",
262 1.58 matt tf->tf_srr0, tf));
263 1.55 chs // KASSERT(curpcb->pcb_onfault == NULL);
264 1.58 matt rv = uvm_fault(&p->p_vmspace->vm_map, trunc_page(tf->tf_srr0),
265 1.32 drochner ftype);
266 1.1 simonb if (rv == 0) {
267 1.13 simonb break;
268 1.1 simonb }
269 1.19 thorpej KSI_INIT_TRAP(&ksi);
270 1.17 matt ksi.ksi_signo = SIGSEGV;
271 1.17 matt ksi.ksi_trap = EXC_ISI;
272 1.58 matt ksi.ksi_addr = (void *)tf->tf_srr0;
273 1.21 drochner ksi.ksi_code = (rv == EACCES ? SEGV_ACCERR : SEGV_MAPERR);
274 1.17 matt trapsignal(l, &ksi);
275 1.1 simonb break;
276 1.1 simonb
277 1.1 simonb case EXC_AST|EXC_USER:
278 1.62 matt cpu_ast(l, curcpu());
279 1.1 simonb break;
280 1.1 simonb
281 1.1 simonb case EXC_ALI|EXC_USER:
282 1.58 matt if (fix_unaligned(l, tf) != 0) {
283 1.19 thorpej KSI_INIT_TRAP(&ksi);
284 1.17 matt ksi.ksi_signo = SIGBUS;
285 1.17 matt ksi.ksi_trap = EXC_ALI;
286 1.58 matt ksi.ksi_addr = (void *)tf->tf_dear;
287 1.17 matt trapsignal(l, &ksi);
288 1.17 matt } else
289 1.58 matt tf->tf_srr0 += 4;
290 1.1 simonb break;
291 1.1 simonb
292 1.1 simonb case EXC_PGM|EXC_USER:
293 1.7 simonb /*
294 1.7 simonb * Illegal insn:
295 1.1 simonb *
296 1.7 simonb * let's try to see if it's FPU and can be emulated.
297 1.1 simonb */
298 1.57 matt curcpu()->ci_data.cpu_ntrap++;
299 1.53 rmind pcb = lwp_getpcb(l);
300 1.53 rmind
301 1.58 matt if (!(l->l_md.md_flags & MDLWP_USEDFPU)) {
302 1.53 rmind memset(&pcb->pcb_fpu, 0, sizeof(pcb->pcb_fpu));
303 1.58 matt l->l_md.md_flags |= MDLWP_USEDFPU;
304 1.1 simonb }
305 1.1 simonb
306 1.65 matt if (fpu_emulate(tf, &pcb->pcb_fpu, &ksi)) {
307 1.65 matt if (ksi.ksi_signo == 0) /* was emulated */
308 1.65 matt break;
309 1.65 matt } else {
310 1.65 matt ksi.ksi_signo = SIGILL;
311 1.65 matt ksi.ksi_code = ILL_ILLOPC;
312 1.17 matt ksi.ksi_trap = EXC_PGM;
313 1.58 matt ksi.ksi_addr = (void *)tf->tf_srr0;
314 1.1 simonb }
315 1.65 matt
316 1.65 matt trapsignal(l, &ksi);
317 1.1 simonb break;
318 1.1 simonb
319 1.1 simonb case EXC_MCHK:
320 1.1 simonb {
321 1.11 matt struct faultbuf *fb;
322 1.1 simonb
323 1.53 rmind pcb = lwp_getpcb(l);
324 1.53 rmind if ((fb = pcb->pcb_onfault) != NULL) {
325 1.58 matt tf->tf_pid = KERNEL_PID;
326 1.58 matt tf->tf_srr0 = fb->fb_pc;
327 1.58 matt tf->tf_srr1 |= PSL_IR; /* Re-enable IMMU */
328 1.58 matt tf->tf_fixreg[1] = fb->fb_sp;
329 1.58 matt tf->tf_fixreg[2] = fb->fb_r2;
330 1.58 matt tf->tf_fixreg[3] = 1; /* Return TRUE */
331 1.58 matt tf->tf_cr = fb->fb_cr;
332 1.58 matt memcpy(&tf->tf_fixreg[13], fb->fb_fixreg,
333 1.11 matt sizeof(fb->fb_fixreg));
334 1.1 simonb goto done;
335 1.1 simonb }
336 1.1 simonb }
337 1.1 simonb goto brain_damage;
338 1.1 simonb default:
339 1.13 simonb brain_damage:
340 1.58 matt printf("trap type 0x%x at 0x%lx\n", type, tf->tf_srr0);
341 1.44 garbled #if defined(DDB) || defined(KGDB)
342 1.58 matt if (kdb_trap(type, tf))
343 1.1 simonb goto done;
344 1.1 simonb #endif
345 1.1 simonb #ifdef TRAP_PANICWAIT
346 1.1 simonb printf("Press a key to panic.\n");
347 1.1 simonb cngetc();
348 1.1 simonb #endif
349 1.1 simonb panic("trap");
350 1.1 simonb }
351 1.1 simonb
352 1.20 cl /* Invoke MI userret code */
353 1.20 cl mi_userret(l);
354 1.13 simonb done:
355 1.9 thorpej return;
356 1.1 simonb }
357 1.1 simonb
358 1.1 simonb int
359 1.1 simonb ctx_setup(int ctx, int srr1)
360 1.1 simonb {
361 1.1 simonb volatile struct pmap *pm;
362 1.1 simonb
363 1.1 simonb /* Update PID if we're returning to user mode. */
364 1.1 simonb if (srr1 & PSL_PR) {
365 1.1 simonb pm = curproc->p_vmspace->vm_map.pmap;
366 1.1 simonb if (!pm->pm_ctx) {
367 1.26 scw ctx_alloc(__UNVOLATILE(pm));
368 1.1 simonb }
369 1.1 simonb ctx = pm->pm_ctx;
370 1.1 simonb if (srr1 & PSL_SE) {
371 1.1 simonb int dbreg, mask = 0x48000000;
372 1.1 simonb /*
373 1.1 simonb * Set the Internal Debug and
374 1.1 simonb * Instruction Completion bits of
375 1.1 simonb * the DBCR0 register.
376 1.1 simonb *
377 1.1 simonb * XXX this is also used by jtag debuggers...
378 1.1 simonb */
379 1.28 perry __asm volatile("mfspr %0,0x3f2;"
380 1.13 simonb "or %0,%0,%1;"
381 1.13 simonb "mtspr 0x3f2,%0;" :
382 1.13 simonb "=&r" (dbreg) : "r" (mask));
383 1.1 simonb }
384 1.1 simonb }
385 1.1 simonb else if (!ctx) {
386 1.1 simonb ctx = KERNEL_PID;
387 1.1 simonb }
388 1.1 simonb return (ctx);
389 1.1 simonb }
390 1.1 simonb
391 1.1 simonb /*
392 1.1 simonb * Used by copyin()/copyout()
393 1.1 simonb */
394 1.50 dsl extern vaddr_t vmaprange(struct proc *, vaddr_t, vsize_t, int);
395 1.50 dsl extern void vunmaprange(vaddr_t, vsize_t);
396 1.50 dsl static int bigcopyin(const void *, void *, size_t );
397 1.50 dsl static int bigcopyout(const void *, void *, size_t );
398 1.1 simonb
399 1.1 simonb int
400 1.1 simonb copyin(const void *udaddr, void *kaddr, size_t len)
401 1.1 simonb {
402 1.1 simonb struct pmap *pm = curproc->p_vmspace->vm_map.pmap;
403 1.55 chs int rv, msr, pid, tmp, ctx, count = 0;
404 1.11 matt struct faultbuf env;
405 1.1 simonb
406 1.1 simonb /* For bigger buffers use the faster copy */
407 1.46 hpeyerl if (len > 1024)
408 1.25 simonb return (bigcopyin(udaddr, kaddr, len));
409 1.1 simonb
410 1.55 chs if ((rv = setfault(&env))) {
411 1.55 chs curpcb->pcb_onfault = NULL;
412 1.55 chs return rv;
413 1.1 simonb }
414 1.1 simonb
415 1.1 simonb if (!(ctx = pm->pm_ctx)) {
416 1.1 simonb /* No context -- assign it one */
417 1.1 simonb ctx_alloc(pm);
418 1.1 simonb ctx = pm->pm_ctx;
419 1.1 simonb }
420 1.1 simonb
421 1.46 hpeyerl __asm volatile(
422 1.46 hpeyerl " mfmsr %[msr];" /* Save MSR */
423 1.46 hpeyerl " li %[pid],0x20; "
424 1.46 hpeyerl " andc %[pid],%[msr],%[pid]; mtmsr %[pid];" /* Disable IMMU */
425 1.46 hpeyerl " mfpid %[pid];" /* Save old PID */
426 1.46 hpeyerl " sync; isync;"
427 1.46 hpeyerl
428 1.46 hpeyerl " srwi. %[count],%[len],0x2;" /* How many words? */
429 1.46 hpeyerl " beq- 2f;" /* No words. Go do bytes */
430 1.46 hpeyerl " mtctr %[count];"
431 1.46 hpeyerl "1: mtpid %[ctx]; sync;"
432 1.47 simonb " lswi %[tmp],%[udaddr],4;" /* Load user word */
433 1.46 hpeyerl " addi %[udaddr],%[udaddr],0x4;" /* next udaddr word */
434 1.46 hpeyerl " sync; isync;"
435 1.46 hpeyerl " mtpid %[pid];sync;"
436 1.47 simonb " stswi %[tmp],%[kaddr],4;" /* Store kernel word */
437 1.46 hpeyerl " dcbf 0,%[kaddr];" /* flush cache */
438 1.46 hpeyerl " addi %[kaddr],%[kaddr],0x4;" /* next udaddr word */
439 1.46 hpeyerl " sync; isync;"
440 1.46 hpeyerl " bdnz 1b;" /* repeat */
441 1.46 hpeyerl
442 1.46 hpeyerl "2: andi. %[count],%[len],0x3;" /* How many remaining bytes? */
443 1.46 hpeyerl " addi %[count],%[count],0x1;"
444 1.46 hpeyerl " mtctr %[count];"
445 1.46 hpeyerl "3: bdz 10f;" /* while count */
446 1.46 hpeyerl " mtpid %[ctx];sync;"
447 1.46 hpeyerl " lbz %[tmp],0(%[udaddr]);" /* Load user byte */
448 1.46 hpeyerl " addi %[udaddr],%[udaddr],0x1;" /* next udaddr byte */
449 1.46 hpeyerl " sync; isync;"
450 1.46 hpeyerl " mtpid %[pid]; sync;"
451 1.63 kiyohara " stb %[tmp],0(%[kaddr]);" /* Store kernel byte */
452 1.46 hpeyerl " dcbf 0,%[kaddr];" /* flush cache */
453 1.46 hpeyerl " addi %[kaddr],%[kaddr],0x1;"
454 1.46 hpeyerl " sync; isync;"
455 1.46 hpeyerl " b 3b;"
456 1.46 hpeyerl "10:mtpid %[pid]; mtmsr %[msr]; sync; isync;" /* Restore PID and MSR */
457 1.46 hpeyerl : [msr] "=&r" (msr), [pid] "=&r" (pid), [tmp] "=&r" (tmp)
458 1.46 hpeyerl : [udaddr] "b" (udaddr), [ctx] "b" (ctx), [kaddr] "b" (kaddr), [len] "b" (len), [count] "b" (count));
459 1.1 simonb
460 1.55 chs curpcb->pcb_onfault = NULL;
461 1.1 simonb return 0;
462 1.1 simonb }
463 1.1 simonb
464 1.1 simonb static int
465 1.1 simonb bigcopyin(const void *udaddr, void *kaddr, size_t len)
466 1.1 simonb {
467 1.1 simonb const char *up;
468 1.1 simonb char *kp = kaddr;
469 1.10 thorpej struct lwp *l = curlwp;
470 1.10 thorpej struct proc *p;
471 1.55 chs struct faultbuf env;
472 1.1 simonb int error;
473 1.1 simonb
474 1.10 thorpej p = l->l_proc;
475 1.10 thorpej
476 1.1 simonb /*
477 1.7 simonb * Stolen from physio():
478 1.1 simonb */
479 1.37 chs error = uvm_vslock(p->p_vmspace, __UNCONST(udaddr), len, VM_PROT_READ);
480 1.1 simonb if (error) {
481 1.55 chs return error;
482 1.1 simonb }
483 1.1 simonb up = (char *)vmaprange(p, (vaddr_t)udaddr, len, VM_PROT_READ);
484 1.1 simonb
485 1.55 chs if ((error = setfault(&env)) == 0) {
486 1.55 chs memcpy(kp, up, len);
487 1.55 chs }
488 1.55 chs
489 1.55 chs curpcb->pcb_onfault = NULL;
490 1.1 simonb vunmaprange((vaddr_t)up, len);
491 1.37 chs uvm_vsunlock(p->p_vmspace, __UNCONST(udaddr), len);
492 1.1 simonb
493 1.55 chs return error;
494 1.1 simonb }
495 1.1 simonb
496 1.1 simonb int
497 1.1 simonb copyout(const void *kaddr, void *udaddr, size_t len)
498 1.1 simonb {
499 1.1 simonb struct pmap *pm = curproc->p_vmspace->vm_map.pmap;
500 1.55 chs int rv, msr, pid, tmp, ctx, count = 0;
501 1.11 matt struct faultbuf env;
502 1.1 simonb
503 1.1 simonb /* For big copies use more efficient routine */
504 1.46 hpeyerl if (len > 1024)
505 1.25 simonb return (bigcopyout(kaddr, udaddr, len));
506 1.1 simonb
507 1.55 chs if ((rv = setfault(&env))) {
508 1.55 chs curpcb->pcb_onfault = NULL;
509 1.55 chs return rv;
510 1.1 simonb }
511 1.1 simonb
512 1.1 simonb if (!(ctx = pm->pm_ctx)) {
513 1.1 simonb /* No context -- assign it one */
514 1.1 simonb ctx_alloc(pm);
515 1.1 simonb ctx = pm->pm_ctx;
516 1.1 simonb }
517 1.1 simonb
518 1.46 hpeyerl __asm volatile(
519 1.46 hpeyerl " mfmsr %[msr];" /* Save MSR */ \
520 1.46 hpeyerl " li %[pid],0x20; " \
521 1.46 hpeyerl " andc %[pid],%[msr],%[pid]; mtmsr %[pid];" /* Disable IMMU */ \
522 1.46 hpeyerl " mfpid %[pid];" /* Save old PID */ \
523 1.46 hpeyerl " sync; isync;"
524 1.46 hpeyerl
525 1.46 hpeyerl " srwi. %[count],%[len],0x2;" /* How many words? */
526 1.46 hpeyerl " beq- 2f;" /* No words. Go do bytes */
527 1.46 hpeyerl " mtctr %[count];"
528 1.46 hpeyerl "1: mtpid %[pid];sync;"
529 1.47 simonb " lswi %[tmp],%[kaddr],4;" /* Load kernel word */
530 1.46 hpeyerl " addi %[kaddr],%[kaddr],0x4;" /* next kaddr word */
531 1.46 hpeyerl " sync; isync;"
532 1.46 hpeyerl " mtpid %[ctx]; sync;"
533 1.47 simonb " stswi %[tmp],%[udaddr],4;" /* Store user word */
534 1.46 hpeyerl " dcbf 0,%[udaddr];" /* flush cache */
535 1.46 hpeyerl " addi %[udaddr],%[udaddr],0x4;" /* next udaddr word */
536 1.46 hpeyerl " sync; isync;"
537 1.46 hpeyerl " bdnz 1b;" /* repeat */
538 1.46 hpeyerl
539 1.46 hpeyerl "2: andi. %[count],%[len],0x3;" /* How many remaining bytes? */
540 1.46 hpeyerl " addi %[count],%[count],0x1;"
541 1.46 hpeyerl " mtctr %[count];"
542 1.46 hpeyerl "3: bdz 10f;" /* while count */
543 1.46 hpeyerl " mtpid %[pid];sync;"
544 1.46 hpeyerl " lbz %[tmp],0(%[kaddr]);" /* Load kernel byte */
545 1.46 hpeyerl " addi %[kaddr],%[kaddr],0x1;" /* next kaddr byte */
546 1.46 hpeyerl " sync; isync;"
547 1.46 hpeyerl " mtpid %[ctx]; sync;"
548 1.46 hpeyerl " stb %[tmp],0(%[udaddr]);" /* Store user byte */
549 1.46 hpeyerl " dcbf 0,%[udaddr];" /* flush cache */
550 1.46 hpeyerl " addi %[udaddr],%[udaddr],0x1;"
551 1.46 hpeyerl " sync; isync;"
552 1.46 hpeyerl " b 3b;"
553 1.46 hpeyerl "10:mtpid %[pid]; mtmsr %[msr]; sync; isync;" /* Restore PID and MSR */
554 1.46 hpeyerl : [msr] "=&r" (msr), [pid] "=&r" (pid), [tmp] "=&r" (tmp)
555 1.63 kiyohara : [udaddr] "b" (udaddr), [ctx] "b" (ctx), [kaddr] "b" (kaddr), [len] "b" (len), [count] "b" (count));
556 1.1 simonb
557 1.55 chs curpcb->pcb_onfault = NULL;
558 1.1 simonb return 0;
559 1.1 simonb }
560 1.1 simonb
561 1.1 simonb static int
562 1.1 simonb bigcopyout(const void *kaddr, void *udaddr, size_t len)
563 1.1 simonb {
564 1.1 simonb char *up;
565 1.26 scw const char *kp = (const char *)kaddr;
566 1.10 thorpej struct lwp *l = curlwp;
567 1.10 thorpej struct proc *p;
568 1.55 chs struct faultbuf env;
569 1.1 simonb int error;
570 1.1 simonb
571 1.10 thorpej p = l->l_proc;
572 1.10 thorpej
573 1.1 simonb /*
574 1.7 simonb * Stolen from physio():
575 1.1 simonb */
576 1.37 chs error = uvm_vslock(p->p_vmspace, udaddr, len, VM_PROT_WRITE);
577 1.1 simonb if (error) {
578 1.55 chs return error;
579 1.1 simonb }
580 1.7 simonb up = (char *)vmaprange(p, (vaddr_t)udaddr, len,
581 1.13 simonb VM_PROT_READ | VM_PROT_WRITE);
582 1.1 simonb
583 1.55 chs if ((error = setfault(&env)) == 0) {
584 1.55 chs memcpy(up, kp, len);
585 1.55 chs }
586 1.55 chs
587 1.55 chs curpcb->pcb_onfault = NULL;
588 1.1 simonb vunmaprange((vaddr_t)up, len);
589 1.37 chs uvm_vsunlock(p->p_vmspace, udaddr, len);
590 1.1 simonb
591 1.55 chs return error;
592 1.1 simonb }
593 1.1 simonb
594 1.1 simonb /*
595 1.1 simonb * kcopy(const void *src, void *dst, size_t len);
596 1.1 simonb *
597 1.1 simonb * Copy len bytes from src to dst, aborting if we encounter a fatal
598 1.1 simonb * page fault.
599 1.1 simonb *
600 1.1 simonb * kcopy() _must_ save and restore the old fault handler since it is
601 1.1 simonb * called by uiomove(), which may be in the path of servicing a non-fatal
602 1.1 simonb * page fault.
603 1.1 simonb */
604 1.1 simonb int
605 1.1 simonb kcopy(const void *src, void *dst, size_t len)
606 1.1 simonb {
607 1.11 matt struct faultbuf env, *oldfault;
608 1.55 chs int rv;
609 1.1 simonb
610 1.1 simonb oldfault = curpcb->pcb_onfault;
611 1.55 chs if ((rv = setfault(&env))) {
612 1.1 simonb curpcb->pcb_onfault = oldfault;
613 1.55 chs return rv;
614 1.1 simonb }
615 1.1 simonb
616 1.2 wiz memcpy(dst, src, len);
617 1.1 simonb
618 1.1 simonb curpcb->pcb_onfault = oldfault;
619 1.1 simonb return 0;
620 1.1 simonb }
621 1.1 simonb
622 1.1 simonb int
623 1.1 simonb badaddr(void *addr, size_t size)
624 1.1 simonb {
625 1.1 simonb
626 1.1 simonb return badaddr_read(addr, size, NULL);
627 1.1 simonb }
628 1.1 simonb
629 1.1 simonb int
630 1.1 simonb badaddr_read(void *addr, size_t size, int *rptr)
631 1.1 simonb {
632 1.11 matt struct faultbuf env;
633 1.1 simonb int x;
634 1.1 simonb
635 1.1 simonb /* Get rid of any stale machine checks that have been waiting. */
636 1.28 perry __asm volatile ("sync; isync");
637 1.1 simonb
638 1.11 matt if (setfault(&env)) {
639 1.55 chs curpcb->pcb_onfault = NULL;
640 1.28 perry __asm volatile ("sync");
641 1.1 simonb return 1;
642 1.1 simonb }
643 1.1 simonb
644 1.28 perry __asm volatile ("sync");
645 1.1 simonb
646 1.1 simonb switch (size) {
647 1.1 simonb case 1:
648 1.1 simonb x = *(volatile int8_t *)addr;
649 1.1 simonb break;
650 1.1 simonb case 2:
651 1.1 simonb x = *(volatile int16_t *)addr;
652 1.1 simonb break;
653 1.1 simonb case 4:
654 1.1 simonb x = *(volatile int32_t *)addr;
655 1.1 simonb break;
656 1.1 simonb default:
657 1.1 simonb panic("badaddr: invalid size (%d)", size);
658 1.1 simonb }
659 1.1 simonb
660 1.1 simonb /* Make sure we took the machine check, if we caused one. */
661 1.28 perry __asm volatile ("sync; isync");
662 1.1 simonb
663 1.55 chs curpcb->pcb_onfault = NULL;
664 1.28 perry __asm volatile ("sync"); /* To be sure. */
665 1.1 simonb
666 1.1 simonb /* Use the value to avoid reorder. */
667 1.1 simonb if (rptr)
668 1.1 simonb *rptr = x;
669 1.1 simonb
670 1.1 simonb return 0;
671 1.1 simonb }
672 1.1 simonb
673 1.1 simonb /*
674 1.1 simonb * For now, this only deals with the particular unaligned access case
675 1.1 simonb * that gcc tends to generate. Eventually it should handle all of the
676 1.1 simonb * possibilities that can happen on a 32-bit PowerPC in big-endian mode.
677 1.1 simonb */
678 1.1 simonb
679 1.1 simonb static int
680 1.58 matt fix_unaligned(struct lwp *l, struct trapframe *tf)
681 1.1 simonb {
682 1.1 simonb
683 1.1 simonb return -1;
684 1.10 thorpej }
685