![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to runpcs.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 42BSD / bin / adb|
Return to runpcs.c CVS log | Up to [CSRG BSD Unix] / 42BSD / bin / adb |
1.1 root 1: #ifndef lint
2: static char sccsid[] = "@(#)runpcs.c 4.4 10/27/83";
3: #endif
4: /*
5: *
6: * UNIX debugger
7: *
8: */
9:
10: #include "defs.h"
11:
12: extern MAP txtmap;
13:
14: MSG NOFORK;
15: MSG ENDPCS;
16: MSG BADWAIT;
17:
18: CHAR *lp;
19: ADDR sigint;
20: ADDR sigqit;
21:
22: /* breakpoints */
23: BKPTR bkpthead;
24:
25: REGLIST reglist[];
26:
27: CHAR lastc;
28:
29: INT fcor;
30: INT fsym;
31: STRING errflg;
32: INT errno;
33: INT signo;
34: INT sigcode;
35:
36: L_INT dot;
37: STRING symfil;
38: INT wtflag;
39: L_INT pid;
40: L_INT expv;
41: INT adrflg;
42: L_INT loopcnt;
43:
44:
45:
46:
47:
48: /* service routines for sub process control */
49:
50: getsig(sig)
51: { return(expr(0) ? expv : sig);
52: }
53:
54: ADDR userpc = 1;
55:
56: runpcs(runmode,execsig)
57: {
58: INT rc;
59: REG BKPTR bkpt;
60: IF adrflg THEN userpc=dot; FI
61: printf("%s: running\n", symfil);
62:
63: WHILE --loopcnt>=0
64: DO
65: #ifdef DEBUG
66: printf("\ncontinue %x %d\n",userpc,execsig);
67: #endif
68: IF runmode==SINGLE
69: THEN delbp(); /* hardware handles single-stepping */
70: ELSE /* continuing from a breakpoint is hard */
71: IF bkpt=scanbkpt(userpc)
72: THEN execbkpt(bkpt,execsig); execsig=0;
73: FI
74: setbp();
75: FI
76: ptrace(runmode,pid,userpc,execsig);
77: bpwait(); chkerr(); execsig=0; delbp(); readregs();
78:
79: IF (signo==0) ANDF (bkpt=scanbkpt(userpc))
80: THEN /* stopped by BPT instruction */
81: #ifdef DEBUG
82: printf("\n BPT code; '%s'%o'%o'%d",
83: bkpt->comm,bkpt->comm[0],EOR,bkpt->flag);
84: #endif
85: dot=bkpt->loc;
86: IF bkpt->flag==BKPTEXEC
87: ORF ((bkpt->flag=BKPTEXEC)
88: ANDF bkpt->comm[0]!=EOR
89: ANDF command(bkpt->comm,':')
90: ANDF --bkpt->count)
91: THEN execbkpt(bkpt,execsig); execsig=0; loopcnt++;
92: ELSE bkpt->count=bkpt->initcnt; rc=1;
93: FI
94: ELSE execsig=signo; rc=0;
95: FI
96: OD
97: return(rc);
98: }
99:
100: #define BPOUT 0
101: #define BPIN 1
102: INT bpstate = BPOUT;
103:
104: endpcs()
105: {
106: REG BKPTR bkptr;
107: IF pid
108: THEN ptrace(EXIT,pid,0,0); pid=0; userpc=1;
109: FOR bkptr=bkpthead; bkptr; bkptr=bkptr->nxtbkpt
110: DO IF bkptr->flag
111: THEN bkptr->flag=BKPTSET;
112: FI
113: OD
114: FI
115: bpstate=BPOUT;
116: }
117:
118: #ifdef VFORK
119: nullsig()
120: {
121:
122: }
123: #endif
124:
125: setup()
126: {
127: close(fsym); fsym = -1;
128: #ifndef VFORK
129: IF (pid = fork()) == 0
130: #else
131: IF (pid = vfork()) == 0
132: #endif
133: THEN ptrace(SETTRC,0,0,0);
134: #ifdef VFORK
135: signal(SIGTRAP,nullsig);
136: #endif
137: signal(SIGINT,sigint); signal(SIGQUIT,sigqit);
138: doexec(); exit(0);
139: ELIF pid == -1
140: THEN error(NOFORK);
141: ELSE bpwait(); readregs(); lp[0]=EOR; lp[1]=0;
142: fsym=open(symfil,wtflag);
143: IF errflg
144: THEN printf("%s: cannot execute\n",symfil);
145: endpcs(); error(0);
146: FI
147: FI
148: bpstate=BPOUT;
149: }
150:
151: execbkpt(bkptr,execsig)
152: BKPTR bkptr;
153: {
154: #ifdef DEBUG
155: printf("exbkpt: %d\n",bkptr->count);
156: #endif
157: delbp();
158: ptrace(SINGLE,pid,bkptr->loc,execsig);
159: bkptr->flag=BKPTSET;
160: bpwait(); chkerr(); readregs();
161: }
162:
163:
164: doexec()
165: {
166: STRING argl[MAXARG];
167: CHAR args[LINSIZ];
168: STRING p, *ap, filnam;
169: extern STRING environ;
170: ap=argl; p=args;
171: *ap++=symfil;
172: REP IF rdc()==EOR THEN break; FI
173: *ap = p;
174: /*
175: * First thing is to look for direction characters
176: * and get filename. Do not use up the args for filenames.
177: * Then get rid of spaces before next args.
178: */
179: IF lastc=='<'
180: THEN REP readchar(); PER lastc==SP ORF lastc==TB DONE
181: filnam = p;
182: WHILE lastc!=EOR ANDF lastc!=SP ANDF lastc!=TB ANDF lastc!='>'
183: DO *p++=lastc; readchar(); OD
184: *p = 0;
185: close(0);
186: IF open(filnam,0)<0
187: THEN printf("%s: cannot open\n",filnam); _exit(0);
188: FI
189: p = *ap;
190: ELIF lastc=='>'
191: THEN REP readchar(); PER lastc==SP ORF lastc==TB DONE
192: filnam = p;
193: WHILE lastc!=EOR ANDF lastc!=SP ANDF lastc!=TB ANDF lastc!='<'
194: DO *p++=lastc; readchar(); OD
195: *p = '\0';
196: close(1);
197: IF creat(filnam,0666)<0
198: THEN printf("%s: cannot create\n",filnam); _exit(0);
199: FI
200: p = *ap;
201: ELSE
202: WHILE lastc!=EOR ANDF lastc!=SP ANDF lastc!=TB ANDF lastc!='>' ANDF lastc!='<'
203: DO *p++=lastc; readchar(); OD
204: *p++ = '\0';
205: ap++;
206: FI
207: PER lastc!=EOR DONE
208: *ap++=0;
209: exect(symfil, argl, environ);
210: perror(symfil);
211: }
212:
213: BKPTR scanbkpt(adr)
214: ADDR adr;
215: {
216: REG BKPTR bkptr;
217: FOR bkptr=bkpthead; bkptr; bkptr=bkptr->nxtbkpt
218: DO IF bkptr->flag ANDF bkptr->loc==adr
219: THEN break;
220: FI
221: OD
222: return(bkptr);
223: }
224:
225: delbp()
226: {
227: REG ADDR a;
228: REG BKPTR bkptr;
229: IF bpstate!=BPOUT
230: THEN
231: FOR bkptr=bkpthead; bkptr; bkptr=bkptr->nxtbkpt
232: DO IF bkptr->flag
233: THEN a=bkptr->loc;
234: IF a < txtmap.e1 THEN
235: ptrace(WIUSER,pid,a,
236: (bkptr->ins&0xFF)|(ptrace(RIUSER,pid,a,0)&~0xFF));
237: ELSE
238: ptrace(WDUSER,pid,a,
239: (bkptr->ins&0xFF)|(ptrace(RDUSER,pid,a,0)&~0xFF));
240: FI
241: FI
242: OD
243: bpstate=BPOUT;
244: FI
245: }
246:
247: setbp()
248: {
249: REG ADDR a;
250: REG BKPTR bkptr;
251:
252: IF bpstate!=BPIN
253: THEN
254: FOR bkptr=bkpthead; bkptr; bkptr=bkptr->nxtbkpt
255: DO IF bkptr->flag
256: THEN a = bkptr->loc;
257: IF a < txtmap.e1 THEN
258: bkptr->ins = ptrace(RIUSER, pid, a, 0);
259: ptrace(WIUSER, pid, a, BPT | (bkptr->ins&~0xFF));
260: ELSE
261: bkptr->ins = ptrace(RDUSER, pid, a, 0);
262: ptrace(WDUSER, pid, a, BPT | (bkptr->ins&~0xFF));
263: FI
264: IF errno
265: THEN prints("cannot set breakpoint: ");
266: psymoff(bkptr->loc,ISYM,"\n");
267: FI
268: FI
269: OD
270: bpstate=BPIN;
271: FI
272: }
273:
274: bpwait()
275: {
276: REG ADDR w;
277: ADDR stat;
278:
279: signal(SIGINT, 1);
280: WHILE (w = wait(&stat))!=pid ANDF w != -1 DONE
281: signal(SIGINT,sigint);
282: IF w == -1
283: THEN pid=0;
284: errflg=BADWAIT;
285: ELIF (stat & 0177) != 0177
286: THEN sigcode = 0;
287: IF signo = stat&0177
288: THEN sigprint();
289: FI
290: IF stat&0200
291: THEN prints(" - core dumped");
292: close(fcor);
293: setcor();
294: FI
295: pid=0;
296: errflg=ENDPCS;
297: ELSE signo = stat>>8;
298: sigcode = ptrace(RUREGS, pid, &((struct user *)0)->u_code, 0);
299: IF signo!=SIGTRAP
300: THEN sigprint();
301: ELSE signo=0;
302: FI
303: flushbuf();
304: FI
305: }
306:
307: readregs()
308: {
309: /*get REG values from pcs*/
310: REG i;
311: FOR i=24; --i>=0;
312: DO *(ADDR *)(((ADDR)&u)+reglist[i].roffs) =
313: ptrace(RUREGS, pid, reglist[i].roffs, 0);
314: OD
315: userpc= *(ADDR *)(((ADDR)&u)+PC);
316: }
317:
318:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.