Commit | Line | Data |
---|---|---|
442fe3bf DF |
1 | /* |
2 | * Copyright (c) 1983 Regents of the University of California. | |
3 | * All rights reserved. The Berkeley software License Agreement | |
4 | * specifies the terms and conditions for redistribution. | |
5 | */ | |
77e05717 | 6 | |
442fe3bf | 7 | #ifndef lint |
34d5a416 | 8 | static char sccsid[] = "@(#)coredump.c 5.3 (Berkeley) %G%"; |
442fe3bf | 9 | #endif not lint |
0022c355 | 10 | |
34d5a416 | 11 | static char rcsid[] = "$Header: coredump.c,v 1.4 87/04/15 03:25:22 donn Exp $"; |
77e05717 ML |
12 | |
13 | /* | |
14 | * Deal with the core dump anachronism. | |
77e05717 ML |
15 | */ |
16 | ||
17 | #include "defs.h" | |
18 | #include "coredump.h" | |
19 | #include "machine.h" | |
20 | #include "object.h" | |
21 | #include "main.h" | |
77e05717 ML |
22 | #include <a.out.h> |
23 | ||
24 | #ifndef public | |
25 | #define coredump_readin(m, r, s) coredump_xreadin(&(m), r, &(s)) | |
26 | ||
27 | #include "machine.h" | |
28 | #endif | |
29 | ||
77e05717 ML |
30 | typedef struct { |
31 | Address begin; | |
32 | Address end; | |
33 | Address seekaddr; | |
34 | } Map; | |
35 | ||
36 | private Map datamap, stkmap; | |
37 | private File objfile; | |
38 | private struct exec hdr; | |
39 | ||
0022c355 ML |
40 | public coredump_getkerinfo () |
41 | { | |
42 | Symbol s; | |
43 | ||
44 | s = lookup(identname("Sysmap", true)); | |
45 | if (s == nil) { | |
46 | panic("can't find 'Sysmap'"); | |
77e05717 | 47 | } |
0022c355 ML |
48 | sbr = (struct pte *) (s->symvalue.offset); |
49 | s = lookup(identname("Syssize", true)); | |
50 | if (s == nil) { | |
51 | panic("can't find 'Syssize'"); | |
52 | } | |
53 | slr = (integer) (s->symvalue.offset); | |
54 | printf("sbr %lx slr %lx\n", sbr, slr); | |
55 | s = lookup(identname("masterpaddr", true)); | |
56 | if (s == nil) { | |
57 | panic("can't find 'masterpaddr'"); | |
58 | } | |
34d5a416 DS |
59 | fseek( |
60 | corefile, | |
61 | datamap.seekaddr + s->symvalue.offset&0x7fffffff - datamap.begin, | |
62 | 0 | |
63 | ); | |
0022c355 | 64 | get(corefile, masterpcbb); |
86d0387f | 65 | masterpcbb = (masterpcbb&PG_PFNUM)*NBPG; |
0022c355 ML |
66 | getpcb(); |
67 | } | |
68 | ||
0022c355 ML |
69 | /* |
70 | * Read the user area information from the core dump. | |
71 | */ | |
77e05717 | 72 | |
0022c355 ML |
73 | public coredump_xreadin(mask, reg, signo) |
74 | int *mask; | |
75 | Word reg[]; | |
86d0387f | 76 | short *signo; |
0022c355 ML |
77 | { |
78 | register struct user *up; | |
79 | register Word *savreg; | |
80 | union { | |
81 | struct user u; | |
82 | char dummy[ctob(UPAGES)]; | |
83 | } ustruct; | |
84 | Symbol s; | |
85 | ||
86 | objfile = fopen(objname, "r"); | |
87 | if (objfile == nil) { | |
88 | fatal("can't read \"%s\"", objname); | |
89 | } | |
90 | get(objfile, hdr); | |
91 | if (vaddrs) { | |
92 | datamap.begin = 0; | |
93 | datamap.end = 0xffffffff; | |
94 | stkmap.begin = 0xffffffff; | |
95 | stkmap.end = 0xffffffff; | |
96 | } else { | |
97 | up = &(ustruct.u); | |
98 | fread(up, ctob(UPAGES), 1, corefile); | |
34d5a416 DS |
99 | # if vax || tahoe |
100 | savreg = (Word *) &(ustruct.dummy[ctob(UPAGES)]); | |
101 | # else ifdef mc68000 | |
102 | savreg = (Word *) ( | |
103 | &ustruct.dummy[ctob(UPAGES) - 10] - (NREG * sizeof(Word)) | |
104 | ); | |
105 | # endif | |
106 | # ifdef IRIS | |
107 | *mask = savreg[RPS]; | |
108 | # else | |
109 | *mask = savreg[PS]; | |
110 | # endif | |
0022c355 ML |
111 | copyregs(savreg, reg); |
112 | *signo = up->u_arg[0]; | |
113 | datamap.seekaddr = ctob(UPAGES); | |
86d0387f SL |
114 | stkmap.begin = USRSTACK - ctob(up->u_ssize); |
115 | stkmap.end = USRSTACK; | |
0022c355 ML |
116 | stkmap.seekaddr = datamap.seekaddr + ctob(up->u_dsize); |
117 | switch (hdr.a_magic) { | |
118 | case OMAGIC: | |
34d5a416 DS |
119 | datamap.begin = CODESTART; |
120 | datamap.end = CODESTART + ctob(up->u_tsize) + ctob(up->u_dsize); | |
0022c355 ML |
121 | break; |
122 | ||
123 | case NMAGIC: | |
124 | case ZMAGIC: | |
34d5a416 DS |
125 | datamap.begin = (Address) |
126 | ptob(btop(ctob(up->u_tsize) - 1) + 1) + CODESTART; | |
0022c355 ML |
127 | datamap.end = datamap.begin + ctob(up->u_dsize); |
128 | break; | |
129 | ||
130 | default: | |
131 | fatal("bad magic number 0x%x", hdr.a_magic); | |
132 | } | |
133 | #ifdef UXMAG | |
134 | /* | |
135 | * Core dump not from this object file? | |
136 | */ | |
137 | if (hdr.a_magic != 0 and up->u_exdata.ux_mag != 0 and | |
138 | hdr.a_magic != up->u_exdata.ux_mag) { | |
139 | warning("core dump ignored"); | |
140 | coredump = false; | |
141 | fclose(corefile); | |
142 | fclose(objfile); | |
143 | start(nil, nil, nil); | |
144 | } | |
145 | #endif | |
77e05717 | 146 | } |
77e05717 ML |
147 | } |
148 | ||
149 | public coredump_close() | |
150 | { | |
151 | fclose(objfile); | |
152 | } | |
153 | ||
154 | public coredump_readtext(buff, addr, nbytes) | |
155 | char *buff; | |
156 | Address addr; | |
157 | int nbytes; | |
158 | { | |
0022c355 | 159 | if (hdr.a_magic == OMAGIC or vaddrs) { |
77e05717 ML |
160 | coredump_readdata(buff, addr, nbytes); |
161 | } else { | |
34d5a416 | 162 | fseek(objfile, N_TXTOFF(hdr) + addr - CODESTART, 0); |
77e05717 ML |
163 | fread(buff, nbytes, sizeof(Byte), objfile); |
164 | } | |
165 | } | |
166 | ||
167 | public coredump_readdata(buff, addr, nbytes) | |
168 | char *buff; | |
169 | Address addr; | |
170 | int nbytes; | |
171 | { | |
0022c355 ML |
172 | Address a; |
173 | ||
174 | a = addr; | |
175 | if (a < datamap.begin) { | |
2fd0f574 | 176 | if (hdr.a_magic == OMAGIC) { |
0022c355 ML |
177 | error("[data address 0x%x too low (lb = 0x%x)]", a, datamap.begin); |
178 | } else { | |
179 | coredump_readtext(buff, a, nbytes); | |
180 | } | |
181 | } else if (a > stkmap.end) { | |
182 | error("data address 0x%x too high (ub = 0x%x)", a, stkmap.end); | |
183 | } else { | |
184 | if (vaddrs) { | |
185 | vreadfromfile(corefile, a, buff, nbytes); | |
2fd0f574 | 186 | } else { |
0022c355 | 187 | readfromfile(corefile, a, buff, nbytes); |
2fd0f574 | 188 | } |
0022c355 ML |
189 | } |
190 | } | |
191 | ||
192 | /* | |
193 | * Read a block of data from a memory image, mapping virtual addresses. | |
194 | * Have to watch out for page boundaries. | |
195 | */ | |
196 | ||
197 | private vreadfromfile (corefile, v, buff, nbytes) | |
198 | File corefile; | |
199 | Address v; | |
200 | char *buff; | |
201 | integer nbytes; | |
202 | { | |
203 | Address a; | |
204 | integer i, remainder, pagesize; | |
205 | char *bufp; | |
206 | ||
207 | a = v; | |
208 | pagesize = (integer) ptob(1); | |
209 | remainder = pagesize - (a mod pagesize); | |
210 | if (remainder >= nbytes) { | |
211 | readfromfile(corefile, vmap(a), buff, nbytes); | |
212 | } else { | |
213 | readfromfile(corefile, vmap(a), buff, remainder); | |
214 | a += remainder; | |
215 | i = nbytes - remainder; | |
216 | bufp = buff + remainder; | |
217 | while (i > pagesize) { | |
218 | readfromfile(corefile, vmap(a), bufp, pagesize); | |
219 | a += pagesize; | |
220 | bufp += pagesize; | |
221 | i -= pagesize; | |
222 | } | |
223 | readfromfile(corefile, vmap(a), bufp, i); | |
224 | } | |
225 | } | |
226 | ||
227 | private readfromfile (f, a, buff, nbytes) | |
228 | File f; | |
229 | Address a; | |
230 | char *buff; | |
231 | integer nbytes; | |
232 | { | |
233 | integer fileaddr; | |
234 | ||
235 | if (a < stkmap.begin) { | |
236 | fileaddr = datamap.seekaddr + a - datamap.begin; | |
77e05717 | 237 | } else { |
0022c355 | 238 | fileaddr = stkmap.seekaddr + a - stkmap.begin; |
77e05717 | 239 | } |
0022c355 ML |
240 | fseek(f, fileaddr, 0); |
241 | fread(buff, nbytes, sizeof(Byte), f); | |
77e05717 | 242 | } |