|
0
|
1 /* Unexec for MIPS (including IRIS4D).
|
|
|
2 Copyright (C) 1988, 1992, 1993, 1994
|
|
|
3 Free Software Foundation, Inc.
|
|
|
4
|
|
|
5 This file is part of XEmacs.
|
|
|
6
|
|
|
7 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
8 under the terms of the GNU General Public License as published by the
|
|
|
9 Free Software Foundation; either version 2, or (at your option) any
|
|
|
10 later version.
|
|
|
11
|
|
|
12 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
13 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
15 for more details.
|
|
|
16
|
|
|
17 You should have received a copy of the GNU General Public License
|
|
|
18 along with XEmacs; see the file COPYING. If not, write to
|
|
|
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
20 Boston, MA 02111-1307, USA. */
|
|
|
21
|
|
|
22 /* Synched up with: FSF 19.31. */
|
|
|
23
|
|
|
24 #include <config.h>
|
|
|
25 #include <sys/types.h>
|
|
|
26 #include <sys/file.h>
|
|
|
27 #include <sys/stat.h>
|
|
|
28 #include <stdio.h>
|
|
398
|
29 #include <errno.h>
|
|
0
|
30 #include <varargs.h>
|
|
2286
|
31 #include "compiler.h"
|
|
0
|
32
|
|
|
33 #ifdef MACH
|
|
|
34
|
|
|
35 #include <a.out.h>
|
|
|
36
|
|
|
37 /* I don't know why this isn't defined. */
|
|
|
38 #ifndef STYP_INIT
|
|
|
39 #define STYP_INIT 0x80000000
|
|
|
40 #endif
|
|
|
41
|
|
|
42 /* I don't know why this isn't defined. */
|
|
|
43 #ifndef _RDATA
|
|
|
44 #define _RDATA ".rdata"
|
|
|
45 #define STYP_RDATA 0x00000100
|
|
|
46 #endif
|
|
|
47
|
|
|
48 /* Small ("near") data section. */
|
|
|
49 #ifndef _SDATA
|
|
|
50 #define _SDATA ".sdata"
|
|
|
51 #define STYP_SDATA 0x00000200
|
|
|
52 #endif
|
|
|
53
|
|
|
54 /* Small ("near") bss section. */
|
|
|
55 #ifndef _SBSS
|
|
|
56 #define _SBSS ".sbss"
|
|
|
57 #define STYP_SBSS 0x00000400
|
|
|
58 #endif
|
|
|
59
|
|
|
60 /* We don't seem to have a sym.h or syms.h anywhere, so we'll do it the
|
|
|
61 hard way. This stinks. */
|
|
|
62 typedef struct {
|
|
|
63 short magic;
|
|
|
64 short vstamp;
|
|
|
65 long ilineMax;
|
|
|
66 struct { long foo, offset; } offsets[11];
|
|
|
67 } HDRR, *pHDRR;
|
|
|
68
|
|
|
69 #else /* not MACH */
|
|
|
70
|
|
|
71 #include <filehdr.h>
|
|
|
72 #include <aouthdr.h>
|
|
|
73 #include <scnhdr.h>
|
|
|
74 #include <sym.h>
|
|
|
75
|
|
|
76 #endif /* not MACH */
|
|
|
77
|
|
|
78 #if defined (IRIS_4D) || defined (sony)
|
|
|
79 #include "getpagesize.h"
|
|
|
80 #include <fcntl.h>
|
|
|
81 #endif
|
|
|
82
|
|
|
83 static void fatal_unexec ();
|
|
|
84 static void mark_x ();
|
|
|
85
|
|
|
86 #define READ(_fd, _buffer, _size, _error_message, _error_arg) \
|
|
|
87 errno = EEOF; \
|
|
|
88 if (read (_fd, _buffer, _size) != _size) \
|
|
|
89 fatal_unexec (_error_message, _error_arg);
|
|
|
90
|
|
|
91 #define WRITE(_fd, _buffer, _size, _error_message, _error_arg) \
|
|
|
92 if (write (_fd, _buffer, _size) != _size) \
|
|
|
93 fatal_unexec (_error_message, _error_arg);
|
|
|
94
|
|
|
95 #define SEEK(_fd, _position, _error_message, _error_arg) \
|
|
|
96 errno = EEOF; \
|
|
|
97 if (lseek (_fd, _position, L_SET) != _position) \
|
|
|
98 fatal_unexec (_error_message, _error_arg);
|
|
|
99
|
|
|
100 extern char *strerror ();
|
|
|
101 #define EEOF -1
|
|
|
102
|
|
|
103 static struct scnhdr *text_section;
|
|
|
104 static struct scnhdr *init_section;
|
|
|
105 static struct scnhdr *finit_section;
|
|
|
106 static struct scnhdr *rdata_section;
|
|
|
107 static struct scnhdr *data_section;
|
|
|
108 static struct scnhdr *lit8_section;
|
|
|
109 static struct scnhdr *lit4_section;
|
|
|
110 static struct scnhdr *sdata_section;
|
|
|
111 static struct scnhdr *sbss_section;
|
|
|
112 static struct scnhdr *bss_section;
|
|
|
113
|
|
|
114 struct headers {
|
|
|
115 struct filehdr fhdr;
|
|
|
116 struct aouthdr aout;
|
|
|
117 struct scnhdr section[10];
|
|
|
118 };
|
|
|
119
|
|
|
120 /* Define name of label for entry point for the dumped executable. */
|
|
|
121
|
|
|
122 #ifndef DEFAULT_ENTRY_ADDRESS
|
|
|
123 #define DEFAULT_ENTRY_ADDRESS __start
|
|
|
124 #endif
|
|
|
125
|
|
|
126 unexec (new_name, a_name, data_start, bss_start, entry_address)
|
|
|
127 char *new_name, *a_name;
|
|
2286
|
128 unsigned data_start;
|
|
|
129 unsigned UNUSED (bss_start);
|
|
|
130 unsigned entry_address;
|
|
0
|
131 {
|
|
3025
|
132 int new_, old;
|
|
0
|
133 int pagesize, brk;
|
|
|
134 int newsyms, symrel;
|
|
|
135 int nread;
|
|
|
136 struct headers hdr;
|
|
|
137 int i;
|
|
|
138 int vaddr, scnptr;
|
|
|
139 #define BUFSIZE 8192
|
|
|
140 char buffer[BUFSIZE];
|
|
|
141
|
|
|
142 old = open (a_name, O_RDONLY, 0);
|
|
|
143 if (old < 0) fatal_unexec ("opening %s", a_name);
|
|
|
144
|
|
3025
|
145 new_ = creat (new_name, 0666);
|
|
|
146 if (new_ < 0) fatal_unexec ("creating %s", new_name);
|
|
0
|
147
|
|
|
148 hdr = *((struct headers *)TEXT_START);
|
|
|
149 #ifdef MIPS2
|
|
|
150 if (hdr.fhdr.f_magic != MIPSELMAGIC
|
|
|
151 && hdr.fhdr.f_magic != MIPSEBMAGIC
|
|
|
152 && hdr.fhdr.f_magic != (MIPSELMAGIC | 1)
|
|
|
153 && hdr.fhdr.f_magic != (MIPSEBMAGIC | 1))
|
|
|
154 {
|
|
|
155 fprintf (stderr,
|
|
|
156 "unexec: input file magic number is %x, not %x, %x, %x or %x.\n",
|
|
|
157 hdr.fhdr.f_magic,
|
|
|
158 MIPSELMAGIC, MIPSEBMAGIC,
|
|
|
159 MIPSELMAGIC | 1, MIPSEBMAGIC | 1);
|
|
|
160 exit(1);
|
|
|
161 }
|
|
|
162 #else /* not MIPS2 */
|
|
|
163 if (hdr.fhdr.f_magic != MIPSELMAGIC
|
|
|
164 && hdr.fhdr.f_magic != MIPSEBMAGIC)
|
|
|
165 {
|
|
|
166 fprintf (stderr, "unexec: input file magic number is %x, not %x or %x.\n",
|
|
|
167 hdr.fhdr.f_magic, MIPSELMAGIC, MIPSEBMAGIC);
|
|
|
168 exit (1);
|
|
|
169 }
|
|
|
170 #endif /* not MIPS2 */
|
|
|
171 if (hdr.fhdr.f_opthdr != sizeof (hdr.aout))
|
|
|
172 {
|
|
|
173 fprintf (stderr, "unexec: input a.out header is %d bytes, not %d.\n",
|
|
|
174 hdr.fhdr.f_opthdr, sizeof (hdr.aout));
|
|
|
175 exit (1);
|
|
|
176 }
|
|
|
177 if (hdr.aout.magic != ZMAGIC)
|
|
|
178 {
|
|
|
179 fprintf (stderr, "unexec: input file a.out magic number is %o, not %o.\n",
|
|
|
180 hdr.aout.magic, ZMAGIC);
|
|
|
181 exit (1);
|
|
|
182 }
|
|
|
183
|
|
|
184 #define CHECK_SCNHDR(ptr, name, flags) \
|
|
|
185 ptr = NULL; \
|
|
|
186 for (i = 0; i < hdr.fhdr.f_nscns && !ptr; i++) \
|
|
|
187 if (strcmp (hdr.section[i].s_name, name) == 0) \
|
|
|
188 { \
|
|
|
189 if (hdr.section[i].s_flags != flags) \
|
|
|
190 fprintf (stderr, "unexec: %x flags (%x expected) in %s section.\n", \
|
|
|
191 hdr.section[i].s_flags, flags, name); \
|
|
|
192 ptr = hdr.section + i; \
|
|
|
193 }
|
|
|
194
|
|
|
195 CHECK_SCNHDR (text_section, _TEXT, STYP_TEXT);
|
|
|
196 CHECK_SCNHDR (init_section, _INIT, STYP_INIT);
|
|
|
197 CHECK_SCNHDR (rdata_section, _RDATA, STYP_RDATA);
|
|
|
198 CHECK_SCNHDR (data_section, _DATA, STYP_DATA);
|
|
|
199 #ifdef _LIT8
|
|
|
200 CHECK_SCNHDR (lit8_section, _LIT8, STYP_LIT8);
|
|
|
201 CHECK_SCNHDR (lit4_section, _LIT4, STYP_LIT4);
|
|
|
202 #endif /* _LIT8 */
|
|
|
203 CHECK_SCNHDR (sdata_section, _SDATA, STYP_SDATA);
|
|
|
204 CHECK_SCNHDR (sbss_section, _SBSS, STYP_SBSS);
|
|
|
205 CHECK_SCNHDR (bss_section, _BSS, STYP_BSS);
|
|
|
206 #if 0 /* Apparently this error check goes off on irix 3.3,
|
|
|
207 but it doesn't indicate a real problem. */
|
|
|
208 if (i != hdr.fhdr.f_nscns)
|
|
|
209 fprintf (stderr, "unexec: %d sections found instead of %d.\n",
|
|
|
210 i, hdr.fhdr.f_nscns);
|
|
|
211 #endif
|
|
|
212
|
|
|
213 text_section->s_scnptr = 0;
|
|
|
214
|
|
|
215 pagesize = getpagesize ();
|
|
|
216 /* Casting to int avoids compiler error on NEWS-OS 5.0.2. */
|
|
|
217 brk = (((int) (sbrk (0))) + pagesize - 1) & (-pagesize);
|
|
|
218 hdr.aout.dsize = brk - DATA_START;
|
|
|
219 hdr.aout.bsize = 0;
|
|
|
220 if (entry_address == 0)
|
|
|
221 {
|
|
|
222 extern DEFAULT_ENTRY_ADDRESS ();
|
|
|
223 hdr.aout.entry = (unsigned)DEFAULT_ENTRY_ADDRESS;
|
|
|
224 }
|
|
|
225 else
|
|
|
226 hdr.aout.entry = entry_address;
|
|
|
227
|
|
|
228 hdr.aout.bss_start = hdr.aout.data_start + hdr.aout.dsize;
|
|
|
229 rdata_section->s_size = data_start - DATA_START;
|
|
|
230
|
|
|
231 /* Adjust start and virtual addresses of rdata_section, too. */
|
|
|
232 rdata_section->s_vaddr = DATA_START;
|
|
|
233 rdata_section->s_paddr = DATA_START;
|
|
|
234 rdata_section->s_scnptr = text_section->s_scnptr + hdr.aout.tsize;
|
|
|
235
|
|
|
236 data_section->s_vaddr = data_start;
|
|
|
237 data_section->s_paddr = data_start;
|
|
|
238 data_section->s_size = brk - data_start;
|
|
|
239 data_section->s_scnptr = rdata_section->s_scnptr + rdata_section->s_size;
|
|
|
240 vaddr = data_section->s_vaddr + data_section->s_size;
|
|
|
241 scnptr = data_section->s_scnptr + data_section->s_size;
|
|
|
242 if (lit8_section != NULL)
|
|
|
243 {
|
|
|
244 lit8_section->s_vaddr = vaddr;
|
|
|
245 lit8_section->s_paddr = vaddr;
|
|
|
246 lit8_section->s_size = 0;
|
|
|
247 lit8_section->s_scnptr = scnptr;
|
|
|
248 }
|
|
|
249 if (lit4_section != NULL)
|
|
|
250 {
|
|
|
251 lit4_section->s_vaddr = vaddr;
|
|
|
252 lit4_section->s_paddr = vaddr;
|
|
|
253 lit4_section->s_size = 0;
|
|
|
254 lit4_section->s_scnptr = scnptr;
|
|
|
255 }
|
|
|
256 if (sdata_section != NULL)
|
|
|
257 {
|
|
|
258 sdata_section->s_vaddr = vaddr;
|
|
|
259 sdata_section->s_paddr = vaddr;
|
|
|
260 sdata_section->s_size = 0;
|
|
|
261 sdata_section->s_scnptr = scnptr;
|
|
|
262 }
|
|
|
263 if (sbss_section != NULL)
|
|
|
264 {
|
|
|
265 sbss_section->s_vaddr = vaddr;
|
|
|
266 sbss_section->s_paddr = vaddr;
|
|
|
267 sbss_section->s_size = 0;
|
|
|
268 sbss_section->s_scnptr = scnptr;
|
|
|
269 }
|
|
|
270 if (bss_section != NULL)
|
|
|
271 {
|
|
|
272 bss_section->s_vaddr = vaddr;
|
|
|
273 bss_section->s_paddr = vaddr;
|
|
|
274 bss_section->s_size = 0;
|
|
|
275 bss_section->s_scnptr = scnptr;
|
|
|
276 }
|
|
|
277
|
|
3025
|
278 WRITE (new_, (void *) TEXT_START, hdr.aout.tsize,
|
|
0
|
279 "writing text section to %s", new_name);
|
|
3025
|
280 WRITE (new_, (void *) DATA_START, hdr.aout.dsize,
|
|
0
|
281 "writing data section to %s", new_name);
|
|
|
282
|
|
|
283 SEEK (old, hdr.fhdr.f_symptr, "seeking to start of symbols in %s", a_name);
|
|
|
284 errno = EEOF;
|
|
|
285 nread = read (old, buffer, BUFSIZE);
|
|
|
286 if (nread < sizeof (HDRR)) fatal_unexec ("reading symbols from %s", a_name);
|
|
|
287 newsyms = hdr.aout.tsize + hdr.aout.dsize;
|
|
|
288 symrel = newsyms - hdr.fhdr.f_symptr;
|
|
|
289 hdr.fhdr.f_symptr = newsyms;
|
|
|
290 #define symhdr ((pHDRR)buffer)
|
|
|
291 #ifdef MACH
|
|
|
292 for (i = 0; i < 11; i++)
|
|
|
293 symhdr->offsets[i].offset += symrel;
|
|
|
294 #else
|
|
|
295 symhdr->cbLineOffset += symrel;
|
|
|
296 symhdr->cbDnOffset += symrel;
|
|
|
297 symhdr->cbPdOffset += symrel;
|
|
|
298 symhdr->cbSymOffset += symrel;
|
|
|
299 symhdr->cbOptOffset += symrel;
|
|
|
300 symhdr->cbAuxOffset += symrel;
|
|
|
301 symhdr->cbSsOffset += symrel;
|
|
|
302 symhdr->cbSsExtOffset += symrel;
|
|
|
303 symhdr->cbFdOffset += symrel;
|
|
|
304 symhdr->cbRfdOffset += symrel;
|
|
|
305 symhdr->cbExtOffset += symrel;
|
|
|
306 #endif
|
|
|
307 #undef symhdr
|
|
|
308 do
|
|
|
309 {
|
|
3025
|
310 if (write (new_, buffer, nread) != nread)
|
|
0
|
311 fatal_unexec ("writing symbols to %s", new_name);
|
|
|
312 nread = read (old, buffer, BUFSIZE);
|
|
|
313 if (nread < 0) fatal_unexec ("reading symbols from %s", a_name);
|
|
|
314 #undef BUFSIZE
|
|
|
315 } while (nread != 0);
|
|
|
316
|
|
3025
|
317 SEEK (new_, 0, "seeking to start of header in %s", new_name);
|
|
|
318 WRITE (new_, &hdr, sizeof (hdr),
|
|
0
|
319 "writing header of %s", new_name);
|
|
|
320
|
|
|
321 close (old);
|
|
3025
|
322 close (new_);
|
|
0
|
323 mark_x (new_name);
|
|
|
324 }
|
|
|
325
|
|
|
326 /*
|
|
|
327 * mark_x
|
|
|
328 *
|
|
|
329 * After successfully building the new a.out, mark it executable
|
|
|
330 */
|
|
|
331
|
|
|
332 static void
|
|
|
333 mark_x (name)
|
|
|
334 char *name;
|
|
|
335 {
|
|
|
336 struct stat sbuf;
|
|
|
337 int um = umask (777);
|
|
|
338 umask (um);
|
|
|
339 if (stat (name, &sbuf) < 0)
|
|
|
340 fatal_unexec ("getting protection on %s", name);
|
|
|
341 sbuf.st_mode |= 0111 & ~um;
|
|
|
342 if (chmod (name, sbuf.st_mode) < 0)
|
|
|
343 fatal_unexec ("setting protection on %s", name);
|
|
|
344 }
|
|
|
345
|
|
|
346 static void
|
|
|
347 fatal_unexec (s, va_alist)
|
|
|
348 va_dcl
|
|
|
349 {
|
|
|
350 va_list ap;
|
|
|
351 if (errno == EEOF)
|
|
|
352 fputs ("unexec: unexpected end of file, ", stderr);
|
|
|
353 else
|
|
|
354 fprintf (stderr, "unexec: %s, ", strerror (errno));
|
|
|
355 va_start (ap);
|
|
|
356 _doprnt (s, ap, stderr);
|
|
|
357 fputs (".\n", stderr);
|
|
|
358 exit (1);
|
|
|
359 }
|
