![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mchframe.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / adb / cray|
Return to mchframe.c CVS log | Up to [Research Unix] / researchv10no / cmd / adb / cray |
1.1 root 1: /*
2: * machine-dependent code for
3: * looking in stack frames
4: * cray x-mp
5: */
6:
7: #include "defs.h"
8: #include "regs.h"
9: #include "sym.h"
10: #include "space.h"
11: #include "machine.h"
12:
13: /*
14: * stack frame, relative to *b02
15: */
16:
17: #define F_PC 010 /* return pc */
18: #define F_AP 020 /* saved arg pointer */
19: #define F_FP 030 /* saved frame pointer */
20:
21: /*
22: * return an address for a local variable
23: * no register vars, unfortunately, as we can't provide an address
24: * gn is the procedure; ln the local name
25: */
26:
27: localaddr(gn, ln)
28: char *gn, *ln;
29: {
30: WORD fp, ap;
31: extern WORD expv;
32: extern int expsp;
33: ADDR laddr();
34:
35: if (gn) {
36: if (findrtn(gn) == 0)
37: error("function not found");
38: }
39: else {
40: findsym((WORD)atow(rget(PC)), INSTSP);
41: if (cursym == NULL)
42: error("function not found");
43: }
44: if (findframe(&fp, &ap) == 0)
45: error("stack frame not found");
46: if (ln == NULL) {
47: expsp = 0;
48: expv = fp;
49: return;
50: }
51: while (localsym()) {
52: if (strcmp(ln, cursym->y_name) != 0)
53: continue;
54: expv = laddr(cursym, fp, ap);
55: if (cursym->y_ltype == S_RSYM)
56: expsp = REGSP;
57: else
58: expsp = NOSP;
59: return;
60: }
61: error("bad local variable");
62: /* NOTREACHED */
63: }
64:
65: /*
66: * print a stack traceback
67: * give locals if possible
68: */
69:
70: int maxargs = 20;
71:
72: ctrace(modif)
73: char modif;
74: {
75: register ADDR fp, ap, callpc;
76: register int narg;
77: register int i;
78:
79: if (adrflg) {
80: fp = adrval;
81: ap = watoba(atow(aget(fp+F_AP, CORF|DATASP)));
82: callpc = patoba(atow(aget(fp+F_PC, CORF|DATASP)));
83: } else {
84: ap = (ADDR)watoba(rtow(rget(A0+6)));
85: fp = (ADDR)watoba(rtow(rget(B00+2)));
86: callpc = (ADDR)rtow(rget(PC));
87: }
88: clrraddr();
89: while (cntval--) {
90: chkerr();
91: findsym(callpc, INSTSP);
92: if (cursym == NULL)
93: printf("?(");
94: else
95: printf("%s(", cursym->y_name);
96: narg = ltow(lget(ap, CORF|DATASP))&077; /* real size? */
97: for (i = 1; --narg >= 0 && i <= maxargs; i++) {
98: printf("%R", ltow(lget(ap + i * SZREG, CORF|DATASP)));
99: if (narg != 0)
100: printc(',');
101: }
102: if (narg >= 0)
103: printf(",...");
104: printf(") from %R\n", callpc);
105: if (modif == 'C')
106: locals(fp, ap);
107: callpc = patoba(atow(aget(fp + F_PC, CORF|DATASP)));
108: setraddr(fp);
109: ap = watoba(atow(aget(fp + F_AP, CORF|DATASP)));
110: fp = watoba(atow(aget(fp + F_FP, CORF|DATASP)));
111: if (fp == 0 || callpc == 0)
112: break;
113: }
114: clrraddr();
115: }
116:
117: static
118: locals(fp, ap)
119: ADDR fp, ap;
120: {
121: WORD val;
122: register int sp;
123: ADDR laddr();
124:
125: while (localsym()) {
126: sp = CORF | DATASP;
127: if (cursym->y_ltype == S_RSYM)
128: sp = CORF | REGSP;
129: val = ltow(lget(laddr(cursym, fp, ap), sp));
130: if (errflg == 0)
131: printf("%8t%s/%10t%R\n", cursym->y_name, val);
132: else {
133: printf("%8t%s/%10t?\n", cursym->y_name);
134: errflg = 0;
135: }
136: }
137: }
138:
139: static ADDR
140: laddr(sp, fp, ap)
141: struct sym *sp;
142: ADDR fp, ap;
143: {
144:
145: switch (sp->y_ltype) {
146: case S_STSYM:
147: return (sp->y_value);
148:
149: case S_LSYM:
150: return (fp - sp->y_value);
151:
152: case S_PSYM:
153: return (ap + sp->y_value);
154:
155: case S_RSYM:
156: return (sp->y_value * SZREG);
157: }
158: error("bad local symbol");
159: /* NOTREACHED */
160: }
161:
162: static int
163: findframe(fpp, app)
164: ADDR *fpp, *app;
165: {
166: #ifndef NOTDEF
167: error("no");
168: #else
169: register ADDR fp, ap, pc;
170: register int fl;
171: struct sym *svcur;
172:
173: svcur = cursym;
174: fp = rtow(rget(FP));
175: ap = rtow(rget(AP));
176: pc = rtow(rget(PC));
177: if (errflg)
178: return (0);
179: clrraddr();
180: for (;;) {
181: findsym(pc, INSTSP);
182: if (cursym == svcur)
183: break;
184: if (cursym && strcmp(cursym->y_name, "start") == 0) {
185: clrraddr();
186: return (0);
187: }
188: fl = stow(sget((ADDR)fp + F_FLAGS, CORF|DATASP));
189: setraddr(fl, fp);
190: pc = atow(aget(fp + F_PC, CORF|DATASP));
191: ap = atow(aget(fp + F_AP, CORF|DATASP));
192: fp = atow(aget(fp + F_FP + SALIGN(fl), CORF|DATASP));
193: /* sigtramp? */
194: if (errflg) {
195: clrraddr();
196: return (0);
197: }
198: }
199: *fpp = fp;
200: *app = ap;
201: return (1);
202: #endif
203: }
204:
205: /*
206: * set addresses for saved registers for this frame
207: */
208:
209: static
210: setraddr(fp)
211: register ADDR fp;
212: {
213: #if NOTDEF
214: register int r;
215: register int i;
216: extern ADDR raddr[];
217:
218: mask &= FFREGS;
219: for (r = 0, i = 0; mask; r++)
220: if (mask & (1 << r)) {
221: if (MINREG <= r && r <= MAXREG)
222: raddr[r - MINREG] = fp + F_REGS +
223: i * SZREG;
224: i++;
225: mask &=~ (1 << r);
226: }
227: #endif
228: }
229:
230: static
231: clrraddr()
232: {
233: register int i;
234: extern ADDR raddr[];
235:
236: for (i = 0; i <= MAXREG - MINREG; i++)
237: raddr[i] = 0;
238: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.