1 a84cbb2a 2004-04-19 devnull #include <u.h>
 2 a84cbb2a 2004-04-19 devnull #include <libc.h>
 3 a84cbb2a 2004-04-19 devnull #include <bio.h>
 4 a84cbb2a 2004-04-19 devnull #include <mach.h>
 5 a84cbb2a 2004-04-19 devnull 
 6 a84cbb2a 2004-04-19 devnull /*
 7 a84cbb2a 2004-04-19 devnull  * XXX could remove the rock by hiding it in a special regs.
 8 a84cbb2a 2004-04-19 devnull  * That would still be sleazy but would be thread-safe.
 9 a84cbb2a 2004-04-19 devnull  */
10 a84cbb2a 2004-04-19 devnull 
11 a84cbb2a 2004-04-19 devnull static struct {
12 a84cbb2a 2004-04-19 devnull 	int found;
13 a84cbb2a 2004-04-19 devnull 	int nframe;
14 a84cbb2a 2004-04-19 devnull 	Loc l;
15 a84cbb2a 2004-04-19 devnull 	char *fn;
16 a84cbb2a 2004-04-19 devnull 	char *var;
17 f21f37f2 2004-04-21 devnull 	char *reg;
18 a84cbb2a 2004-04-19 devnull } rock;
19 a84cbb2a 2004-04-19 devnull 
20 a84cbb2a 2004-04-19 devnull static int
21 443d6288 2012-02-19 rsc ltrace(Map *map, Regs *regs, u64int pc, u64int nextpc, Symbol *sym, int depth)
22 a84cbb2a 2004-04-19 devnull {
23 443d6288 2012-02-19 rsc 	u64int v;
24 a84cbb2a 2004-04-19 devnull 	Symbol s1;
25 a84cbb2a 2004-04-19 devnull 
26 a84cbb2a 2004-04-19 devnull 	USED(pc);
27 a84cbb2a 2004-04-19 devnull 	USED(nextpc);
28 a84cbb2a 2004-04-19 devnull 	USED(depth);
29 a84cbb2a 2004-04-19 devnull 
30 a84cbb2a 2004-04-19 devnull 	if(sym==nil || strcmp(sym->name, rock.fn) != 0)
31 a84cbb2a 2004-04-19 devnull 		return ++rock.nframe < 40;
32 f21f37f2 2004-04-21 devnull 	if(rock.reg){
33 f21f37f2 2004-04-21 devnull 		if(rget(regs, rock.reg, &v) < 0)
34 f21f37f2 2004-04-21 devnull 			return 0;
35 f21f37f2 2004-04-21 devnull 		rock.l = locconst(v);
36 f21f37f2 2004-04-21 devnull 		rock.found = 1;
37 f21f37f2 2004-04-21 devnull 		return 0;
38 f21f37f2 2004-04-21 devnull 	}
39 a84cbb2a 2004-04-19 devnull 	if(lookuplsym(sym, rock.var, &s1) < 0)
40 a84cbb2a 2004-04-19 devnull 		return 0;
41 a84cbb2a 2004-04-19 devnull 	if(locsimplify(map, regs, s1.loc, &rock.l) < 0)
42 a84cbb2a 2004-04-19 devnull 		return 0;
43 a84cbb2a 2004-04-19 devnull 	if(rock.l.type == LREG && rget(regs, rock.l.reg, &v) >= 0)
44 a84cbb2a 2004-04-19 devnull 		rock.l = locconst(v);
45 a84cbb2a 2004-04-19 devnull 	if(rock.l.type != LADDR && rock.l.type != LCONST)
46 a84cbb2a 2004-04-19 devnull 		return 0;
47 a84cbb2a 2004-04-19 devnull 	rock.found = 1;
48 a84cbb2a 2004-04-19 devnull 	return 0;
49 a84cbb2a 2004-04-19 devnull }
50 a84cbb2a 2004-04-19 devnull 
51 a84cbb2a 2004-04-19 devnull int
52 443d6288 2012-02-19 rsc localaddr(Map *map, Regs *regs, char *fn, char *var, u64int *val)
53 a84cbb2a 2004-04-19 devnull {
54 f21f37f2 2004-04-21 devnull 	Regdesc *rp;
55 f21f37f2 2004-04-21 devnull 
56 a84cbb2a 2004-04-19 devnull 	rock.found = 0;
57 a84cbb2a 2004-04-19 devnull 	rock.nframe = 0;
58 a84cbb2a 2004-04-19 devnull 	rock.fn = fn;
59 f21f37f2 2004-04-21 devnull 	rock.reg = nil;
60 f21f37f2 2004-04-21 devnull 	rock.var = nil;
61 f21f37f2 2004-04-21 devnull 	for(rp=mach->reglist; rp->name; rp++)
62 f21f37f2 2004-04-21 devnull 		if(strcmp(rp->name, var) == 0)
63 f21f37f2 2004-04-21 devnull 			rock.reg = rp->name;
64 f21f37f2 2004-04-21 devnull 	if(!rock.reg)
65 f21f37f2 2004-04-21 devnull 		rock.var = var;
66 a84cbb2a 2004-04-19 devnull 	stacktrace(map, regs, ltrace);
67 a84cbb2a 2004-04-19 devnull 	if(rock.found){
68 a84cbb2a 2004-04-19 devnull 		*val = rock.l.addr;
69 a84cbb2a 2004-04-19 devnull 		return 0;
70 a84cbb2a 2004-04-19 devnull 	}
71 a84cbb2a 2004-04-19 devnull 	return -1;
72 a84cbb2a 2004-04-19 devnull }