trap.c revision 1.96 1 /* $NetBSD: trap.c,v 1.96 2022/09/12 06:19:14 rin Exp $ */
2
3 /*
4 * Copyright 2001 Wasabi Systems, Inc.
5 * All rights reserved.
6 *
7 * Written by Eduardo Horvath and Simon Burge for Wasabi Systems, Inc.
8 *
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted provided that the following conditions
11 * are met:
12 * 1. Redistributions of source code must retain the above copyright
13 * notice, this list of conditions and the following disclaimer.
14 * 2. Redistributions in binary form must reproduce the above copyright
15 * notice, this list of conditions and the following disclaimer in the
16 * documentation and/or other materials provided with the distribution.
17 * 3. All advertising materials mentioning features or use of this software
18 * must display the following acknowledgement:
19 * This product includes software developed for the NetBSD Project by
20 * Wasabi Systems, Inc.
21 * 4. The name of Wasabi Systems, Inc. may not be used to endorse
22 * or promote products derived from this software without specific prior
23 * written permission.
24 *
25 * THIS SOFTWARE IS PROVIDED BY WASABI SYSTEMS, INC. ``AS IS'' AND
26 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
27 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
28 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL WASABI SYSTEMS, INC
29 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
30 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
31 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
32 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
33 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
34 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
35 * POSSIBILITY OF SUCH DAMAGE.
36 */
37
38 /*
39 * Copyright (C) 1995, 1996 Wolfgang Solfrank.
40 * Copyright (C) 1995, 1996 TooLs GmbH.
41 * All rights reserved.
42 *
43 * Redistribution and use in source and binary forms, with or without
44 * modification, are permitted provided that the following conditions
45 * are met:
46 * 1. Redistributions of source code must retain the above copyright
47 * notice, this list of conditions and the following disclaimer.
48 * 2. Redistributions in binary form must reproduce the above copyright
49 * notice, this list of conditions and the following disclaimer in the
50 * documentation and/or other materials provided with the distribution.
51 * 3. All advertising materials mentioning features or use of this software
52 * must display the following acknowledgement:
53 * This product includes software developed by TooLs GmbH.
54 * 4. The name of TooLs GmbH may not be used to endorse or promote products
55 * derived from this software without specific prior written permission.
56 *
57 * THIS SOFTWARE IS PROVIDED BY TOOLS GMBH ``AS IS'' AND ANY EXPRESS OR
58 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
59 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
60 * IN NO EVENT SHALL TOOLS GMBH BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
61 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
62 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
63 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
64 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
65 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
66 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
67 */
68
69 #define __UFETCHSTORE_PRIVATE
70
71 #include <sys/cdefs.h>
72 __KERNEL_RCSID(0, "$NetBSD: trap.c,v 1.96 2022/09/12 06:19:14 rin Exp $");
73
74 #ifdef _KERNEL_OPT
75 #include "opt_ddb.h"
76 #include "opt_kgdb.h"
77 #include "opt_ppcarch.h"
78 #include "opt_ppcopts.h"
79 #endif
80
81 #include <sys/param.h>
82 #include <sys/cpu.h>
83 #include <sys/kauth.h>
84 #include <sys/proc.h>
85 #include <sys/ptrace.h>
86 #include <sys/reboot.h>
87 #include <sys/syscall.h>
88 #include <sys/systm.h>
89
90 #if defined(KGDB)
91 #include <sys/kgdb.h>
92 #endif
93
94 #include <uvm/uvm_extern.h>
95
96 #include <dev/cons.h>
97
98 #include <machine/fpu.h>
99 #include <machine/frame.h>
100 #include <machine/pcb.h>
101 #include <machine/psl.h>
102 #include <machine/trap.h>
103
104 #include <powerpc/db_machdep.h>
105 #include <powerpc/spr.h>
106 #include <powerpc/userret.h>
107
108 #include <powerpc/ibm4xx/cpu.h>
109 #include <powerpc/ibm4xx/pmap.h>
110 #include <powerpc/ibm4xx/spr.h>
111 #include <powerpc/ibm4xx/tlb.h>
112
113 #include <powerpc/fpu/fpu_extern.h>
114
115 /* These definitions should probably be somewhere else XXX */
116 #define FIRSTARG 3 /* first argument is in reg 3 */
117 #define NARGREG 8 /* 8 args are in registers */
118 #define MOREARGS(sp) ((void *)((int)(sp) + 8)) /* more args go here */
119
120 void trap(struct trapframe *); /* Called from locore / trap_subr */
121 #if 0
122 /* Not currently used nor exposed externally in any header file */
123 int badaddr(void *, size_t);
124 int badaddr_read(void *, size_t, int *);
125 #endif
126 int ctx_setup(int, int);
127
128 #ifndef PPC_NO_UNALIGNED
129 static bool fix_unaligned(struct trapframe *, ksiginfo_t *);
130 #endif
131
132 #ifdef DEBUG
133 #define TDB_ALL 0x1
134 int trapdebug = /* TDB_ALL */ 0;
135 #define DBPRINTF(x, y) if (trapdebug & (x)) printf y
136 #else
137 #define DBPRINTF(x, y)
138 #endif
139
140 void
141 trap(struct trapframe *tf)
142 {
143 struct lwp *l = curlwp;
144 struct proc *p = l->l_proc;
145 struct pcb *pcb;
146 int type = tf->tf_exc;
147 int ftype, rv;
148 ksiginfo_t ksi;
149
150 KASSERT(l->l_stat == LSONPROC);
151
152 if (tf->tf_srr1 & PSL_PR) {
153 LWP_CACHE_CREDS(l, p);
154 type |= EXC_USER;
155 }
156
157 ftype = VM_PROT_READ;
158
159 DBPRINTF(TDB_ALL, ("trap(%x) at %lx from frame %p &frame %p\n",
160 type, tf->tf_srr0, tf, &tf));
161
162 switch (type) {
163 case EXC_DEBUG|EXC_USER:
164 /* We don't use hardware breakpoints for userland. */
165 goto brain_damage;
166
167 case EXC_TRC|EXC_USER:
168 KSI_INIT_TRAP(&ksi);
169 ksi.ksi_signo = SIGTRAP;
170 ksi.ksi_trap = EXC_TRC;
171 ksi.ksi_addr = (void *)tf->tf_srr0;
172 trapsignal(l, &ksi);
173 break;
174
175 case EXC_DSI:
176 /* FALLTHROUGH */
177 case EXC_DTMISS:
178 {
179 struct vm_map *map;
180 vaddr_t va;
181 struct faultbuf *fb;
182
183 pcb = lwp_getpcb(l);
184 fb = pcb->pcb_onfault;
185
186 if (curcpu()->ci_idepth >= 0) {
187 rv = EFAULT;
188 goto out;
189 }
190
191 va = tf->tf_dear;
192 if (tf->tf_pid == KERNEL_PID) {
193 map = kernel_map;
194 } else {
195 map = &p->p_vmspace->vm_map;
196 }
197
198 if (tf->tf_esr & (ESR_DST|ESR_DIZ))
199 ftype = VM_PROT_WRITE;
200
201 DBPRINTF(TDB_ALL,
202 ("trap(EXC_DSI) at %lx %s fault on %p esr %x\n",
203 tf->tf_srr0,
204 (ftype & VM_PROT_WRITE) ? "write" : "read",
205 (void *)va, tf->tf_esr));
206
207 pcb->pcb_onfault = NULL;
208 rv = uvm_fault(map, trunc_page(va), ftype);
209 pcb->pcb_onfault = fb;
210 if (rv == 0)
211 return;
212 out:
213 if (fb != NULL) {
214 tf->tf_pid = KERNEL_PID;
215 tf->tf_srr0 = fb->fb_pc;
216 tf->tf_srr1 |= PSL_IR; /* Re-enable IMMU */
217 tf->tf_cr = fb->fb_cr;
218 tf->tf_fixreg[1] = fb->fb_sp;
219 tf->tf_fixreg[2] = fb->fb_r2;
220 tf->tf_fixreg[3] = rv;
221 memcpy(&tf->tf_fixreg[13], fb->fb_fixreg,
222 sizeof(fb->fb_fixreg));
223 return;
224 }
225 }
226 goto brain_damage;
227
228 case EXC_DSI|EXC_USER:
229 /* FALLTHROUGH */
230 case EXC_DTMISS|EXC_USER:
231 if (tf->tf_esr & (ESR_DST|ESR_DIZ))
232 ftype = VM_PROT_WRITE;
233
234 DBPRINTF(TDB_ALL,
235 ("trap(EXC_DSI|EXC_USER) at %lx %s fault on %lx %x\n",
236 tf->tf_srr0, (ftype & VM_PROT_WRITE) ? "write" : "read",
237 tf->tf_dear, tf->tf_esr));
238 KASSERT(l == curlwp && (l->l_stat == LSONPROC));
239 // KASSERT(curpcb->pcb_onfault == NULL);
240 rv = uvm_fault(&p->p_vmspace->vm_map, trunc_page(tf->tf_dear),
241 ftype);
242 if (rv == 0) {
243 break;
244 }
245 KSI_INIT_TRAP(&ksi);
246 ksi.ksi_trap = EXC_DSI;
247 ksi.ksi_addr = (void *)tf->tf_dear;
248 vm_signal:
249 switch (rv) {
250 case EINVAL:
251 ksi.ksi_signo = SIGBUS;
252 ksi.ksi_code = BUS_ADRERR;
253 break;
254 case EACCES:
255 ksi.ksi_signo = SIGSEGV;
256 ksi.ksi_code = SEGV_ACCERR;
257 break;
258 case ENOMEM:
259 ksi.ksi_signo = SIGKILL;
260 printf("UVM: pid %d.%d (%s), uid %d killed: "
261 "out of swap\n", p->p_pid, l->l_lid, p->p_comm,
262 l->l_cred ? kauth_cred_geteuid(l->l_cred) : -1);
263 break;
264 default:
265 ksi.ksi_signo = SIGSEGV;
266 ksi.ksi_code = SEGV_MAPERR;
267 break;
268 }
269 trapsignal(l, &ksi);
270 break;
271
272 case EXC_ITMISS|EXC_USER:
273 case EXC_ISI|EXC_USER:
274 ftype = VM_PROT_EXECUTE;
275 DBPRINTF(TDB_ALL,
276 ("trap(EXC_ISI|EXC_USER) at %lx execute fault tf %p\n",
277 tf->tf_srr0, tf));
278 // KASSERT(curpcb->pcb_onfault == NULL);
279 rv = uvm_fault(&p->p_vmspace->vm_map, trunc_page(tf->tf_srr0),
280 ftype);
281 if (rv == 0) {
282 break;
283 }
284 isi:
285 KSI_INIT_TRAP(&ksi);
286 ksi.ksi_trap = EXC_ISI;
287 ksi.ksi_addr = (void *)tf->tf_srr0;
288 goto vm_signal;
289 break;
290
291 case EXC_AST|EXC_USER:
292 cpu_ast(l, curcpu());
293 break;
294
295 case EXC_ALI|EXC_USER:
296 if (fix_unaligned(tf, &ksi))
297 trapsignal(l, &ksi);
298 break;
299
300 case EXC_PGM|EXC_USER:
301 curcpu()->ci_data.cpu_ntrap++;
302
303 KSI_INIT_TRAP(&ksi);
304 ksi.ksi_trap = EXC_PGM;
305 ksi.ksi_addr = (void *)tf->tf_srr0;
306
307 if (tf->tf_esr & ESR_PTR) {
308 vaddr_t va;
309 sigtrap:
310 va = (vaddr_t)tf->tf_srr0;
311 /*
312 * Restore original instruction and clear BP.
313 */
314 if (p->p_md.md_ss_addr[0] == va ||
315 p->p_md.md_ss_addr[1] == va) {
316 rv = ppc_sstep(l, 0);
317 if (rv != 0)
318 goto vm_signal;
319 ksi.ksi_code = TRAP_TRACE;
320 } else
321 ksi.ksi_code = TRAP_BRKPT;
322 if (p->p_raslist != NULL &&
323 ras_lookup(p, (void *)va) != (void *)-1) {
324 tf->tf_srr0 += (ksi.ksi_code == TRAP_TRACE) ?
325 0 : 4;
326 break;
327 }
328 ksi.ksi_signo = SIGTRAP;
329 } else if (tf->tf_esr & ESR_PPR) {
330 uint32_t opcode;
331
332 rv = copyin((void *)tf->tf_srr0, &opcode,
333 sizeof(opcode));
334 if (rv)
335 goto isi;
336 if (emulate_mxmsr(l, tf, opcode)) {
337 tf->tf_srr0 += 4;
338 break;
339 }
340
341 ksi.ksi_code = ILL_PRVOPC;
342 ksi.ksi_signo = SIGILL;
343 } else {
344 pcb = lwp_getpcb(l);
345
346 if (__predict_false(!fpu_used_p(l))) {
347 memset(&pcb->pcb_fpu, 0, sizeof(pcb->pcb_fpu));
348 fpu_mark_used(l);
349 }
350
351 if (fpu_emulate(tf, &pcb->pcb_fpu, &ksi)) {
352 if (ksi.ksi_signo == 0) /* was emulated */
353 break;
354 else if (ksi.ksi_signo == SIGTRAP)
355 goto sigtrap; /* XXX H/W bug? */
356 } else {
357 ksi.ksi_code = ILL_ILLOPC;
358 ksi.ksi_signo = SIGILL;
359 }
360 }
361
362 trapsignal(l, &ksi);
363 break;
364
365 case EXC_MCHK:
366 {
367 struct faultbuf *fb;
368
369 pcb = lwp_getpcb(l);
370 if ((fb = pcb->pcb_onfault) != NULL) {
371 tf->tf_pid = KERNEL_PID;
372 tf->tf_srr0 = fb->fb_pc;
373 tf->tf_srr1 |= PSL_IR; /* Re-enable IMMU */
374 tf->tf_fixreg[1] = fb->fb_sp;
375 tf->tf_fixreg[2] = fb->fb_r2;
376 tf->tf_fixreg[3] = 1; /* Return TRUE */
377 tf->tf_cr = fb->fb_cr;
378 memcpy(&tf->tf_fixreg[13], fb->fb_fixreg,
379 sizeof(fb->fb_fixreg));
380 return;
381 }
382 }
383 goto brain_damage;
384
385 default:
386 brain_damage:
387 printf("trap type 0x%x at 0x%lx\n", type, tf->tf_srr0);
388 #if defined(DDB) || defined(KGDB)
389 if (kdb_trap(type, tf))
390 return;
391 #endif
392 #ifdef TRAP_PANICWAIT
393 printf("Press a key to panic.\n");
394 cngetc();
395 #endif
396 panic("trap");
397 }
398
399 /* Invoke powerpc userret code */
400 userret(l, tf);
401 }
402
403 int
404 ctx_setup(int ctx, int srr1)
405 {
406 volatile struct pmap *pm;
407
408 /* Update PID if we're returning to user mode. */
409 if (srr1 & PSL_PR) {
410 pm = curproc->p_vmspace->vm_map.pmap;
411 if (!pm->pm_ctx) {
412 ctx_alloc(__UNVOLATILE(pm));
413 }
414 ctx = pm->pm_ctx;
415 }
416 else if (!ctx) {
417 ctx = KERNEL_PID;
418 }
419 return (ctx);
420 }
421
422 /*
423 * Used by copyin()/copyout()
424 */
425 extern vaddr_t vmaprange(struct proc *, vaddr_t, vsize_t, int);
426 extern void vunmaprange(vaddr_t, vsize_t);
427 static int bigcopyin(const void *, void *, size_t );
428 static int bigcopyout(const void *, void *, size_t );
429
430 int
431 copyin(const void *uaddr, void *kaddr, size_t len)
432 {
433 struct pmap *pm = curproc->p_vmspace->vm_map.pmap;
434 int rv, msr, pid, tmp, ctx, count = 0;
435 struct faultbuf env;
436
437 /* For bigger buffers use the faster copy */
438 if (len > 1024)
439 return (bigcopyin(uaddr, kaddr, len));
440
441 if ((rv = setfault(&env))) {
442 curpcb->pcb_onfault = NULL;
443 return rv;
444 }
445
446 if (!(ctx = pm->pm_ctx)) {
447 /* No context -- assign it one */
448 ctx_alloc(pm);
449 ctx = pm->pm_ctx;
450 }
451
452 __asm volatile(
453 "mfmsr %[msr];" /* Save MSR */
454 "li %[tmp],0x20;" /* Disable IMMU */
455 "andc %[tmp],%[msr],%[tmp];"
456 "mtmsr %[tmp];"
457 "isync;"
458 "mfpid %[pid];" /* Save old PID */
459
460 "srwi. %[count],%[len],0x2;" /* How many words? */
461 "beq- 2f;" /* No words. Go do bytes */
462 "mtctr %[count];"
463
464 "1:" "mtpid %[ctx];"
465 "isync;"
466 #ifdef PPC_IBM403
467 "lswi %[tmp],%[uaddr],4;" /* Load user word */
468 #else
469 "lwz %[tmp],0(%[uaddr]);"
470 #endif
471 "addi %[uaddr],%[uaddr],0x4;" /* next uaddr word */
472 "sync;"
473
474 "mtpid %[pid];"
475 "isync;"
476 #ifdef PPC_IBM403
477 "stswi %[tmp],%[kaddr],4;" /* Store kernel word */
478 #else
479 "stw %[tmp],0(%[kaddr]);"
480 #endif
481 "dcbst 0,%[kaddr];" /* flush cache */
482 "addi %[kaddr],%[kaddr],0x4;" /* next kaddr word */
483 "sync;"
484 "bdnz 1b;" /* repeat */
485
486 "2:" "andi. %[count],%[len],0x3;" /* How many remaining bytes? */
487 "beq 10f;"
488 "mtxer %[count];"
489
490 "mtpid %[ctx];"
491 "isync;"
492 "lswx %[tmp],0,%[uaddr];" /* Load user bytes */
493 "sync;"
494
495 "mtpid %[pid];"
496 "isync;"
497 "stswx %[tmp],0,%[kaddr];" /* Store kernel bytes */
498 "dcbst 0,%[kaddr];" /* flush cache */
499 "sync;"
500
501 "10:" "mtmsr %[msr];" /* Restore MSR */
502 "isync;"
503
504 : [msr] "=&r" (msr), [pid] "=&r" (pid), [tmp] "=&r" (tmp)
505 : [uaddr] "b" (uaddr), [ctx] "b" (ctx), [kaddr] "b" (kaddr),
506 [len] "b" (len), [count] "b" (count)
507 : "cr0", "ctr", "xer");
508
509 curpcb->pcb_onfault = NULL;
510 return 0;
511 }
512
513 static int
514 bigcopyin(const void *uaddr, void *kaddr, size_t len)
515 {
516 const char *up;
517 char *kp = kaddr;
518 struct lwp *l = curlwp;
519 struct proc *p;
520 struct faultbuf env;
521 int error;
522
523 p = l->l_proc;
524
525 /*
526 * Stolen from physio():
527 */
528 error = uvm_vslock(p->p_vmspace, __UNCONST(uaddr), len, VM_PROT_READ);
529 if (error) {
530 return error;
531 }
532 up = (char *)vmaprange(p, (vaddr_t)uaddr, len, VM_PROT_READ);
533
534 if ((error = setfault(&env)) == 0) {
535 memcpy(kp, up, len);
536 }
537
538 curpcb->pcb_onfault = NULL;
539 vunmaprange((vaddr_t)up, len);
540 uvm_vsunlock(p->p_vmspace, __UNCONST(uaddr), len);
541
542 return error;
543 }
544
545 int
546 copyout(const void *kaddr, void *uaddr, size_t len)
547 {
548 struct pmap *pm = curproc->p_vmspace->vm_map.pmap;
549 int rv, msr, pid, tmp, ctx, count = 0;
550 struct faultbuf env;
551
552 /* For big copies use more efficient routine */
553 if (len > 1024)
554 return (bigcopyout(kaddr, uaddr, len));
555
556 if ((rv = setfault(&env))) {
557 curpcb->pcb_onfault = NULL;
558 return rv;
559 }
560
561 if (!(ctx = pm->pm_ctx)) {
562 /* No context -- assign it one */
563 ctx_alloc(pm);
564 ctx = pm->pm_ctx;
565 }
566
567 __asm volatile(
568 "mfmsr %[msr];" /* Save MSR */
569 "li %[tmp],0x20;" /* Disable IMMU */
570 "andc %[tmp],%[msr],%[tmp];"
571 "mtmsr %[tmp];"
572 "isync;"
573 "mfpid %[pid];" /* Save old PID */
574
575 "srwi. %[count],%[len],0x2;" /* How many words? */
576 "beq- 2f;" /* No words. Go do bytes */
577 "mtctr %[count];"
578
579 "1:"
580 #ifdef PPC_IBM403
581 "lswi %[tmp],%[kaddr],4;" /* Load kernel word */
582 #else
583 "lwz %[tmp],0(%[kaddr]);"
584 #endif
585 "addi %[kaddr],%[kaddr],0x4;" /* next kaddr word */
586 "sync;"
587
588 "mtpid %[ctx];"
589 "isync;"
590 #ifdef PPC_IBM403
591 "stswi %[tmp],%[uaddr],4;" /* Store user word */
592 #else
593 "stw %[tmp],0(%[uaddr]);"
594 #endif
595 "dcbst 0,%[uaddr];" /* flush cache */
596 "addi %[uaddr],%[uaddr],0x4;" /* next uaddr word */
597 "sync;"
598
599 "mtpid %[pid];"
600 "isync;"
601 "bdnz 1b;" /* repeat */
602
603 "2:" "andi. %[count],%[len],0x3;" /* How many remaining bytes? */
604 "beq 10f;"
605 "mtxer %[count];"
606
607 "lswx %[tmp],0,%[kaddr];" /* Load kernel bytes */
608 "sync;"
609
610 "mtpid %[ctx];"
611 "isync;"
612 "stswx %[tmp],0,%[uaddr];" /* Store user bytes */
613 "dcbst 0,%[uaddr];" /* flush cache */
614 "sync;"
615
616 "mtpid %[pid];" /* Restore PID and MSR */
617 "10:" "mtmsr %[msr];"
618 "isync;"
619
620 : [msr] "=&r" (msr), [pid] "=&r" (pid), [tmp] "=&r" (tmp)
621 : [uaddr] "b" (uaddr), [ctx] "b" (ctx), [kaddr] "b" (kaddr),
622 [len] "b" (len), [count] "b" (count)
623 : "cr0", "ctr", "xer");
624
625 curpcb->pcb_onfault = NULL;
626 return 0;
627 }
628
629 static int
630 bigcopyout(const void *kaddr, void *uaddr, size_t len)
631 {
632 char *up;
633 const char *kp = (const char *)kaddr;
634 struct lwp *l = curlwp;
635 struct proc *p;
636 struct faultbuf env;
637 int error;
638
639 p = l->l_proc;
640
641 /*
642 * Stolen from physio():
643 */
644 error = uvm_vslock(p->p_vmspace, uaddr, len, VM_PROT_WRITE);
645 if (error) {
646 return error;
647 }
648 up = (char *)vmaprange(p, (vaddr_t)uaddr, len,
649 VM_PROT_READ | VM_PROT_WRITE);
650
651 if ((error = setfault(&env)) == 0) {
652 memcpy(up, kp, len);
653 }
654
655 curpcb->pcb_onfault = NULL;
656 vunmaprange((vaddr_t)up, len);
657 uvm_vsunlock(p->p_vmspace, uaddr, len);
658
659 return error;
660 }
661
662 /*
663 * kcopy(const void *src, void *dst, size_t len);
664 *
665 * Copy len bytes from src to dst, aborting if we encounter a fatal
666 * page fault.
667 *
668 * kcopy() _must_ save and restore the old fault handler since it is
669 * called by uiomove(), which may be in the path of servicing a non-fatal
670 * page fault.
671 */
672 int
673 kcopy(const void *src, void *dst, size_t len)
674 {
675 struct faultbuf env, *oldfault;
676 int rv;
677
678 oldfault = curpcb->pcb_onfault;
679 if ((rv = setfault(&env))) {
680 curpcb->pcb_onfault = oldfault;
681 return rv;
682 }
683
684 memcpy(dst, src, len);
685
686 curpcb->pcb_onfault = oldfault;
687 return 0;
688 }
689
690 #if 0
691 int
692 badaddr(void *addr, size_t size)
693 {
694
695 return badaddr_read(addr, size, NULL);
696 }
697
698 int
699 badaddr_read(void *addr, size_t size, int *rptr)
700 {
701 struct faultbuf env;
702 int x;
703
704 /* Get rid of any stale machine checks that have been waiting. */
705 __asm volatile ("sync; isync");
706
707 if (setfault(&env)) {
708 curpcb->pcb_onfault = NULL;
709 __asm volatile ("sync");
710 return 1;
711 }
712
713 __asm volatile ("sync");
714
715 switch (size) {
716 case 1:
717 x = *(volatile int8_t *)addr;
718 break;
719 case 2:
720 x = *(volatile int16_t *)addr;
721 break;
722 case 4:
723 x = *(volatile int32_t *)addr;
724 break;
725 default:
726 panic("badaddr: invalid size (%d)", size);
727 }
728
729 /* Make sure we took the machine check, if we caused one. */
730 __asm volatile ("sync; isync");
731
732 curpcb->pcb_onfault = NULL;
733 __asm volatile ("sync"); /* To be sure. */
734
735 /* Use the value to avoid reorder. */
736 if (rptr)
737 *rptr = x;
738
739 return 0;
740 }
741 #endif
742
743 #ifndef PPC_NO_UNALIGNED
744 static bool
745 fix_unaligned(struct trapframe *tf, ksiginfo_t *ksi)
746 {
747
748 KSI_INIT_TRAP(ksi);
749 ksi->ksi_signo = SIGBUS;
750 ksi->ksi_trap = EXC_ALI;
751 ksi->ksi_addr = (void *)tf->tf_dear;
752 return true;
753 }
754 #endif
755
756 /*
757 * XXX Extremely lame implementations of _ufetch_* / _ustore_*. IBM 4xx
758 * experts should make versions that are good.
759 */
760
761 #define UFETCH(sz) \
762 int \
763 _ufetch_ ## sz(const uint ## sz ## _t *uaddr, uint ## sz ## _t *valp) \
764 { \
765 return copyin(uaddr, valp, sizeof(*valp)); \
766 }
767
768 UFETCH(8)
769 UFETCH(16)
770 UFETCH(32)
771
772 #define USTORE(sz) \
773 int \
774 _ustore_ ## sz(uint ## sz ## _t *uaddr, uint ## sz ## _t val) \
775 { \
776 return copyout(&val, uaddr, sizeof(val)); \
777 }
778
779 USTORE(8)
780 USTORE(16)
781 USTORE(32)
782