![[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] / researchv9 / cmd / adb / vax|
Return to setup.c CVS log | Up to [Research Unix] / researchv9 / cmd / adb / vax |
1.1 root 1: /*
2: * adb - routines to read a.out+core at startup
3: * stuff in here is pretty vax dependent
4: */
5: #include "defs.h"
6: #include "space.h"
7: #include "map.h"
8: #include "machine.h"
9: #include <a.out.h>
10: #include <sys/types.h>
11: #include <sys/dir.h>
12: #include <sys/user.h>
13: #include "base.h"
14:
15: char *symfil = "a.out";
16: char *corfil = "core";
17:
18: MAP symmap[NMAP];
19: MAP cormap[NMAP];
20:
21: int fsym, fcor;
22:
23: static ADDR datbase;
24: ADDR txtsize, datsize, stksize;
25: static ADDR entry;
26: static int magic;
27:
28: setsym()
29: {
30: ADDR loc;
31: struct exec hdr;
32: register MAP *mp;
33: char *malloc();
34:
35: fsym = getfile(symfil, 1);
36: mp = symmap;
37: if (read(fsym, (char *)&hdr, sizeof hdr) != sizeof hdr ||
38: badmagic((int)hdr.a_magic)) {
39: mp->f = mp->b = 0;
40: mp->e = MAXFILE;
41: mp->sp = DATASP;
42: mp->flag = MPINUSE;
43: mp++;
44: mp->flag = 0;
45: return;
46: }
47: magic = hdr.a_magic;
48: entry = hdr.a_entry;
49: loc = hdr.a_text+hdr.a_data;
50: switch (magic) {
51:
52: case OMAGIC:
53: txtsize = 0;
54: datbase = 0;
55: datsize = loc;
56: mp->b = 0;
57: mp->e = loc;
58: mp->f = N_TXTOFF(hdr);
59: mp->sp = DATASP;
60: mp->flag = MPINUSE;
61: break;
62:
63: case ZMAGIC:
64: case NMAGIC:
65: mp->b = 0;
66: mp->e = txtsize = hdr.a_text;
67: mp->f = N_TXTOFF(hdr);
68: mp->sp = INSTSP;
69: mp->flag = MPINUSE;
70: mp++;
71: mp->b = datbase = round((WORD)hdr.a_text, (WORD)PAGSIZ);
72: mp->e = datsize = datbase + hdr.a_data;
73: mp->f = N_TXTOFF(hdr) + hdr.a_text;
74: mp->sp = DATASP;
75: mp->flag = MPINUSE;
76: break;
77: }
78: if (INKERNEL(entry)) {
79: symmap[0].b += KERNOFF;
80: symmap[1].b += KERNOFF;
81: symmap[0].e += KERNOFF;
82: symmap[1].e += KERNOFF;
83: }
84: mp++;
85: mp->flag = 0;
86: syminit(&hdr);
87: }
88:
89: setcor()
90: {
91: register MAP *mp;
92:
93: fcor = getfile(corfil,2);
94: if (fcor < 0
95: || (mapimage() == 0 && mapcore() == 0)) {
96: /* not a core image */
97: mp = cormap;
98: mp->b = 0;
99: mp->e = MAXFILE;
100: mp->f = 0;
101: mp->sp = DATASP;
102: mp->flag = MPINUSE;
103: mp++;
104: mp->flag = 0;
105: return;
106: }
107: }
108:
109: /*
110: * set up maps for a direct process image (/proc)
111: */
112:
113: #define UOFF(x) (ADDR)(&((struct user *)0)->x)
114:
115: int
116: mapimage()
117: {
118: register MAP *mp;
119:
120: if (trcimage() == 0)
121: return (0);
122: sigcode = trcunab(UOFF(u_code));
123: txtsize = ctob(trcunab(UOFF(u_tsize)));
124: datsize = ctob(trcunab(UOFF(u_dsize)));
125: stksize = ctob(trcunab(UOFF(u_ssize)));
126: #if NOTDEF /* no ID separation on VAX */
127: if (magic == IMAGIC)
128: datbase = 0;
129: else
130: #endif
131: datbase = txtsize;
132: mp = cormap;
133: if (txtsize) {
134: mp->b = 0;
135: mp->e = txtsize;
136: mp->f = TXTBASE;
137: mp->flag = MPINUSE;
138: #if NOTDEF /* no ID separation on VAX */
139: if (magic == IMAGIC)
140: mp->sp = INSTSP;
141: else
142: #endif
143: mp->sp = DATASP;
144: mp++;
145: }
146: mp->b = txtsize;
147: mp->e = mp->b + datsize;
148: mp->f = DATBASE + mp->b;
149: mp->sp = DATASP;
150: mp->flag = MPINUSE;
151: mp++;
152: mp->b = MAXSTOR - stksize;
153: mp->e = MAXSTOR + ctob(UPAGES);
154: mp->f = DATBASE + mp->b;
155: mp->sp = DATASP;
156: mp->flag = MPINUSE;
157: mp++;
158: mp->b = 0;
159: mp->e = ctob(UPAGES);
160: mp->f = UBASE;
161: mp->sp = UBLKSP;
162: mp->flag = MPINUSE;
163: mp++;
164: mp->flag = 0;
165: rsnarf();
166: return (1);
167: }
168:
169: mapcore()
170: {
171: struct user u;
172: register MAP *mp;
173:
174: lseek(fcor, (off_t)0, 0);
175: if (read(fcor, (char *)&u, sizeof(u)) != sizeof(u)
176: || badmagic(u.u_exdata.ux_mag))
177: return (0);
178: if (magic && magic != u.u_exdata.ux_mag)
179: printf("%s: not from %s\n", corfil, symfil);
180: magic = u.u_exdata.ux_mag;
181: signo = u.u_arg[0];
182: sigcode = u.u_code;
183: txtsize = ctob(u.u_tsize);
184: datsize = ctob(u.u_dsize);
185: stksize = ctob(u.u_ssize);
186: mp = cormap;
187: switch (magic) {
188:
189: case OMAGIC:
190: mp->b = 0;
191: mp->e = txtsize + datsize;
192: mp->f = ctob(UPAGES);
193: mp->sp = DATASP;
194: mp->flag = MPINUSE;
195: mp++;
196: mp->b = MAXSTOR - stksize;
197: mp->e = MAXSTOR;
198: mp->f = txtsize + datsize + ctob(UPAGES);
199: mp->sp = DATASP;
200: mp->flag = MPINUSE;
201: break;
202:
203: case NMAGIC:
204: case ZMAGIC:
205: mp->b = txtsize;
206: mp->e = mp->b + datsize;
207: mp->f = ctob(UPAGES);
208: mp->sp = DATASP;
209: mp->flag = MPINUSE;
210: mp++;
211: mp->b = MAXSTOR - stksize;
212: mp->e = MAXSTOR;
213: mp->f = datsize + ctob(UPAGES);
214: mp->sp = DATASP;
215: mp->flag = MPINUSE;
216: break;
217: }
218: mp++;
219: mp->b = 0;
220: mp->e = ctob(UPAGES);
221: mp->f = 0;
222: mp->sp = UBLKSP;
223: mp->flag = MPINUSE;
224: mp++;
225: mp->flag = 0;
226: rsnarf();
227: return (1);
228: }
229:
230: badmagic(num)
231: int num;
232: {
233:
234: switch (num) {
235: case OMAGIC:
236: case NMAGIC:
237: case ZMAGIC:
238: return (0);
239:
240: default:
241: return (1);
242: }
243: }
244:
245: cmdmap(itype, star)
246: register int star, itype;
247: {
248: register MAP *mp;
249: extern char lastc;
250:
251: if (itype & SYMF)
252: mp = symmap;
253: else
254: mp = cormap;
255: if (star) /* UGH */
256: mp++;
257: if (expr(0))
258: mp->b = expv;
259: if (expr(0))
260: mp->e = expv;
261: if (expr(0))
262: mp->f = expv;
263: mp->flag |= MPINUSE;
264: if (rdc()=='?' && (itype&SYMF) == 0) {
265: if (fcor)
266: close(fcor);
267: fcor=fsym;
268: corfil=symfil;
269: } else if (lastc == '/' && itype&SYMF) {
270: if (fsym)
271: close(fsym);
272: fsym=fcor;
273: symfil=corfil;
274: } else
275: reread();
276: }
277:
278: create(f)
279: char *f;
280: {
281: register int fd;
282:
283: fd = creat(f, 0666);
284: if (fd < 0)
285: return (-1);
286: close(fd);
287: return (open(f, wtflag));
288: }
289:
290: getfile(filnam, cnt)
291: char *filnam;
292: {
293: register int fsym;
294:
295: if (strcmp(filnam, "-") == 0)
296: return (-1);
297: fsym = open(filnam, wtflag);
298: if (fsym < 0 && xargc > cnt) {
299: if (wtflag)
300: fsym = create(filnam);
301: if (fsym < 0)
302: printf("cannot open `%s'\n", filnam);
303: }
304: return (fsym);
305: }
306:
307: setvar()
308: {
309:
310: var[varchk('b')] = datbase;
311: var[varchk('d')] = datsize;
312: var[varchk('e')] = entry;
313: var[varchk('m')] = magic;
314: var[varchk('s')] = stksize;
315: var[varchk('t')] = txtsize;
316: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.