]>
code.delx.au - gnu-emacs/blob - src/unexmips.c
1 /* Unexec for MIPS (including IRIS4D).
2 Note that the GNU project considers support for MIPS operation
3 a peripheral activity which should not be allowed to divert effort
4 from development of the GNU system. Changes in this code will be
5 installed when users send them in, but aside from that
6 we don't plan to think about it, or about whether other Emacs
7 maintenance might break it.
9 Copyright (C) 1988, 1994 Free Software Foundation, Inc.
11 This file is part of GNU Emacs.
13 GNU Emacs is free software; you can redistribute it and/or modify
14 it under the terms of the GNU General Public License as published by
15 the Free Software Foundation; either version 2, or (at your option)
18 GNU Emacs is distributed in the hope that it will be useful,
19 but WITHOUT ANY WARRANTY; without even the implied warranty of
20 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 GNU General Public License for more details.
23 You should have received a copy of the GNU General Public License
24 along with GNU Emacs; see the file COPYING. If not, write to
25 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
29 #include <sys/types.h>
39 /* I don't know why this isn't defined. */
41 #define STYP_INIT 0x80000000
44 /* I don't know why this isn't defined. */
46 #define _RDATA ".rdata"
47 #define STYP_RDATA 0x00000100
50 /* Small ("near") data section. */
52 #define _SDATA ".sdata"
53 #define STYP_SDATA 0x00000200
56 /* Small ("near") bss section. */
59 #define STYP_SBSS 0x00000400
62 /* We don't seem to have a sym.h or syms.h anywhere, so we'll do it the
63 hard way. This stinks. */
68 struct { long foo
, offset
; } offsets
[11];
80 #if defined (IRIS_4D) || defined (sony)
81 #include "getpagesize.h"
85 static void fatal_unexec ();
86 static void mark_x ();
88 #define READ(_fd, _buffer, _size, _error_message, _error_arg) \
90 if (read (_fd, _buffer, _size) != _size) \
91 fatal_unexec (_error_message, _error_arg);
93 #define WRITE(_fd, _buffer, _size, _error_message, _error_arg) \
94 if (write (_fd, _buffer, _size) != _size) \
95 fatal_unexec (_error_message, _error_arg);
97 #define SEEK(_fd, _position, _error_message, _error_arg) \
99 if (lseek (_fd, _position, L_SET) != _position) \
100 fatal_unexec (_error_message, _error_arg);
103 extern char *strerror ();
106 static struct scnhdr
*text_section
;
107 static struct scnhdr
*init_section
;
108 static struct scnhdr
*finit_section
;
109 static struct scnhdr
*rdata_section
;
110 static struct scnhdr
*data_section
;
111 static struct scnhdr
*lit8_section
;
112 static struct scnhdr
*lit4_section
;
113 static struct scnhdr
*sdata_section
;
114 static struct scnhdr
*sbss_section
;
115 static struct scnhdr
*bss_section
;
120 struct scnhdr section
[10];
123 /* Define name of label for entry point for the dumped executable. */
125 #ifndef DEFAULT_ENTRY_ADDRESS
126 #define DEFAULT_ENTRY_ADDRESS __start
129 unexec (new_name
, a_name
, data_start
, bss_start
, entry_address
)
130 char *new_name
, *a_name
;
131 unsigned data_start
, bss_start
, entry_address
;
141 char buffer
[BUFSIZE
];
143 old
= open (a_name
, O_RDONLY
, 0);
144 if (old
< 0) fatal_unexec ("opening %s", a_name
);
146 new = creat (new_name
, 0666);
147 if (new < 0) fatal_unexec ("creating %s", new_name
);
149 hdr
= *((struct headers
*)TEXT_START
);
151 if (hdr
.fhdr
.f_magic
!= MIPSELMAGIC
152 && hdr
.fhdr
.f_magic
!= MIPSEBMAGIC
153 && hdr
.fhdr
.f_magic
!= (MIPSELMAGIC
| 1)
154 && hdr
.fhdr
.f_magic
!= (MIPSEBMAGIC
| 1))
157 "unexec: input file magic number is %x, not %x, %x, %x or %x.\n",
159 MIPSELMAGIC
, MIPSEBMAGIC
,
160 MIPSELMAGIC
| 1, MIPSEBMAGIC
| 1);
163 #else /* not MIPS2 */
164 if (hdr
.fhdr
.f_magic
!= MIPSELMAGIC
165 && hdr
.fhdr
.f_magic
!= MIPSEBMAGIC
)
167 fprintf (stderr
, "unexec: input file magic number is %x, not %x or %x.\n",
168 hdr
.fhdr
.f_magic
, MIPSELMAGIC
, MIPSEBMAGIC
);
171 #endif /* not MIPS2 */
172 if (hdr
.fhdr
.f_opthdr
!= sizeof (hdr
.aout
))
174 fprintf (stderr
, "unexec: input a.out header is %d bytes, not %d.\n",
175 hdr
.fhdr
.f_opthdr
, sizeof (hdr
.aout
));
178 if (hdr
.aout
.magic
!= ZMAGIC
)
180 fprintf (stderr
, "unexec: input file a.out magic number is %o, not %o.\n",
181 hdr
.aout
.magic
, ZMAGIC
);
185 #define CHECK_SCNHDR(ptr, name, flags) \
187 for (i = 0; i < hdr.fhdr.f_nscns && !ptr; i++) \
188 if (strcmp (hdr.section[i].s_name, name) == 0) \
190 if (hdr.section[i].s_flags != flags) \
191 fprintf (stderr, "unexec: %x flags (%x expected) in %s section.\n", \
192 hdr.section[i].s_flags, flags, name); \
193 ptr = hdr.section + i; \
196 CHECK_SCNHDR (text_section, _TEXT, STYP_TEXT);
197 CHECK_SCNHDR (init_section
, _INIT
, STYP_INIT
);
198 CHECK_SCNHDR (rdata_section
, _RDATA
, STYP_RDATA
);
199 CHECK_SCNHDR (data_section
, _DATA
, STYP_DATA
);
201 CHECK_SCNHDR (lit8_section
, _LIT8
, STYP_LIT8
);
202 CHECK_SCNHDR (lit4_section
, _LIT4
, STYP_LIT4
);
204 CHECK_SCNHDR (sdata_section
, _SDATA
, STYP_SDATA
);
205 CHECK_SCNHDR (sbss_section
, _SBSS
, STYP_SBSS
);
206 CHECK_SCNHDR (bss_section
, _BSS
, STYP_BSS
);
207 #if 0 /* Apparently this error check goes off on irix 3.3,
208 but it doesn't indicate a real problem. */
209 if (i
!= hdr
.fhdr
.f_nscns
)
210 fprintf (stderr
, "unexec: %d sections found instead of %d.\n",
211 i
, hdr
.fhdr
.f_nscns
);
214 text_section
->s_scnptr
= 0;
216 pagesize
= getpagesize ();
217 /* Casting to int avoids compiler error on NEWS-OS 5.0.2. */
218 brk
= (((int) (sbrk (0))) + pagesize
- 1) & (-pagesize
);
219 hdr
.aout
.dsize
= brk
- DATA_START
;
221 if (entry_address
== 0)
223 extern DEFAULT_ENTRY_ADDRESS ();
224 hdr
.aout
.entry
= (unsigned)DEFAULT_ENTRY_ADDRESS
;
227 hdr
.aout
.entry
= entry_address
;
229 hdr
.aout
.bss_start
= hdr
.aout
.data_start
+ hdr
.aout
.dsize
;
230 rdata_section
->s_size
= data_start
- DATA_START
;
232 /* Adjust start and virtual addresses of rdata_section, too. */
233 rdata_section
->s_vaddr
= DATA_START
;
234 rdata_section
->s_paddr
= DATA_START
;
235 rdata_section
->s_scnptr
= text_section
->s_scnptr
+ hdr
.aout
.tsize
;
237 data_section
->s_vaddr
= data_start
;
238 data_section
->s_paddr
= data_start
;
239 data_section
->s_size
= brk
- data_start
;
240 data_section
->s_scnptr
= rdata_section
->s_scnptr
+ rdata_section
->s_size
;
241 vaddr
= data_section
->s_vaddr
+ data_section
->s_size
;
242 scnptr
= data_section
->s_scnptr
+ data_section
->s_size
;
243 if (lit8_section
!= NULL
)
245 lit8_section
->s_vaddr
= vaddr
;
246 lit8_section
->s_paddr
= vaddr
;
247 lit8_section
->s_size
= 0;
248 lit8_section
->s_scnptr
= scnptr
;
250 if (lit4_section
!= NULL
)
252 lit4_section
->s_vaddr
= vaddr
;
253 lit4_section
->s_paddr
= vaddr
;
254 lit4_section
->s_size
= 0;
255 lit4_section
->s_scnptr
= scnptr
;
257 if (sdata_section
!= NULL
)
259 sdata_section
->s_vaddr
= vaddr
;
260 sdata_section
->s_paddr
= vaddr
;
261 sdata_section
->s_size
= 0;
262 sdata_section
->s_scnptr
= scnptr
;
264 if (sbss_section
!= NULL
)
266 sbss_section
->s_vaddr
= vaddr
;
267 sbss_section
->s_paddr
= vaddr
;
268 sbss_section
->s_size
= 0;
269 sbss_section
->s_scnptr
= scnptr
;
271 if (bss_section
!= NULL
)
273 bss_section
->s_vaddr
= vaddr
;
274 bss_section
->s_paddr
= vaddr
;
275 bss_section
->s_size
= 0;
276 bss_section
->s_scnptr
= scnptr
;
279 WRITE (new, (char *)TEXT_START
, hdr
.aout
.tsize
,
280 "writing text section to %s", new_name
);
281 WRITE (new, (char *)DATA_START
, hdr
.aout
.dsize
,
282 "writing data section to %s", new_name
);
284 SEEK (old
, hdr
.fhdr
.f_symptr
, "seeking to start of symbols in %s", a_name
);
286 nread
= read (old
, buffer
, BUFSIZE
);
287 if (nread
< sizeof (HDRR
)) fatal_unexec ("reading symbols from %s", a_name
);
288 newsyms
= hdr
.aout
.tsize
+ hdr
.aout
.dsize
;
289 symrel
= newsyms
- hdr
.fhdr
.f_symptr
;
290 hdr
.fhdr
.f_symptr
= newsyms
;
291 #define symhdr ((pHDRR)buffer)
293 for (i
= 0; i
< 11; i
++)
294 symhdr
->offsets
[i
].offset
+= symrel
;
296 symhdr
->cbLineOffset
+= symrel
;
297 symhdr
->cbDnOffset
+= symrel
;
298 symhdr
->cbPdOffset
+= symrel
;
299 symhdr
->cbSymOffset
+= symrel
;
300 symhdr
->cbOptOffset
+= symrel
;
301 symhdr
->cbAuxOffset
+= symrel
;
302 symhdr
->cbSsOffset
+= symrel
;
303 symhdr
->cbSsExtOffset
+= symrel
;
304 symhdr
->cbFdOffset
+= symrel
;
305 symhdr
->cbRfdOffset
+= symrel
;
306 symhdr
->cbExtOffset
+= symrel
;
311 if (write (new, buffer
, nread
) != nread
)
312 fatal_unexec ("writing symbols to %s", new_name
);
313 nread
= read (old
, buffer
, BUFSIZE
);
314 if (nread
< 0) fatal_unexec ("reading symbols from %s", a_name
);
316 } while (nread
!= 0);
318 SEEK (new, 0, "seeking to start of header in %s", new_name
);
319 WRITE (new, &hdr
, sizeof (hdr
),
320 "writing header of %s", new_name
);
330 * After successfully building the new a.out, mark it executable
338 int um
= umask (777);
340 if (stat (name
, &sbuf
) < 0)
341 fatal_unexec ("getting protection on %s", name
);
342 sbuf
.st_mode
|= 0111 & ~um
;
343 if (chmod (name
, sbuf
.st_mode
) < 0)
344 fatal_unexec ("setting protection on %s", name
);
348 fatal_unexec (s
, va_alist
)
353 fputs ("unexec: unexpected end of file, ", stderr
);
355 fprintf (stderr
, "unexec: %s, ", strerror (errno
));
357 _doprnt (s
, ap
, stderr
);
358 fputs (".\n", stderr
);