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 }