![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to setup.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 setup.c CVS log | Up to [Research Unix] / researchv10no / cmd / adb / cray |
1.1 root 1: /*
2: * adb - routines to read a.out+core at startup
3: * this for cray; very simple, but some hooks left for later
4: */
5: #include "defs.h"
6: /*
7: * beware!
8: */
9: #undef wtoa
10: #undef atow
11: #undef wtoc
12: #undef ctow
13: #include "space.h"
14: #include "map.h"
15: #include "machine.h"
16: #include <sys/param.h>
17: #include <sys/types.h>
18: #include <sys/sysmacros.h>
19: #include <sys/ucomm.h>
20: #include <sys/signal.h>
21: #include <sys/dir.h>
22: #include <sys/proc.h>
23: #include <sys/user.h>
24:
25: char *symfil = "a.out";
26: char *corfil = "core";
27:
28: MAP symmap[NMAP];
29: MAP cormap[NMAP];
30:
31: int fsym, fcor;
32:
33: static ADDR datbase;
34: ADDR txtsize, datsize, stksize;
35: static ADDR entry;
36: static int magic;
37:
38: setsym()
39: {
40: ADDR loc;
41: struct exec hdr;
42: register MAP *mp;
43: char *malloc();
44:
45: fsym = getfile(symfil, 1);
46: mp = symmap;
47: if (read(fsym, (char *)&hdr, sizeof hdr) != sizeof hdr ||
48: badmagic((int)hdr.a_magic)) {
49: mp->f = mp->b = 0;
50: mp->e = MAXFILE;
51: mp->sp = DATASP;
52: mp->flag = MPINUSE;
53: mp++;
54: mp->flag = 0;
55: hksyminit(symfil, 0);
56: return;
57: }
58: magic = hdr.a_magic;
59: entry = patoba(hdr.a_entry);
60: loc = watoba(hdr.a_text+hdr.a_data);
61: switch (magic) {
62: case A_MAGIC1: /* only 407 files on cray! */
63: txtsize = 0;
64: datbase = 0;
65: datsize = loc;
66: mp->b = 0;
67: mp->e = loc;
68: mp->f = sizeof(hdr);
69: mp->sp = DATASP;
70: mp->flag = MPINUSE;
71: break;
72: }
73: mp++;
74: mp->flag = 0;
75: hksyminit(symfil, 1);
76: }
77:
78: setcor()
79: {
80: register MAP *mp;
81:
82: fcor = getfile(corfil,2);
83: if (fcor < 0
84: || (mapimage() == 0 && mapcore() == 0)) {
85: /* not a core image */
86:
87: mp = cormap;
88: mp->b = 0;
89: mp->e = MAXFILE;
90: mp->f = 0;
91: mp->sp = DATASP;
92: mp->flag = MPINUSE;
93: mp++;
94: mp->flag = 0;
95: return;
96: }
97: }
98:
99: /*
100: * set up maps for a direct process image (ptrace)
101: */
102:
103: #define UOFF(x) ((int)&((struct user *)0)->x)
104:
105: int
106: mapimage()
107: {
108: register MAP *mp;
109:
110: if (trcimage() == 0)
111: return (0);
112: txtsize = 0; /* sigh */
113: datsize = MAXFILE; /* sigh again */
114: #if NOTDEF /* no ID separation */
115: if (magic == IMAGIC)
116: datbase = 0;
117: else
118: #endif
119: datbase = txtsize;
120: mp = cormap;
121: if (txtsize) {
122: mp->b = 0;
123: mp->e = txtsize;
124: mp->f = 0;
125: mp->flag = MPINUSE;
126: #if NOTDEF /* no ID separation */
127: if (magic == IMAGIC)
128: mp->sp = INSTSP;
129: else
130: #endif
131: mp->sp = DATASP;
132: mp++;
133: }
134: mp->b = txtsize;
135: mp->e = mp->b + datsize;
136: mp->f = mp->b;
137: mp->sp = DATASP;
138: mp->flag = MPINUSE;
139: mp++;
140: mp->b = 0;
141: mp->e = ctob(USIZE);
142: mp->f = 0;
143: mp->sp = UBLKSP;
144: mp->flag = MPINUSE;
145: mp++;
146: mp->flag = 0;
147: rsnarf();
148: return (1);
149: }
150:
151: /*
152: * assume single-tasked image
153: * hack validity check: do first few entries in ascii offsets look good?
154: * better checks invited
155: */
156:
157: mapcore()
158: {
159: struct ucomm uc;
160: char *p;
161: struct user u;
162: register MAP *mp;
163:
164: lseek(fcor, (off_t)0, 0);
165: if (read(fcor, (char *)&uc, sizeof(uc)) != sizeof(uc))
166: return (0);
167: p = (char *)&uc.uc_ascii[0];
168: if (p[0] != 'U' && p[0] != 'u')
169: return (0);
170: p = (char *)&uc.uc_ascii[2];
171: if (p[0] != 'U' && p[0] != 'u')
172: return (0);
173: p = (char *)&uc.uc_ascii[4]; /* i tell you three times */
174: if (p[0] != 'U' && p[0] != 'u')
175: return (0);
176: lseek(fcor, (off_t)ctob(UCSIZE), 0);
177: if (read(fcor, (char *)&u, sizeof(u)) != sizeof(u))
178: return (0);
179: datsize = watoba(uc.uc_dsize);
180: mp = cormap;
181: mp->b = 0;
182: mp->e = datsize;
183: mp->f = ctob(USIZE)+ctob(UCSIZE);
184: mp->sp = DATASP;
185: mp->flag = MPINUSE;
186: mp++;
187: mp->b = 0;
188: mp->e = ctob(USIZE);
189: mp->f = ctob(UCSIZE);
190: mp->sp = UBLKSP;
191: mp->flag = MPINUSE;
192: mp++;
193: mp->flag = 0;
194: rsnarf();
195: return (1);
196: }
197:
198: badmagic(num)
199: int num;
200: {
201:
202: switch (num) {
203: case A_MAGIC1:
204: return (0);
205:
206: default:
207: return (1);
208: }
209: }
210:
211: cmdmap(itype, star)
212: register int star, itype;
213: {
214: register MAP *mp;
215: extern char lastc;
216:
217: if (itype & SYMF)
218: mp = symmap;
219: else
220: mp = cormap;
221: if (star) /* UGH */
222: mp++;
223: if (expr(0))
224: mp->b = expv;
225: if (expr(0))
226: mp->e = expv;
227: if (expr(0))
228: mp->f = expv;
229: mp->flag |= MPINUSE;
230: if (rdc()=='?' && (itype&SYMF) == 0) {
231: if (fcor)
232: close(fcor);
233: fcor=fsym;
234: corfil=symfil;
235: } else if (lastc == '/' && itype&SYMF) {
236: if (fsym)
237: close(fsym);
238: fsym=fcor;
239: symfil=corfil;
240: } else
241: reread();
242: }
243:
244: create(f)
245: char *f;
246: {
247: register int fd;
248:
249: fd = creat(f, 0666);
250: if (fd < 0)
251: return (-1);
252: close(fd);
253: return (open(f, wtflag));
254: }
255:
256: getfile(filnam, cnt)
257: char *filnam;
258: {
259: register int fsym;
260:
261: if (strcmp(filnam, "-") == 0)
262: return (-1);
263: fsym = open(filnam, wtflag);
264: if (fsym < 0 && xargc > cnt) {
265: if (wtflag)
266: fsym = create(filnam);
267: if (fsym < 0)
268: printf("cannot open `%s'\n", filnam);
269: }
270: return (fsym);
271: }
272:
273: setvar()
274: {
275:
276: var[varchk('b')] = datbase;
277: var[varchk('d')] = datsize;
278: var[varchk('e')] = entry;
279: var[varchk('m')] = magic;
280: var[varchk('s')] = stksize;
281: var[varchk('t')] = txtsize;
282: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.