![[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 [CSRG BSD Unix] / 42BSD / bin / adb|
Return to setup.c CVS log | Up to [CSRG BSD Unix] / 42BSD / bin / adb |
1.1 root 1: static char sccsid[] = "@(#)setup.c 4.6 82/10/28";
2: /*
3: * adb - routines to read a.out+core at startup
4: */
5: #include "defs.h"
6: #include <sys/stat.h>
7:
8: off_t datbas; /* offset of the base of the data segment */
9: off_t stksiz; /* stack size in the core image */
10: INT sigcode; /* belongs in head.h */
11:
12: char *symfil = "a.out";
13: char *corfil = "core";
14:
15: setsym()
16: {
17: off_t loc;
18: struct exec hdr;
19: register struct nlist *sp;
20: int ssiz;
21: char *strtab;
22:
23: fsym = getfile(symfil, 1);
24: txtmap.ufd = fsym;
25: if (read(fsym, (char *)&hdr, sizeof hdr) != sizeof hdr ||
26: N_BADMAG(hdr)) {
27: txtmap.e1 = MAXFILE;
28: return;
29: }
30: filhdr = hdr;
31: loc = filhdr.a_text+filhdr.a_data;
32: txtmap.f1 = txtmap.f2 = N_TXTOFF(filhdr);
33: txtmap.b1 = 0;
34: switch (filhdr.a_magic) {
35:
36: case OMAGIC:
37: txtmap.b1 = txtmap.e1 = 0;
38: txtmap.b2 = datbas = 0;
39: txtmap.e2 = loc;
40: break;
41:
42: case ZMAGIC:
43: case NMAGIC:
44: txtmap.e1 = filhdr.a_text;
45: txtmap.b2 = datbas = round(filhdr.a_text, PAGSIZ);
46: txtmap.e2 = datbas + filhdr.a_data;
47: txtmap.f2 += txtmap.e1;
48: }
49: loc = N_SYMOFF(filhdr);
50: symtab = (struct nlist *) malloc(filhdr.a_syms);
51: esymtab = &symtab[filhdr.a_syms / sizeof (struct nlist)];
52: if (symtab == NULL)
53: goto nospac;
54: lseek(fsym, loc, 0);
55: if (filhdr.a_syms == 0)
56: goto nosymt;
57: /* SHOULD SQUISH OUT STABS HERE!!! */
58: if (read(fsym, symtab, filhdr.a_syms) != filhdr.a_syms)
59: goto readerr;
60: if (read(fsym, &ssiz, sizeof (ssiz)) != sizeof (ssiz))
61: goto oldfmt;
62: strtab = (char *) malloc(ssiz);
63: if (strtab == 0)
64: goto nospac;
65: *(int *)strtab = ssiz;
66: ssiz -= sizeof (ssiz);
67: if (read(fsym, strtab + sizeof (ssiz), ssiz) != ssiz)
68: goto readerr;
69: for (sp = symtab; sp < esymtab; sp++)
70: if (sp->n_strx)
71: /* SHOULD PERFORM RANGE CHECK HERE */
72: sp->n_un.n_name = strtab + sp->n_un.n_strx;
73: nosymt:
74: if (INKERNEL(filhdr.a_entry)) {
75: txtmap.b1 += KERNOFF;
76: txtmap.e1 += KERNOFF;
77: txtmap.b2 += KERNOFF;
78: txtmap.e2 += KERNOFF;
79: }
80: return;
81: readerr:
82: printf("Error reading symbol|string table\n");
83: exit(1);
84: nospac:
85: printf("Not enough space for symbol|string table\n");
86: exit(1);
87: oldfmt:
88: printf("Old format a.out - no string table\n");
89: exit(1);
90: }
91:
92: setcor()
93: {
94:
95: fcor = datmap.ufd = getfile(corfil,2);
96: if (kernel && fcor != -1 && INKERNEL(filhdr.a_entry)) {
97: struct stat stb;
98:
99: kcore = 1;
100: fstat(fcor, &stb);
101: datmap.b1 = 0;
102: datmap.e1 = -1;
103: if (kernel == 0 && (stb.st_mode & S_IFREG))
104: datmap.b1 = 0x80000000;
105: lookup("_Sysmap");
106: sbr = cursym->n_value;
107: lookup("_Syssize");
108: slr = cursym->n_value;
109: printf("sbr %X slr %X\n", sbr, slr);
110: lookup("_masterpaddr");
111: physrw(fcor, cursym->n_value&0x7fffffff, &masterpcbb, 1);
112: masterpcbb = (masterpcbb&PG_PFNUM)*512;
113: getpcb();
114: return;
115: }
116: if (read(fcor, (char *)&u, ctob(UPAGES))!=ctob(UPAGES) ||
117: !INUDOT(u.u_pcb.pcb_ksp) || !INSTACK(u.u_pcb.pcb_usp)) {
118: datmap.e1 = MAXFILE;
119: return;
120: }
121: signo = u.u_arg[0];
122: sigcode = u.u_code;
123: filhdr.a_text = ctob(u.u_tsize);
124: filhdr.a_data = ctob(u.u_dsize);
125: stksiz = ctob(u.u_ssize);
126: switch (filhdr.a_magic) {
127:
128: case OMAGIC:
129: datmap.b1 = 0;
130: datmap.e1 = filhdr.a_text+filhdr.a_data;
131: datmap.f2 = ctob(UPAGES) + datmap.e1;
132: break;
133:
134: case NMAGIC:
135: case ZMAGIC:
136: datmap.b1 = round(filhdr.a_text, PAGSIZ);
137: datmap.e1 = datmap.b1 + filhdr.a_data;
138: datmap.f2 = ctob(UPAGES) + filhdr.a_data;
139: break;
140: }
141: datbas = datmap.b1;
142: datmap.f1 = ctob(UPAGES);
143: datmap.b2 = MAXSTOR - stksiz;
144: datmap.e2 = MAXSTOR;
145: if (filhdr.a_magic && u.u_exdata.ux_mag &&
146: filhdr.a_magic != u.u_exdata.ux_mag)
147: printf("corefile not from this program");
148: }
149:
150: getpcb()
151: {
152:
153: lseek(fcor, masterpcbb&~0x80000000, 0);
154: read(fcor, &pcb, sizeof (struct pcb));
155: pcb.pcb_p0lr &= ~AST_CLR;
156: printf("p0br %X p0lr %X p1br %X p1lr %X\n",
157: pcb.pcb_p0br, pcb.pcb_p0lr, pcb.pcb_p1br, pcb.pcb_p1lr);
158: }
159:
160: create(f)
161: char *f;
162: {
163: register int fd;
164:
165: fd = creat(f, 0644);
166: if (fd < 0)
167: return (-1);
168: close(fd);
169: return (open(f, wtflag));
170: }
171:
172: getfile(filnam, cnt)
173: char *filnam;
174: {
175: register int fsym;
176:
177: if (eqstr(filnam, "-"))
178: return (-1);
179: fsym = open(filnam, wtflag);
180: if (fsym < 0 && xargc > cnt) {
181: if (wtflag)
182: fsym = create(filnam);
183: if (fsym < 0)
184: printf("cannot open `%s'\n", filnam);
185: }
186: return (fsym);
187: }
188:
189: setvar()
190: {
191:
192: var[varchk('b')] = datbas;
193: var[varchk('d')] = filhdr.a_data;
194: var[varchk('e')] = filhdr.a_entry;
195: var[varchk('m')] = filhdr.a_magic;
196: var[varchk('s')] = stksiz;
197: var[varchk('t')] = filhdr.a_text;
198: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.