fix names for mc68000 registers

SCCS-vsn: usr.bin/pascal/pdx/process/ptrace.c 8.2

diff --git a/usr/src/usr.bin/pascal/pdx/process/ptrace.c b/usr/src/usr.bin/pascal/pdx/process/ptrace.c
index 599f415..0ffc2ff 100644 (file)
--- a/usr/src/usr.bin/pascal/pdx/process/ptrace.c
+++ b/usr/src/usr.bin/pascal/pdx/process/ptrace.c
@@ -6,7 +6,7 @@
  */
 
 #ifndef lint
  */
 
 #ifndef lint

-static char sccsid[] = "@(#)ptrace.c   8.1 (Berkeley) %G%";
+static char sccsid[] = "@(#)ptrace.c   8.2 (Berkeley) %G%";

 #endif /* not lint */
 
 /*
 #endif /* not lint */
 
 /*


@@ -231,7 +231,7 @@ LOCAL sigs_on()
 #endif
 #if mc68000
     LOCAL int rloc[] ={
 #endif
 #if mc68000
     LOCAL int rloc[] ={

-       R0, R1, R2, R3, R4, R5, R6, R7, AR0, AR1, AR2, AR3, AR4, AR5,
+       D0, D1, D2, D3, D4, D5, D6, D7, A0, A1, A2, A3, A4, A5,

     };
 #endif
 
     };
 #endif
 


@@ -270,7 +270,7 @@ register int status;
     p->ap = p->oap = ptrace(UREAD, p->pid, regloc(AP), 0);
 #endif
 #ifdef mc68000
     p->ap = p->oap = ptrace(UREAD, p->pid, regloc(AP), 0);
 #endif
 #ifdef mc68000

-    p->fp = p->ofp = ptrace(UREAD, p->pid, regloc(AR6), 0);
+    p->fp = p->ofp = ptrace(UREAD, p->pid, regloc(A6), 0);

     p->ap = p->oap = p->fp;
     p->sp = p->osp = ptrace(UREAD, p->pid, regloc(SP), 0);
     p->pc = p->opc = ptrace(UREAD, p->pid, regloc(PC), 0);
     p->ap = p->oap = p->fp;
     p->sp = p->osp = ptrace(UREAD, p->pid, regloc(SP), 0);
     p->pc = p->opc = ptrace(UREAD, p->pid, regloc(PC), 0);


@@ -307,7 +307,7 @@ register PROCESS *p;
 #endif
 #if mc68000
     if ((r = p->fp) != p->ofp) {
 #endif
 #if mc68000
     if ((r = p->fp) != p->ofp) {

-       ptrace(UWRITE, p->pid, regloc(AR6), r);
+       ptrace(UWRITE, p->pid, regloc(A6), r);

     }
 #endif
     if ((r = p->sp) != p->osp) {
     }
 #endif
     if ((r = p->sp) != p->osp) {