1 84114f06 2004-04-19 devnull /*
  2 84114f06 2004-04-19 devnull  *
  3 84114f06 2004-04-19 devnull  *	debugger
  4 84114f06 2004-04-19 devnull  *
  5 84114f06 2004-04-19 devnull  */
  6 84114f06 2004-04-19 devnull #include "defs.h"
  7 84114f06 2004-04-19 devnull #include "fns.h"
  8 a0f1e21f 2004-04-20 devnull 
  9 a0f1e21f 2004-04-20 devnull #define ptrace dbptrace
 10 84114f06 2004-04-19 devnull 
 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;
 14 84114f06 2004-04-19 devnull 
 15 84114f06 2004-04-19 devnull /* general printing routines ($) */
 16 84114f06 2004-04-19 devnull 
 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);
 20 84114f06 2004-04-19 devnull 
 21 84114f06 2004-04-19 devnull /*
 22 84114f06 2004-04-19 devnull  *	callback on stack trace
 23 84114f06 2004-04-19 devnull  */
 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)
 26 84114f06 2004-04-19 devnull {
 27 84114f06 2004-04-19 devnull 	char buf[512];
 28 84114f06 2004-04-19 devnull 
 29 84114f06 2004-04-19 devnull 	USED(map);
 30 84114f06 2004-04-19 devnull 	if(sym){
 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(") ");
 34 84114f06 2004-04-19 devnull 	}else
 35 84114f06 2004-04-19 devnull 		dprint("%#lux ", pc);
 36 84114f06 2004-04-19 devnull 	printsource(pc);
 37 84114f06 2004-04-19 devnull 
 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;
 46 84114f06 2004-04-19 devnull }
 47 84114f06 2004-04-19 devnull 
 48 84114f06 2004-04-19 devnull static ulong *adrregvals;
 49 84114f06 2004-04-19 devnull 
 50 84114f06 2004-04-19 devnull static int
 51 84114f06 2004-04-19 devnull adrrw(Regs *regs, char *name, ulong *val, int isr)
 52 84114f06 2004-04-19 devnull {
 53 84114f06 2004-04-19 devnull 	int i;
 54 84114f06 2004-04-19 devnull 
 55 84114f06 2004-04-19 devnull 	if((i = windindex(name)) == -1)
 56 84114f06 2004-04-19 devnull 		return correg->rw(correg, name, val, isr);
 57 84114f06 2004-04-19 devnull 	if(isr){
 58 84114f06 2004-04-19 devnull 		*val = adrregvals[i];
 59 84114f06 2004-04-19 devnull 		return 0;
 60 84114f06 2004-04-19 devnull 	}
 61 84114f06 2004-04-19 devnull 	werrstr("saved registers are immutable");
 62 84114f06 2004-04-19 devnull 	return -1;
 63 84114f06 2004-04-19 devnull }
 64 84114f06 2004-04-19 devnull 
 65 84114f06 2004-04-19 devnull Regs*
 66 84114f06 2004-04-19 devnull adrregs(void)
 67 84114f06 2004-04-19 devnull {
 68 84114f06 2004-04-19 devnull 	int i;
 69 84114f06 2004-04-19 devnull 	static Regs r;
 70 84114f06 2004-04-19 devnull 	static u32int x;
 71 84114f06 2004-04-19 devnull 
 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");
 76 84114f06 2004-04-19 devnull 	}
 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;
 81 84114f06 2004-04-19 devnull 	}
 82 84114f06 2004-04-19 devnull 	r.rw = adrrw;
 83 84114f06 2004-04-19 devnull 	return &r;
 84 84114f06 2004-04-19 devnull }
 85 84114f06 2004-04-19 devnull 
 86 84114f06 2004-04-19 devnull void
 87 84114f06 2004-04-19 devnull printdollar(int modif)
 88 84114f06 2004-04-19 devnull {
 89 84114f06 2004-04-19 devnull 	int	i;
 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];
 96 84114f06 2004-04-19 devnull 	Regs *r;
 97 84114f06 2004-04-19 devnull 
 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) {
101 84114f06 2004-04-19 devnull 
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)
105 84114f06 2004-04-19 devnull 				;
106 84114f06 2004-04-19 devnull 			reread();
107 84114f06 2004-04-19 devnull 			break;
108 84114f06 2004-04-19 devnull 		}
109 84114f06 2004-04-19 devnull 		if (rdc() == '<')
110 84114f06 2004-04-19 devnull 			stack = 1;
111 84114f06 2004-04-19 devnull 		else {
112 84114f06 2004-04-19 devnull 			stack = 0;
113 84114f06 2004-04-19 devnull 			reread();
114 84114f06 2004-04-19 devnull 		}
115 84114f06 2004-04-19 devnull 		fname = getfname();
116 84114f06 2004-04-19 devnull 		redirin(stack, fname);
117 84114f06 2004-04-19 devnull 		break;
118 84114f06 2004-04-19 devnull 
119 84114f06 2004-04-19 devnull 	case '>':
120 84114f06 2004-04-19 devnull 		fname = getfname();
121 84114f06 2004-04-19 devnull 		redirout(fname);
122 84114f06 2004-04-19 devnull 		break;
123 84114f06 2004-04-19 devnull 
124 84114f06 2004-04-19 devnull 	case 'a':
125 84114f06 2004-04-19 devnull 		attachprocess();
126 84114f06 2004-04-19 devnull 		break;
127 84114f06 2004-04-19 devnull 
128 84114f06 2004-04-19 devnull 	case 'k':
129 84114f06 2004-04-19 devnull 		kmsys();
130 84114f06 2004-04-19 devnull 		break;
131 84114f06 2004-04-19 devnull 
132 84114f06 2004-04-19 devnull 	case 'q':
133 84114f06 2004-04-19 devnull 	case 'Q':
134 84114f06 2004-04-19 devnull 		done();
135 84114f06 2004-04-19 devnull 
136 84114f06 2004-04-19 devnull 	case 'w':
137 84114f06 2004-04-19 devnull 		maxpos=(adrflg?adrval:MAXPOS);
138 84114f06 2004-04-19 devnull 		break;
139 84114f06 2004-04-19 devnull 
140 84114f06 2004-04-19 devnull 	case 'S':
141 84114f06 2004-04-19 devnull 		printsym();
142 84114f06 2004-04-19 devnull 		break;
143 84114f06 2004-04-19 devnull 
144 84114f06 2004-04-19 devnull 	case 's':
145 84114f06 2004-04-19 devnull 		maxoff=(adrflg?adrval:MAXOFF);
146 84114f06 2004-04-19 devnull 		break;
147 84114f06 2004-04-19 devnull 
148 84114f06 2004-04-19 devnull 	case 'm':
149 84114f06 2004-04-19 devnull 		printmap("? map", symmap);
150 84114f06 2004-04-19 devnull 		printmap("/ map", cormap);
151 84114f06 2004-04-19 devnull 		break;
152 84114f06 2004-04-19 devnull 
153 84114f06 2004-04-19 devnull 	case 0:
154 84114f06 2004-04-19 devnull 	case '?':
155 84114f06 2004-04-19 devnull 		if (pid)
156 84114f06 2004-04-19 devnull 			dprint("pid = %d\n",pid);
157 84114f06 2004-04-19 devnull 		else
158 84114f06 2004-04-19 devnull 			prints("no process\n");
159 84114f06 2004-04-19 devnull 		flushbuf();
160 84114f06 2004-04-19 devnull 
161 84114f06 2004-04-19 devnull 	case 'r':
162 84114f06 2004-04-19 devnull 	case 'R':
163 84114f06 2004-04-19 devnull 		printregs(modif);
164 84114f06 2004-04-19 devnull 		return;
165 84114f06 2004-04-19 devnull 
166 84114f06 2004-04-19 devnull 	case 'f':
167 84114f06 2004-04-19 devnull 	case 'F':
168 84114f06 2004-04-19 devnull 		printfp(cormap, modif);
169 84114f06 2004-04-19 devnull 		return;
170 84114f06 2004-04-19 devnull 
171 84114f06 2004-04-19 devnull 	case 'c':
172 84114f06 2004-04-19 devnull 	case 'C':
173 84114f06 2004-04-19 devnull 		tracetype = modif;
174 84114f06 2004-04-19 devnull 		if (adrflg)
175 84114f06 2004-04-19 devnull 			r = adrregs();
176 84114f06 2004-04-19 devnull 		else
177 84114f06 2004-04-19 devnull 			r = correg;
178 84114f06 2004-04-19 devnull 		if(stacktrace(cormap, correg, ptrace) <= 0)
179 84114f06 2004-04-19 devnull 			error("no stack frame");
180 84114f06 2004-04-19 devnull 		break;
181 84114f06 2004-04-19 devnull 
182 84114f06 2004-04-19 devnull 		/*print externals*/
183 84114f06 2004-04-19 devnull 	case 'e':
184 84114f06 2004-04-19 devnull 		for (i = 0; indexsym(i, &s)>=0; i++) {
185 84114f06 2004-04-19 devnull 			if (s.class==CDATA)
186 84114f06 2004-04-19 devnull 			if (s.loc.type==LADDR)
187 84114f06 2004-04-19 devnull 			if (get4(cormap, s.loc.addr, &u4) > 0)
188 84114f06 2004-04-19 devnull 				dprint("%s/%12t%#lux\n", s.name, (ulong)u4);
189 84114f06 2004-04-19 devnull 		}
190 84114f06 2004-04-19 devnull 		break;
191 84114f06 2004-04-19 devnull 
192 84114f06 2004-04-19 devnull 		/*print breakpoints*/
193 84114f06 2004-04-19 devnull 	case 'b':
194 84114f06 2004-04-19 devnull 	case 'B':
195 84114f06 2004-04-19 devnull 		for (bk=bkpthead; bk; bk=bk->nxtbkpt)
196 84114f06 2004-04-19 devnull 			if (bk->flag) {
197 84114f06 2004-04-19 devnull 				symoff(buf, 512, (WORD)bk->loc, CTEXT);
198 84114f06 2004-04-19 devnull 				dprint(buf);
199 84114f06 2004-04-19 devnull 				if (bk->count != 1)
200 84114f06 2004-04-19 devnull 					dprint(",%d", bk->count);
201 84114f06 2004-04-19 devnull 				dprint(":%c %s", bk->flag == BKPTTMP ? 'B' : 'b', bk->comm);
202 84114f06 2004-04-19 devnull 			}
203 84114f06 2004-04-19 devnull 		break;
204 84114f06 2004-04-19 devnull 
205 84114f06 2004-04-19 devnull 	case 'M':
206 84114f06 2004-04-19 devnull 		fname = getfname();
207 84114f06 2004-04-19 devnull 		if (machbyname(fname) == 0)
208 84114f06 2004-04-19 devnull 			dprint("unknown name\n");;
209 84114f06 2004-04-19 devnull 		break;
210 84114f06 2004-04-19 devnull 	default:
211 84114f06 2004-04-19 devnull 		error("bad `$' command");
212 84114f06 2004-04-19 devnull 	}
213 84114f06 2004-04-19 devnull 
214 84114f06 2004-04-19 devnull }
215 84114f06 2004-04-19 devnull 
216 84114f06 2004-04-19 devnull char *
217 84114f06 2004-04-19 devnull getfname(void)
218 84114f06 2004-04-19 devnull {
219 84114f06 2004-04-19 devnull 	static char fname[ARB];
220 84114f06 2004-04-19 devnull 	char *p;
221 84114f06 2004-04-19 devnull 
222 84114f06 2004-04-19 devnull 	if (rdc() == EOR) {
223 84114f06 2004-04-19 devnull 		reread();
224 84114f06 2004-04-19 devnull 		return (0);
225 84114f06 2004-04-19 devnull 	}
226 84114f06 2004-04-19 devnull 	p = fname;
227 84114f06 2004-04-19 devnull 	do {
228 84114f06 2004-04-19 devnull 		*p++ = lastc;
229 84114f06 2004-04-19 devnull 		if (p >= &fname[ARB-1])
230 84114f06 2004-04-19 devnull 			error("filename too long");
231 84114f06 2004-04-19 devnull 	} while (rdc() != EOR);
232 84114f06 2004-04-19 devnull 	*p = 0;
233 84114f06 2004-04-19 devnull 	reread();
234 84114f06 2004-04-19 devnull 	return (fname);
235 84114f06 2004-04-19 devnull }
236 84114f06 2004-04-19 devnull 
237 84114f06 2004-04-19 devnull static void
238 84114f06 2004-04-19 devnull printfp(Map *map, int modif)
239 84114f06 2004-04-19 devnull {
240 84114f06 2004-04-19 devnull 	Regdesc *rp;
241 84114f06 2004-04-19 devnull 	int i;
242 84114f06 2004-04-19 devnull 	int ret;
243 84114f06 2004-04-19 devnull 	char buf[512];
244 84114f06 2004-04-19 devnull 
245 84114f06 2004-04-19 devnull 	for (i = 0, rp = mach->reglist; rp->name; rp += ret) {
246 84114f06 2004-04-19 devnull 		ret = 1;
247 84114f06 2004-04-19 devnull 		if (!(rp->flags&RFLT))
248 84114f06 2004-04-19 devnull 			continue;
249 84114f06 2004-04-19 devnull 		ret = fpformat(map, rp, buf, sizeof(buf), modif);
250 84114f06 2004-04-19 devnull 		if (ret < 0) {
251 84114f06 2004-04-19 devnull 			werrstr("Register %s: %r", rp->name);
252 84114f06 2004-04-19 devnull 			error("%r");
253 84114f06 2004-04-19 devnull 		}
254 84114f06 2004-04-19 devnull 			/* double column print */
255 84114f06 2004-04-19 devnull 		if (i&0x01)
256 84114f06 2004-04-19 devnull 			dprint("%40t%-8s%-12s\n", rp->name, buf);
257 84114f06 2004-04-19 devnull 		else
258 84114f06 2004-04-19 devnull 			dprint("\t%-8s%-12s", rp->name, buf);
259 84114f06 2004-04-19 devnull 		i++;
260 84114f06 2004-04-19 devnull 	}
261 84114f06 2004-04-19 devnull }
262 84114f06 2004-04-19 devnull 
263 84114f06 2004-04-19 devnull void
264 84114f06 2004-04-19 devnull redirin(int stack, char *file)
265 84114f06 2004-04-19 devnull {
266 84114f06 2004-04-19 devnull 	char pfile[ARB];
267 84114f06 2004-04-19 devnull 
268 84114f06 2004-04-19 devnull 	if (file == 0) {
269 84114f06 2004-04-19 devnull 		iclose(-1, 0);
270 84114f06 2004-04-19 devnull 		return;
271 84114f06 2004-04-19 devnull 	}
272 84114f06 2004-04-19 devnull 	iclose(stack, 0);
273 84114f06 2004-04-19 devnull 	if ((infile = open(file, 0)) < 0) {
274 84114f06 2004-04-19 devnull 		strcpy(pfile, Ipath);
275 84114f06 2004-04-19 devnull 		strcat(pfile, "/");
276 84114f06 2004-04-19 devnull 		strcat(pfile, file);
277 84114f06 2004-04-19 devnull 		if ((infile = open(pfile, 0)) < 0) {
278 84114f06 2004-04-19 devnull 			infile = STDIN;
279 84114f06 2004-04-19 devnull 			error("cannot open");
280 84114f06 2004-04-19 devnull 		}
281 84114f06 2004-04-19 devnull 	}
282 84114f06 2004-04-19 devnull }
283 84114f06 2004-04-19 devnull 
284 84114f06 2004-04-19 devnull void
285 84114f06 2004-04-19 devnull printmap(char *s, Map *map)
286 84114f06 2004-04-19 devnull {
287 84114f06 2004-04-19 devnull 	int i;
288 84114f06 2004-04-19 devnull 
289 84114f06 2004-04-19 devnull 	if (!map)
290 84114f06 2004-04-19 devnull 		return;
291 84114f06 2004-04-19 devnull 	if (map == symmap)
292 84114f06 2004-04-19 devnull 		dprint("%s%12t`%s'\n", s, symfil==nil ? "-" : symfil);
293 84114f06 2004-04-19 devnull 	else if (map == cormap)
294 84114f06 2004-04-19 devnull 		dprint("%s%12t`%s'\n", s, corfil==nil ? "-" : corfil);
295 84114f06 2004-04-19 devnull 	else
296 84114f06 2004-04-19 devnull 		dprint("%s\n", s);
297 84114f06 2004-04-19 devnull 	for (i = 0; i < map->nseg; i++) {
298 84114f06 2004-04-19 devnull 		dprint("%s%8t%-16#lux %-16#lux %-16#lux %s\n", map->seg[i].name,
299 84114f06 2004-04-19 devnull 			map->seg[i].base, map->seg[i].base+map->seg[i].size, map->seg[i].offset,
300 84114f06 2004-04-19 devnull 			map->seg[i].file ? map->seg[i].file : "");
301 84114f06 2004-04-19 devnull 	}
302 84114f06 2004-04-19 devnull }
303 84114f06 2004-04-19 devnull 
304 84114f06 2004-04-19 devnull /*
305 84114f06 2004-04-19 devnull  *	dump the raw symbol table
306 84114f06 2004-04-19 devnull  */
307 84114f06 2004-04-19 devnull void
308 84114f06 2004-04-19 devnull printsym(void)
309 84114f06 2004-04-19 devnull {
310 84114f06 2004-04-19 devnull 	int i;
311 84114f06 2004-04-19 devnull 	Symbol *sp, s;
312 84114f06 2004-04-19 devnull 
313 84114f06 2004-04-19 devnull 	for (i=0; indexsym(i, &s)>=0; i++){
314 84114f06 2004-04-19 devnull 		sp = &s;
315 84114f06 2004-04-19 devnull 		switch(sp->type) {
316 84114f06 2004-04-19 devnull 		case 't':
317 84114f06 2004-04-19 devnull 		case 'l':
318 84114f06 2004-04-19 devnull 			dprint("%8#lux t %s\n", sp->loc.addr, sp->name);
319 84114f06 2004-04-19 devnull 			break;
320 84114f06 2004-04-19 devnull 		case 'T':
321 84114f06 2004-04-19 devnull 		case 'L':
322 84114f06 2004-04-19 devnull 			dprint("%8#lux T %s\n", sp->loc.addr, sp->name);
323 84114f06 2004-04-19 devnull 			break;
324 84114f06 2004-04-19 devnull 		case 'D':
325 84114f06 2004-04-19 devnull 		case 'd':
326 84114f06 2004-04-19 devnull 		case 'B':
327 84114f06 2004-04-19 devnull 		case 'b':
328 84114f06 2004-04-19 devnull 		case 'a':
329 84114f06 2004-04-19 devnull 		case 'p':
330 84114f06 2004-04-19 devnull 		case 'm':
331 84114f06 2004-04-19 devnull 			dprint("%8#lux %c %s\n", sp->loc.addr, sp->type, sp->name);
332 84114f06 2004-04-19 devnull 			break;
333 84114f06 2004-04-19 devnull 		default:
334 84114f06 2004-04-19 devnull 			break;
335 84114f06 2004-04-19 devnull 		}
336 84114f06 2004-04-19 devnull 	}
337 84114f06 2004-04-19 devnull }
338 84114f06 2004-04-19 devnull 
339 84114f06 2004-04-19 devnull #define	STRINGSZ	128
340 84114f06 2004-04-19 devnull 
341 84114f06 2004-04-19 devnull /*
342 84114f06 2004-04-19 devnull  *	print the value of dot as file:line
343 84114f06 2004-04-19 devnull  */
344 84114f06 2004-04-19 devnull void
345 84114f06 2004-04-19 devnull printsource(long dot)
346 84114f06 2004-04-19 devnull {
347 84114f06 2004-04-19 devnull 	char str[STRINGSZ];
348 84114f06 2004-04-19 devnull 
349 84114f06 2004-04-19 devnull 	if (fileline(dot, str, STRINGSZ) >= 0)
350 84114f06 2004-04-19 devnull 		dprint("%s", str);
351 84114f06 2004-04-19 devnull }
352 84114f06 2004-04-19 devnull 
353 84114f06 2004-04-19 devnull void
354 84114f06 2004-04-19 devnull printpc(void)
355 84114f06 2004-04-19 devnull {
356 84114f06 2004-04-19 devnull 	char buf[512];
357 84114f06 2004-04-19 devnull 	ulong u;
358 84114f06 2004-04-19 devnull 
359 84114f06 2004-04-19 devnull 	if(rget(correg, mach->pc, &u) < 0)
360 84114f06 2004-04-19 devnull 		error("%r");
361 84114f06 2004-04-19 devnull 	dot = u;
362 84114f06 2004-04-19 devnull 	if(dot){
363 84114f06 2004-04-19 devnull 		printsource((long)dot);
364 84114f06 2004-04-19 devnull 		printc(' ');
365 84114f06 2004-04-19 devnull 		symoff(buf, sizeof(buf), (long)dot, CTEXT);
366 84114f06 2004-04-19 devnull 		dprint("%s/", buf);
367 84114f06 2004-04-19 devnull 		if (mach->das(cormap, dot, 'i', buf, sizeof(buf)) < 0)
368 84114f06 2004-04-19 devnull 			error("%r");
369 84114f06 2004-04-19 devnull 		dprint("%16t%s\n", buf);
370 84114f06 2004-04-19 devnull 	}
371 84114f06 2004-04-19 devnull }
372 84114f06 2004-04-19 devnull 
373 84114f06 2004-04-19 devnull void
374 84114f06 2004-04-19 devnull printlocals(Symbol *fn, Regs *regs)
375 84114f06 2004-04-19 devnull {
376 84114f06 2004-04-19 devnull 	int i;
377 84114f06 2004-04-19 devnull 	u32int v;
378 84114f06 2004-04-19 devnull 	Symbol s;
379 84114f06 2004-04-19 devnull 
380 84114f06 2004-04-19 devnull 	for (i = 0; indexlsym(fn, i, &s)>=0; i++) {
381 84114f06 2004-04-19 devnull 		if (s.class != CAUTO)
382 84114f06 2004-04-19 devnull 			continue;
383 84114f06 2004-04-19 devnull 		if(lget4(cormap, correg, s.loc, &v) >= 0)
384 84114f06 2004-04-19 devnull 			dprint("%8t%s.%s/%10t%#lux\n", fn->name, s.name, v);
385 84114f06 2004-04-19 devnull 		else
386 84114f06 2004-04-19 devnull 			dprint("%8t%s.%s/%10t?\n", fn->name, s.name);
387 84114f06 2004-04-19 devnull 	}
388 84114f06 2004-04-19 devnull }
389 84114f06 2004-04-19 devnull 
390 84114f06 2004-04-19 devnull void
391 84114f06 2004-04-19 devnull printparams(Symbol *fn, Regs *regs)
392 84114f06 2004-04-19 devnull {
393 84114f06 2004-04-19 devnull 	int i;
394 84114f06 2004-04-19 devnull 	Symbol s;
395 84114f06 2004-04-19 devnull 	u32int v;
396 84114f06 2004-04-19 devnull 	int first = 0;
397 84114f06 2004-04-19 devnull 
398 84114f06 2004-04-19 devnull 	for (i = 0; indexlsym(fn, i, &s)>=0; i++) {
399 84114f06 2004-04-19 devnull 		if (s.class != CPARAM)
400 84114f06 2004-04-19 devnull 			continue;
401 84114f06 2004-04-19 devnull 		if (first++)
402 84114f06 2004-04-19 devnull 			dprint(", ");
403 84114f06 2004-04-19 devnull 		if(lget4(cormap, correg, s.loc, &v) >= 0)
404 84114f06 2004-04-19 devnull 			dprint("%s=%#lux", s.name, v);
405 84114f06 2004-04-19 devnull 		else
406 84114f06 2004-04-19 devnull 			dprint("%s=?", s.name);
407 84114f06 2004-04-19 devnull 	}
408 84114f06 2004-04-19 devnull }