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