3 84114f06 2004-04-19 devnull * debugger
6 84114f06 2004-04-19 devnull #include "defs.h"
7 84114f06 2004-04-19 devnull #include "fns.h"
9 a0f1e21f 2004-04-20 devnull #define ptrace dbptrace
11 84114f06 2004-04-19 devnull extern int infile;
12 84114f06 2004-04-19 devnull extern int outfile;
13 84114f06 2004-04-19 devnull extern int maxpos;
15 84114f06 2004-04-19 devnull /* general printing routines ($) */
17 84114f06 2004-04-19 devnull char *Ipath = INCDIR;
18 84114f06 2004-04-19 devnull static int tracetype;
19 84114f06 2004-04-19 devnull static void printfp(Map*, int);
22 84114f06 2004-04-19 devnull * callback on stack trace
24 84114f06 2004-04-19 devnull static int
25 84114f06 2004-04-19 devnull ptrace(Map *map, Regs *regs, ulong pc, ulong nextpc, Symbol *sym, int depth)
27 84114f06 2004-04-19 devnull char buf[512];
29 84114f06 2004-04-19 devnull USED(map);
31 84114f06 2004-04-19 devnull dprint("%s(", sym->name);
32 84114f06 2004-04-19 devnull printparams(sym, regs);
33 84114f06 2004-04-19 devnull dprint(") ");
35 84114f06 2004-04-19 devnull dprint("%#lux ", pc);
36 84114f06 2004-04-19 devnull printsource(pc);
38 84114f06 2004-04-19 devnull dprint(" called from ");
39 84114f06 2004-04-19 devnull symoff(buf, 512, nextpc, CTEXT);
40 84114f06 2004-04-19 devnull dprint("%s ", buf);
41 84114f06 2004-04-19 devnull /* printsource(nextpc); */
42 84114f06 2004-04-19 devnull dprint("\n");
43 84114f06 2004-04-19 devnull if(tracetype == 'C' && sym)
44 84114f06 2004-04-19 devnull printlocals(sym, regs);
45 84114f06 2004-04-19 devnull return depth<40;
48 84114f06 2004-04-19 devnull static ulong *adrregvals;
50 84114f06 2004-04-19 devnull static int
51 84114f06 2004-04-19 devnull adrrw(Regs *regs, char *name, ulong *val, int isr)
55 84114f06 2004-04-19 devnull if((i = windindex(name)) == -1)
56 84114f06 2004-04-19 devnull return correg->rw(correg, name, val, isr);
58 84114f06 2004-04-19 devnull *val = adrregvals[i];
59 84114f06 2004-04-19 devnull return 0;
61 84114f06 2004-04-19 devnull werrstr("saved registers are immutable");
62 84114f06 2004-04-19 devnull return -1;
66 84114f06 2004-04-19 devnull adrregs(void)
69 84114f06 2004-04-19 devnull static Regs r;
70 84114f06 2004-04-19 devnull static u32int x;
72 84114f06 2004-04-19 devnull if(adrregvals== nil){
73 84114f06 2004-04-19 devnull adrregvals = malloc(mach->nwindreg*sizeof(adrregvals[0]));
74 84114f06 2004-04-19 devnull if(adrregvals == nil)
75 84114f06 2004-04-19 devnull error("%r");
77 84114f06 2004-04-19 devnull for(i=0; i<mach->nwindreg; i++){
78 84114f06 2004-04-19 devnull if(get4(cormap, adrval+4*i, &x) < 0)
79 84114f06 2004-04-19 devnull error("%r");
80 84114f06 2004-04-19 devnull adrregvals[i] = x;
82 84114f06 2004-04-19 devnull r.rw = adrrw;
83 84114f06 2004-04-19 devnull return &r;
87 84114f06 2004-04-19 devnull printdollar(int modif)
90 84114f06 2004-04-19 devnull u32int u4;
91 84114f06 2004-04-19 devnull BKPT *bk;
92 84114f06 2004-04-19 devnull Symbol s;
93 84114f06 2004-04-19 devnull int stack;
94 84114f06 2004-04-19 devnull char *fname;
95 84114f06 2004-04-19 devnull char buf[512];
98 84114f06 2004-04-19 devnull if (cntflg==0)
99 84114f06 2004-04-19 devnull cntval = -1;
100 84114f06 2004-04-19 devnull switch (modif) {
102 84114f06 2004-04-19 devnull case '<':
103 84114f06 2004-04-19 devnull if (cntval == 0) {
104 84114f06 2004-04-19 devnull while (readchar() != EOR)
106 84114f06 2004-04-19 devnull reread();
109 84114f06 2004-04-19 devnull if (rdc() == '<')
110 84114f06 2004-04-19 devnull stack = 1;
112 84114f06 2004-04-19 devnull stack = 0;
113 84114f06 2004-04-19 devnull reread();
115 84114f06 2004-04-19 devnull fname = getfname();
116 84114f06 2004-04-19 devnull redirin(stack, fname);
119 84114f06 2004-04-19 devnull case '>':
120 84114f06 2004-04-19 devnull fname = getfname();
121 84114f06 2004-04-19 devnull redirout(fname);
124 84114f06 2004-04-19 devnull case 'a':
125 84114f06 2004-04-19 devnull attachprocess();
128 b030a6c3 2005-01-23 devnull /* maybe use this for lwpids?
129 b030a6c3 2005-01-23 devnull case 'A':
130 b030a6c3 2005-01-23 devnull attachpthread();
133 84114f06 2004-04-19 devnull case 'k':
134 84114f06 2004-04-19 devnull kmsys();
137 84114f06 2004-04-19 devnull case 'q':
138 84114f06 2004-04-19 devnull case 'Q':
141 84114f06 2004-04-19 devnull case 'w':
142 84114f06 2004-04-19 devnull maxpos=(adrflg?adrval:MAXPOS);
145 84114f06 2004-04-19 devnull case 'S':
146 84114f06 2004-04-19 devnull printsym();
149 84114f06 2004-04-19 devnull case 's':
150 84114f06 2004-04-19 devnull maxoff=(adrflg?adrval:MAXOFF);
153 84114f06 2004-04-19 devnull case 'm':
154 84114f06 2004-04-19 devnull printmap("? map", symmap);
155 84114f06 2004-04-19 devnull printmap("/ map", cormap);
159 84114f06 2004-04-19 devnull case '?':
160 84114f06 2004-04-19 devnull if (pid)
161 84114f06 2004-04-19 devnull dprint("pid = %d\n",pid);
163 84114f06 2004-04-19 devnull prints("no process\n");
164 84114f06 2004-04-19 devnull flushbuf();
166 84114f06 2004-04-19 devnull case 'r':
167 84114f06 2004-04-19 devnull case 'R':
168 84114f06 2004-04-19 devnull printregs(modif);
171 84114f06 2004-04-19 devnull case 'f':
172 84114f06 2004-04-19 devnull case 'F':
173 84114f06 2004-04-19 devnull printfp(cormap, modif);
176 84114f06 2004-04-19 devnull case 'c':
177 84114f06 2004-04-19 devnull case 'C':
178 84114f06 2004-04-19 devnull tracetype = modif;
179 84114f06 2004-04-19 devnull if (adrflg)
180 84114f06 2004-04-19 devnull r = adrregs();
182 84114f06 2004-04-19 devnull r = correg;
183 84114f06 2004-04-19 devnull if(stacktrace(cormap, correg, ptrace) <= 0)
184 84114f06 2004-04-19 devnull error("no stack frame");
187 84114f06 2004-04-19 devnull /*print externals*/
188 84114f06 2004-04-19 devnull case 'e':
189 84114f06 2004-04-19 devnull for (i = 0; indexsym(i, &s)>=0; i++) {
190 84114f06 2004-04-19 devnull if (s.class==CDATA)
191 84114f06 2004-04-19 devnull if (s.loc.type==LADDR)
192 84114f06 2004-04-19 devnull if (get4(cormap, s.loc.addr, &u4) > 0)
193 84114f06 2004-04-19 devnull dprint("%s/%12t%#lux\n", s.name, (ulong)u4);
197 84114f06 2004-04-19 devnull /*print breakpoints*/
198 84114f06 2004-04-19 devnull case 'b':
199 84114f06 2004-04-19 devnull case 'B':
200 84114f06 2004-04-19 devnull for (bk=bkpthead; bk; bk=bk->nxtbkpt)
201 84114f06 2004-04-19 devnull if (bk->flag) {
202 84114f06 2004-04-19 devnull symoff(buf, 512, (WORD)bk->loc, CTEXT);
203 84114f06 2004-04-19 devnull dprint(buf);
204 84114f06 2004-04-19 devnull if (bk->count != 1)
205 84114f06 2004-04-19 devnull dprint(",%d", bk->count);
206 84114f06 2004-04-19 devnull dprint(":%c %s", bk->flag == BKPTTMP ? 'B' : 'b', bk->comm);
210 84114f06 2004-04-19 devnull case 'M':
211 84114f06 2004-04-19 devnull fname = getfname();
212 84114f06 2004-04-19 devnull if (machbyname(fname) == 0)
213 84114f06 2004-04-19 devnull dprint("unknown name\n");;
215 84114f06 2004-04-19 devnull default:
216 84114f06 2004-04-19 devnull error("bad `$' command");
222 84114f06 2004-04-19 devnull getfname(void)
224 84114f06 2004-04-19 devnull static char fname[ARB];
225 84114f06 2004-04-19 devnull char *p;
227 84114f06 2004-04-19 devnull if (rdc() == EOR) {
228 84114f06 2004-04-19 devnull reread();
229 84114f06 2004-04-19 devnull return (0);
231 84114f06 2004-04-19 devnull p = fname;
233 84114f06 2004-04-19 devnull *p++ = lastc;
234 84114f06 2004-04-19 devnull if (p >= &fname[ARB-1])
235 84114f06 2004-04-19 devnull error("filename too long");
236 84114f06 2004-04-19 devnull } while (rdc() != EOR);
238 84114f06 2004-04-19 devnull reread();
239 84114f06 2004-04-19 devnull return (fname);
242 84114f06 2004-04-19 devnull static void
243 84114f06 2004-04-19 devnull printfp(Map *map, int modif)
245 84114f06 2004-04-19 devnull Regdesc *rp;
247 84114f06 2004-04-19 devnull int ret;
248 84114f06 2004-04-19 devnull char buf[512];
250 84114f06 2004-04-19 devnull for (i = 0, rp = mach->reglist; rp->name; rp += ret) {
251 84114f06 2004-04-19 devnull ret = 1;
252 84114f06 2004-04-19 devnull if (!(rp->flags&RFLT))
253 84114f06 2004-04-19 devnull continue;
254 84114f06 2004-04-19 devnull ret = fpformat(map, rp, buf, sizeof(buf), modif);
255 84114f06 2004-04-19 devnull if (ret < 0) {
256 84114f06 2004-04-19 devnull werrstr("Register %s: %r", rp->name);
257 84114f06 2004-04-19 devnull error("%r");
259 84114f06 2004-04-19 devnull /* double column print */
260 84114f06 2004-04-19 devnull if (i&0x01)
261 84114f06 2004-04-19 devnull dprint("%40t%-8s%-12s\n", rp->name, buf);
263 84114f06 2004-04-19 devnull dprint("\t%-8s%-12s", rp->name, buf);
269 84114f06 2004-04-19 devnull redirin(int stack, char *file)
271 84114f06 2004-04-19 devnull char pfile[ARB];
273 84114f06 2004-04-19 devnull if (file == 0) {
274 84114f06 2004-04-19 devnull iclose(-1, 0);
277 84114f06 2004-04-19 devnull iclose(stack, 0);
278 84114f06 2004-04-19 devnull if ((infile = open(file, 0)) < 0) {
279 84114f06 2004-04-19 devnull strcpy(pfile, Ipath);
280 84114f06 2004-04-19 devnull strcat(pfile, "/");
281 84114f06 2004-04-19 devnull strcat(pfile, file);
282 84114f06 2004-04-19 devnull if ((infile = open(pfile, 0)) < 0) {
283 84114f06 2004-04-19 devnull infile = STDIN;
284 84114f06 2004-04-19 devnull error("cannot open");
290 84114f06 2004-04-19 devnull printmap(char *s, Map *map)
294 84114f06 2004-04-19 devnull if (!map)
296 84114f06 2004-04-19 devnull if (map == symmap)
297 84114f06 2004-04-19 devnull dprint("%s%12t`%s'\n", s, symfil==nil ? "-" : symfil);
298 84114f06 2004-04-19 devnull else if (map == cormap)
299 84114f06 2004-04-19 devnull dprint("%s%12t`%s'\n", s, corfil==nil ? "-" : corfil);
301 84114f06 2004-04-19 devnull dprint("%s\n", s);
302 84114f06 2004-04-19 devnull for (i = 0; i < map->nseg; i++) {
303 84114f06 2004-04-19 devnull dprint("%s%8t%-16#lux %-16#lux %-16#lux %s\n", map->seg[i].name,
304 84114f06 2004-04-19 devnull map->seg[i].base, map->seg[i].base+map->seg[i].size, map->seg[i].offset,
305 84114f06 2004-04-19 devnull map->seg[i].file ? map->seg[i].file : "");
310 84114f06 2004-04-19 devnull * dump the raw symbol table
313 84114f06 2004-04-19 devnull printsym(void)
316 84114f06 2004-04-19 devnull Symbol *sp, s;
318 84114f06 2004-04-19 devnull for (i=0; indexsym(i, &s)>=0; i++){
319 84114f06 2004-04-19 devnull sp = &s;
320 84114f06 2004-04-19 devnull switch(sp->type) {
321 84114f06 2004-04-19 devnull case 't':
322 84114f06 2004-04-19 devnull case 'l':
323 84114f06 2004-04-19 devnull dprint("%8#lux t %s\n", sp->loc.addr, sp->name);
325 84114f06 2004-04-19 devnull case 'T':
326 84114f06 2004-04-19 devnull case 'L':
327 84114f06 2004-04-19 devnull dprint("%8#lux T %s\n", sp->loc.addr, sp->name);
329 84114f06 2004-04-19 devnull case 'D':
330 84114f06 2004-04-19 devnull case 'd':
331 84114f06 2004-04-19 devnull case 'B':
332 84114f06 2004-04-19 devnull case 'b':
333 84114f06 2004-04-19 devnull case 'a':
334 84114f06 2004-04-19 devnull case 'p':
335 84114f06 2004-04-19 devnull case 'm':
336 84114f06 2004-04-19 devnull dprint("%8#lux %c %s\n", sp->loc.addr, sp->type, sp->name);
338 84114f06 2004-04-19 devnull default:
344 84114f06 2004-04-19 devnull #define STRINGSZ 128
347 84114f06 2004-04-19 devnull * print the value of dot as file:line
350 84114f06 2004-04-19 devnull printsource(long dot)
352 84114f06 2004-04-19 devnull char str[STRINGSZ];
354 84114f06 2004-04-19 devnull if (fileline(dot, str, STRINGSZ) >= 0)
355 84114f06 2004-04-19 devnull dprint("%s", str);
359 84114f06 2004-04-19 devnull printpc(void)
361 84114f06 2004-04-19 devnull char buf[512];
362 84114f06 2004-04-19 devnull ulong u;
364 84114f06 2004-04-19 devnull if(rget(correg, mach->pc, &u) < 0)
365 84114f06 2004-04-19 devnull error("%r");
366 84114f06 2004-04-19 devnull dot = u;
367 84114f06 2004-04-19 devnull if(dot){
368 84114f06 2004-04-19 devnull printsource((long)dot);
369 84114f06 2004-04-19 devnull printc(' ');
370 84114f06 2004-04-19 devnull symoff(buf, sizeof(buf), (long)dot, CTEXT);
371 84114f06 2004-04-19 devnull dprint("%s/", buf);
372 84114f06 2004-04-19 devnull if (mach->das(cormap, dot, 'i', buf, sizeof(buf)) < 0)
373 84114f06 2004-04-19 devnull error("%r");
374 84114f06 2004-04-19 devnull dprint("%16t%s\n", buf);
379 84114f06 2004-04-19 devnull printlocals(Symbol *fn, Regs *regs)
382 84114f06 2004-04-19 devnull u32int v;
383 84114f06 2004-04-19 devnull Symbol s;
385 84114f06 2004-04-19 devnull for (i = 0; indexlsym(fn, i, &s)>=0; i++) {
386 84114f06 2004-04-19 devnull if (s.class != CAUTO)
387 84114f06 2004-04-19 devnull continue;
388 266f8e12 2005-01-07 devnull if(lget4(cormap, regs, s.loc, &v) >= 0)
389 84114f06 2004-04-19 devnull dprint("%8t%s.%s/%10t%#lux\n", fn->name, s.name, v);
391 84114f06 2004-04-19 devnull dprint("%8t%s.%s/%10t?\n", fn->name, s.name);
396 84114f06 2004-04-19 devnull printparams(Symbol *fn, Regs *regs)
399 84114f06 2004-04-19 devnull Symbol s;
400 84114f06 2004-04-19 devnull u32int v;
401 84114f06 2004-04-19 devnull int first = 0;
403 84114f06 2004-04-19 devnull for (i = 0; indexlsym(fn, i, &s)>=0; i++) {
404 84114f06 2004-04-19 devnull if (s.class != CPARAM)
405 84114f06 2004-04-19 devnull continue;
406 84114f06 2004-04-19 devnull if (first++)
407 84114f06 2004-04-19 devnull dprint(", ");
408 266f8e12 2005-01-07 devnull if(lget4(cormap, regs, s.loc, &v) >= 0)
409 84114f06 2004-04-19 devnull dprint("%s=%#lux", s.name, v);
411 84114f06 2004-04-19 devnull dprint("%s=?", s.name);