![[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 / g|
Return to setup.c CVS log | Up to [Research Unix] / researchv10no / cmd / adb / g |
1.1 root 1: /*
2: * adb - routines to read a.out+core at startup
3: */
4: #include "defs.h"
5: #include "space.h"
6: #include "map.h"
7: #include "a.out.h"
8: #include "machine.h"
9:
10: char *symfil = "2.out";
11: char *corfil = "core";
12:
13: MAP symmap[NMAP];
14: MAP cormap[NMAP];
15:
16: int fsym, fcor;
17:
18: static ADDR datbase;
19: ADDR txtsize, datsize, stksize;
20: static ADDR entry;
21: static int magic;
22:
23: setsym()
24: {
25: struct exec hdr;
26: register MAP *mp;
27: char *malloc();
28:
29: fsym = getfile(symfil, 1);
30: mp = symmap;
31: if (read(fsym, (char *)&hdr, sizeof hdr) != sizeof hdr ||
32: hdr.a_magic != A_MAGIC) {
33: mp->f = mp->b = 0;
34: mp->e = MAXFILE;
35: mp->sp = DATASP;
36: mp->flag = MPINUSE;
37: mp++;
38: mp->flag = 0;
39: return;
40: }
41: magic = hdr.a_magic;
42: entry = hdr.a_entry;
43: mp->b = PGSIZE;
44: txtsize = hdr.a_text+sizeof(hdr);
45: mp->e = txtsize + mp->b;
46: mp->f = 0;
47: mp->sp = INSTSP;
48: mp->flag = MPINUSE;
49: mp++;
50: datbase = round((WORD)hdr.a_text+sizeof(hdr), (WORD)PGSIZE) + PGSIZE;
51: mp->b = datbase;
52: mp->e = datsize = datbase + hdr.a_data;
53: mp->f = sizeof(hdr) + hdr.a_text;
54: mp->sp = DATASP;
55: mp->flag = MPINUSE;
56: mp++;
57: mp->flag = 0;
58: syminit(&hdr);
59: }
60:
61: setcor()
62: {
63: register MAP *mp;
64:
65: fcor = getfile(corfil,2);
66: if (fcor < 0
67: || mapimage() == 0) {
68: /* not a core image */
69:
70: mp = cormap;
71: mp->b = 0;
72: mp->e = MAXFILE;
73: mp->f = 0;
74: mp->sp = DATASP;
75: mp->flag = MPINUSE;
76: mp++;
77: mp->flag = 0;
78: return;
79: }
80: }
81:
82: mapimage()
83: {
84: char x;
85: register struct map *mp;
86:
87: /* cheap hack for now */
88: lseek(fcor, (long)MAXSTOR, 0);
89: if (read(fcor, &x, 1) != 1)
90: return (0);
91: mp = cormap;
92: mp->b = 0;
93: mp->e = MAXSTOR+UBLKSIZ;
94: mp->f = 0;
95: mp->sp = DATASP;
96: mp->flag = MPINUSE;
97: mp++;
98: mp->b = 0;
99: mp->e = UBLKSIZ;
100: mp->f = MAXSTOR;
101: mp->sp = UBLKSP;
102: mp->flag = MPINUSE;
103: mp++;
104: mp->flag = 0;
105: rsnarf();
106: return (1);
107: }
108:
109: mapcore()
110: {
111: #if NOTDEF
112: struct user u;
113: register MAP *mp;
114:
115: lseek(fcor, (off_t)0, 0);
116: if (read(fcor, (char *)&u, sizeof(u)) != sizeof(u)
117: || badmagic(u.u_exdata.ux_mag))
118: return (0);
119: if (magic && magic != u.u_exdata.ux_mag)
120: printf("%s: not from %s\n", corfil, symfil);
121: magic = u.u_exdata.ux_mag;
122: signo = u.u_arg[0];
123: sigcode = u.u_code;
124: txtsize = ctob(u.u_tsize);
125: datsize = ctob(u.u_dsize);
126: stksize = ctob(u.u_ssize);
127: mp = cormap;
128: switch (magic) {
129:
130: case OMAGIC:
131: mp->b = 0;
132: mp->e = txtsize + datsize;
133: mp->f = ctob(UPAGES);
134: mp->sp = DATASP;
135: mp->flag = MPINUSE;
136: mp++;
137: mp->b = MAXSTOR - stksize;
138: mp->e = MAXSTOR;
139: mp->f = txtsize + datsize + ctob(UPAGES);
140: mp->sp = DATASP;
141: mp->flag = MPINUSE;
142: break;
143:
144: case NMAGIC:
145: case ZMAGIC:
146: mp->b = txtsize;
147: mp->e = mp->b + datsize;
148: mp->f = ctob(UPAGES);
149: mp->sp = DATASP;
150: mp->flag = MPINUSE;
151: mp++;
152: mp->b = MAXSTOR - stksize;
153: mp->e = MAXSTOR;
154: mp->f = datsize + ctob(UPAGES);
155: mp->sp = DATASP;
156: mp->flag = MPINUSE;
157: break;
158: }
159: mp++;
160: mp->b = 0;
161: mp->e = ctob(UPAGES);
162: mp->f = 0;
163: mp->sp = UBLKSP;
164: mp->flag = MPINUSE;
165: mp++;
166: mp->flag = 0;
167: rsnarf();
168: return (1);
169: #endif
170: }
171:
172: cmdmap(itype, star)
173: register int star, itype;
174: {
175: register MAP *mp;
176: extern char lastc;
177:
178: if (itype & SYMF)
179: mp = symmap;
180: else
181: mp = cormap;
182: if (star) /* UGH */
183: mp++;
184: if (expr(0))
185: mp->b = expv;
186: if (expr(0))
187: mp->e = expv;
188: if (expr(0))
189: mp->f = expv;
190: mp->flag |= MPINUSE;
191: if (rdc()=='?' && (itype&SYMF) == 0) {
192: if (fcor)
193: close(fcor);
194: fcor=fsym;
195: corfil=symfil;
196: } else if (lastc == '/' && itype&SYMF) {
197: if (fsym)
198: close(fsym);
199: fsym=fcor;
200: symfil=corfil;
201: } else
202: reread();
203: }
204:
205: acreate(f)
206: char *f;
207: {
208: register int fd;
209:
210: return(create(f, wtflag, 0666));
211: }
212:
213: getfile(filnam, cnt)
214: char *filnam;
215: {
216: register int fsym;
217:
218: if (strcmp(filnam, "-") == 0)
219: return (-1);
220: fsym = open(filnam, wtflag);
221: if (fsym < 0 && xargc > cnt) {
222: if (wtflag)
223: fsym = acreate(filnam);
224: if (fsym < 0)
225: printf("cannot open `%s'\n", filnam);
226: }
227: return (fsym);
228: }
229:
230: setvar()
231: {
232:
233: var[varchk('b')] = datbase;
234: var[varchk('d')] = datsize;
235: var[varchk('e')] = entry;
236: var[varchk('m')] = magic;
237: var[varchk('s')] = stksize;
238: var[varchk('t')] = txtsize;
239: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.