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