![[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] / 43BSD / bin / adb|
Return to runpcs.c CVS log | Up to [CSRG BSD Unix] / 43BSD / bin / adb |
1.1 root 1: #ifndef lint
2: static char sccsid[] = "@(#)runpcs.c 4.6 4/25/85";
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(PT_KILL,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(PT_TRACE_ME,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(PT_STEP,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(PT_WRITE_I,pid,a,bkptr->ins);
236: ELSE
237: ptrace(PT_WRITE_D,pid,a,bkptr->ins);
238: FI
239: FI
240: OD
241: bpstate=BPOUT;
242: FI
243: }
244:
245: #ifdef vax
246: #define SETBP(ins) (BPT | ((ins) &~ 0xFF))
247: #endif
248:
249: setbp()
250: {
251: REG ADDR a;
252: REG BKPTR bkptr;
253:
254: IF bpstate!=BPIN
255: THEN
256: FOR bkptr=bkpthead; bkptr; bkptr=bkptr->nxtbkpt
257: DO IF bkptr->flag
258: THEN a = bkptr->loc;
259: IF a < txtmap.e1 THEN
260: bkptr->ins = ptrace(PT_READ_I, pid, a, 0);
261: ptrace(PT_WRITE_I, pid, a, SETBP(bkptr->ins));
262: ELSE
263: bkptr->ins = ptrace(PT_READ_D, pid, a, 0);
264: ptrace(PT_WRITE_D, pid, a, SETBP(bkptr->ins));
265: FI
266: IF errno
267: THEN prints("cannot set breakpoint: ");
268: psymoff(bkptr->loc,ISYM,"\n");
269: FI
270: FI
271: OD
272: bpstate=BPIN;
273: FI
274: }
275:
276: bpwait()
277: {
278: REG ADDR w;
279: ADDR stat;
280:
281: signal(SIGINT, 1);
282: WHILE (w = wait(&stat))!=pid ANDF w != -1 DONE
283: signal(SIGINT,sigint);
284: IF w == -1
285: THEN pid=0;
286: errflg=BADWAIT;
287: ELIF (stat & 0177) != 0177
288: THEN sigcode = 0;
289: IF signo = stat&0177
290: THEN sigprint();
291: FI
292: IF stat&0200
293: THEN prints(" - core dumped");
294: close(fcor);
295: setcor();
296: FI
297: pid=0;
298: errflg=ENDPCS;
299: ELSE signo = stat>>8;
300: sigcode = ptrace(PT_READ_U, pid, &((struct user *)0)->u_code, 0);
301: IF signo!=SIGTRAP
302: THEN sigprint();
303: ELSE signo=0;
304: FI
305: flushbuf();
306: FI
307: }
308:
309: readregs()
310: {
311: /*get REG values from pcs*/
312: REG i;
313: FOR i=24; --i>=0;
314: DO *(ADDR *)(((ADDR)&u)+reglist[i].roffs) =
315: ptrace(PT_READ_U, pid, reglist[i].roffs, 0);
316: OD
317: userpc= *(ADDR *)(((ADDR)&u)+PC);
318: }
319:
320:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.