3 84114f06 2004-04-19 devnull * debugger
7 84114f06 2004-04-19 devnull #include "defs.h"
8 84114f06 2004-04-19 devnull #include "fns.h"
10 84114f06 2004-04-19 devnull char NOPCS[] = "no process";
12 84114f06 2004-04-19 devnull /* sub process control */
15 84114f06 2004-04-19 devnull subpcs(int modif)
17 84114f06 2004-04-19 devnull int check;
18 84114f06 2004-04-19 devnull int runmode;
19 84114f06 2004-04-19 devnull int keepnote;
20 84114f06 2004-04-19 devnull int n, r;
21 84114f06 2004-04-19 devnull ulong line, curr;
22 84114f06 2004-04-19 devnull BKPT *bk;
23 84114f06 2004-04-19 devnull char *comptr;
25 84114f06 2004-04-19 devnull runmode=SINGLE;
27 84114f06 2004-04-19 devnull keepnote=0;
28 84114f06 2004-04-19 devnull loopcnt=cntval;
29 84114f06 2004-04-19 devnull switch (modif) {
31 84114f06 2004-04-19 devnull /* delete breakpoint */
32 84114f06 2004-04-19 devnull case 'd':
33 84114f06 2004-04-19 devnull case 'D':
34 84114f06 2004-04-19 devnull if ((bk=scanbkpt(dot)) == 0)
35 84114f06 2004-04-19 devnull error("no breakpoint set");
36 84114f06 2004-04-19 devnull bk->flag=BKPTCLR;
39 84114f06 2004-04-19 devnull /* set breakpoint */
40 84114f06 2004-04-19 devnull case 'b':
41 84114f06 2004-04-19 devnull case 'B':
42 84114f06 2004-04-19 devnull if (bk=scanbkpt(dot))
43 84114f06 2004-04-19 devnull bk->flag=BKPTCLR;
44 84114f06 2004-04-19 devnull for (bk=bkpthead; bk; bk=bk->nxtbkpt)
45 84114f06 2004-04-19 devnull if (bk->flag == BKPTCLR)
47 84114f06 2004-04-19 devnull if (bk==0) {
48 84114f06 2004-04-19 devnull bk = (BKPT *)malloc(sizeof(*bk));
49 84114f06 2004-04-19 devnull if (bk == 0)
50 84114f06 2004-04-19 devnull error("too many breakpoints");
51 84114f06 2004-04-19 devnull bk->nxtbkpt=bkpthead;
52 84114f06 2004-04-19 devnull bkpthead=bk;
54 84114f06 2004-04-19 devnull bk->loc = dot;
55 84114f06 2004-04-19 devnull bk->initcnt = bk->count = cntval;
56 84114f06 2004-04-19 devnull bk->flag = modif == 'b' ? BKPTSET : BKPTTMP;
57 84114f06 2004-04-19 devnull check=MAXCOM-1;
58 84114f06 2004-04-19 devnull comptr=bk->comm;
60 84114f06 2004-04-19 devnull reread();
62 84114f06 2004-04-19 devnull *comptr++ = readchar();
63 84114f06 2004-04-19 devnull } while (check-- && lastc!=EOR);
64 84114f06 2004-04-19 devnull *comptr=0;
65 84114f06 2004-04-19 devnull if(bk->comm[0] != EOR && cntflg == FALSE)
66 84114f06 2004-04-19 devnull bk->initcnt = bk->count = HUGEINT;
67 84114f06 2004-04-19 devnull reread();
68 84114f06 2004-04-19 devnull if (check)
70 84114f06 2004-04-19 devnull error("bkpt command too long");
72 84114f06 2004-04-19 devnull /* exit */
73 84114f06 2004-04-19 devnull case 'k' :
74 84114f06 2004-04-19 devnull case 'K':
75 84114f06 2004-04-19 devnull if (pid == 0)
76 84114f06 2004-04-19 devnull error(NOPCS);
77 84114f06 2004-04-19 devnull dprint("%d: killed", pid);
78 84114f06 2004-04-19 devnull pcsactive = 1; /* force 'kill' ctl */
79 84114f06 2004-04-19 devnull endpcs();
82 84114f06 2004-04-19 devnull /* run program */
83 84114f06 2004-04-19 devnull case 'r':
84 84114f06 2004-04-19 devnull case 'R':
85 84114f06 2004-04-19 devnull endpcs();
87 84114f06 2004-04-19 devnull runmode = CONTIN;
90 84114f06 2004-04-19 devnull /* single step */
91 84114f06 2004-04-19 devnull case 's':
92 84114f06 2004-04-19 devnull if (pid == 0) {
94 84114f06 2004-04-19 devnull loopcnt--;
96 84114f06 2004-04-19 devnull runmode=SINGLE;
97 84114f06 2004-04-19 devnull keepnote=defval(1);
99 84114f06 2004-04-19 devnull case 'S':
100 84114f06 2004-04-19 devnull if (pid == 0) {
101 84114f06 2004-04-19 devnull setup();
102 84114f06 2004-04-19 devnull loopcnt--;
104 84114f06 2004-04-19 devnull keepnote=defval(1);
105 84114f06 2004-04-19 devnull if(pc2line(dbrget(cormap, mach->pc), &line) < 0)
106 84114f06 2004-04-19 devnull error("%r");
107 84114f06 2004-04-19 devnull n = loopcnt;
108 84114f06 2004-04-19 devnull dprint("%s: running\n", symfil);
109 84114f06 2004-04-19 devnull flush();
110 84114f06 2004-04-19 devnull for (loopcnt = 1; n > 0; loopcnt = 1) {
111 84114f06 2004-04-19 devnull r = runpcs(SINGLE, keepnote);
112 84114f06 2004-04-19 devnull if(pc2line(dot, &curr) < 0)
113 84114f06 2004-04-19 devnull error("%r");
114 84114f06 2004-04-19 devnull if (line != curr) { /* on a new line of c */
115 84114f06 2004-04-19 devnull line = curr;
119 84114f06 2004-04-19 devnull loopcnt = 0;
121 84114f06 2004-04-19 devnull /* continue with optional note */
122 84114f06 2004-04-19 devnull case 'c':
123 84114f06 2004-04-19 devnull case 'C':
124 84114f06 2004-04-19 devnull if (pid==0)
125 84114f06 2004-04-19 devnull error(NOPCS);
126 84114f06 2004-04-19 devnull runmode=CONTIN;
127 84114f06 2004-04-19 devnull keepnote=defval(1);
130 84114f06 2004-04-19 devnull case 'n': /* deal with notes */
131 84114f06 2004-04-19 devnull if (pid==0)
132 84114f06 2004-04-19 devnull error(NOPCS);
133 84114f06 2004-04-19 devnull n=defval(-1);
134 84114f06 2004-04-19 devnull if(n>=0 && n<nnote){
135 84114f06 2004-04-19 devnull nnote--;
136 84114f06 2004-04-19 devnull memmove(note[n], note[n+1], (nnote-n)*sizeof(note[0]));
138 84114f06 2004-04-19 devnull notes();
141 84114f06 2004-04-19 devnull case 'h': /* halt the current process */
142 84114f06 2004-04-19 devnull if (adrflg && adrval == 0) {
143 84114f06 2004-04-19 devnull if (pid == 0)
144 84114f06 2004-04-19 devnull error(NOPCS);
145 84114f06 2004-04-19 devnull ungrab();
149 84114f06 2004-04-19 devnull dprint("stopped at%16t");
150 84114f06 2004-04-19 devnull goto Return;
154 84114f06 2004-04-19 devnull case 'x': /* continue executing the current process */
155 84114f06 2004-04-19 devnull if (pid == 0)
156 84114f06 2004-04-19 devnull error(NOPCS);
157 84114f06 2004-04-19 devnull ungrab();
160 84114f06 2004-04-19 devnull default:
161 84114f06 2004-04-19 devnull error("bad `:' command");
164 84114f06 2004-04-19 devnull if (loopcnt>0) {
165 84114f06 2004-04-19 devnull dprint("%s: running\n", symfil);
166 84114f06 2004-04-19 devnull flush();
167 84114f06 2004-04-19 devnull r = runpcs(runmode,keepnote);
170 84114f06 2004-04-19 devnull dprint("breakpoint%16t");
172 84114f06 2004-04-19 devnull dprint("stopped at%16t");
174 84114f06 2004-04-19 devnull delbp();
175 84114f06 2004-04-19 devnull printpc();
176 84114f06 2004-04-19 devnull notes();