/[gxemul]/trunk/src/file.c
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/src/file.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 4 by dpavlin, Mon Oct 8 16:18:00 2007 UTC revision 10 by dpavlin, Mon Oct 8 16:18:27 2007 UTC
# Line 25  Line 25 
25   *  SUCH DAMAGE.   *  SUCH DAMAGE.
26   *   *
27   *   *
28   *  $Id: file.c,v 1.88 2005/04/17 00:15:24 debug Exp $   *  $Id: file.c,v 1.99 2005/06/26 09:21:28 debug Exp $
29   *   *
30   *  This file contains functions which load executable images into (emulated)   *  This file contains functions which load executable images into (emulated)
31   *  memory.  File formats recognized so far:   *  memory.  File formats recognized so far:
# Line 123  struct ms_sym { Line 123  struct ms_sym {
123          }          }
124    
125    
126    #define AOUT_FLAG_DECOSF1               1
127    #define AOUT_FLAG_FROM_BEGINNING        2
128  /*  /*
129   *  file_load_aout():   *  file_load_aout():
130   *   *
# Line 133  struct ms_sym { Line 135  struct ms_sym {
135   *         formats, where text/data are aligned differently.   *         formats, where text/data are aligned differently.
136   */   */
137  static void file_load_aout(struct machine *m, struct memory *mem,  static void file_load_aout(struct machine *m, struct memory *mem,
138          char *filename, int osf1_hack,          char *filename, int flags,
139          uint64_t *entrypointp, int arch, int *byte_orderp)          uint64_t *entrypointp, int arch, int *byte_orderp)
140  {  {
141          struct exec aout_header;          struct exec aout_header;
# Line 152  static void file_load_aout(struct machin Line 154  static void file_load_aout(struct machin
154                  exit(1);                  exit(1);
155          }          }
156    
157          if (osf1_hack) {          if (flags & AOUT_FLAG_DECOSF1) {
158                  fread(&buf, 1, 32, f);                  fread(&buf, 1, 32, f);
159                  vaddr = buf[16] + (buf[17] << 8) +                  vaddr = buf[16] + (buf[17] << 8) +
160                      (buf[18] << 16) + (buf[19] << 24);                      (buf[18] << 16) + (buf[19] << 24);
# Line 163  static void file_load_aout(struct machin Line 165  static void file_load_aout(struct machin
165                  symbsize = 0;                  symbsize = 0;
166                  fseek(f, 0, SEEK_END);                  fseek(f, 0, SEEK_END);
167                  /*  This is of course wrong, but should work anyway:  */                  /*  This is of course wrong, but should work anyway:  */
168                  textsize = ftell(f) - 512;                  textsize = ftello(f) - 512;
169                  datasize = 0;                  datasize = 0;
170                  fseek(f, 512, SEEK_SET);                  fseek(f, 512, SEEK_SET);
171          } else {          } else {
# Line 185  static void file_load_aout(struct machin Line 187  static void file_load_aout(struct machin
187                  unencode(symbsize, &aout_header.a_syms, uint32_t);                  unencode(symbsize, &aout_header.a_syms, uint32_t);
188          }          }
189    
190            if (flags & AOUT_FLAG_FROM_BEGINNING) {
191                    fseek(f, 0, SEEK_SET);
192                    vaddr &= ~0xfff;
193            }
194    
195          /*  Load text and data:  */          /*  Load text and data:  */
196          total_len = textsize + datasize;          total_len = textsize + datasize;
197          while (total_len != 0) {          while (total_len != 0) {
# Line 198  static void file_load_aout(struct machin Line 205  static void file_load_aout(struct machin
205                          m->cpus[0]->memory_rw(m->cpus[0], mem, vaddr,                          m->cpus[0]->memory_rw(m->cpus[0], mem, vaddr,
206                              &buf[0], len, MEM_WRITE, NO_EXCEPTIONS);                              &buf[0], len, MEM_WRITE, NO_EXCEPTIONS);
207                  else {                  else {
208                          if (osf1_hack)                          if (flags & AOUT_FLAG_DECOSF1)
209                                  break;                                  break;
210                          else {                          else {
211                                  fprintf(stderr, "could not read from %s\n",                                  fprintf(stderr, "could not read from %s\n",
# Line 219  static void file_load_aout(struct machin Line 226  static void file_load_aout(struct machin
226                  char *string_symbols;                  char *string_symbols;
227                  off_t oldpos;                  off_t oldpos;
228    
229                  debug("symbols: %i bytes @ 0x%x\n", symbsize, (int)ftell(f));                  debug("symbols: %i bytes @ 0x%x\n", symbsize, (int)ftello(f));
230                  syms = malloc(symbsize);                  syms = malloc(symbsize);
231                  if (syms == NULL) {                  if (syms == NULL) {
232                          fprintf(stderr, "out of memory\n");                          fprintf(stderr, "out of memory\n");
# Line 232  static void file_load_aout(struct machin Line 239  static void file_load_aout(struct machin
239                          exit(1);                          exit(1);
240                  }                  }
241    
242                  oldpos = ftell(f);                  oldpos = ftello(f);
243                  fseek(f, 0, SEEK_END);                  fseek(f, 0, SEEK_END);
244                  strings_len = ftell(f) - oldpos;                  strings_len = ftello(f) - oldpos;
245                  fseek(f, oldpos, SEEK_SET);                  fseek(f, oldpos, SEEK_SET);
246                  debug("strings: %i bytes @ 0x%x\n", strings_len, (int)ftell(f));                  debug("strings: %i bytes @ 0x%x\n", strings_len,(int)ftello(f));
247                  string_symbols = malloc(strings_len);                  string_symbols = malloc(strings_len);
248                  if (string_symbols == NULL) {                  if (string_symbols == NULL) {
249                          fprintf(stderr, "out of memory\n");                          fprintf(stderr, "out of memory\n");
# Line 268  static void file_load_aout(struct machin Line 275  static void file_load_aout(struct machin
275    
276          fclose(f);          fclose(f);
277    
278          *entrypointp = entry;          *entrypointp = (int32_t)entry;
279    
280          if (encoding == ELFDATA2LSB)          if (encoding == ELFDATA2LSB)
281                  *byte_orderp = EMUL_LITTLE_ENDIAN;                  *byte_orderp = EMUL_LITTLE_ENDIAN;
# Line 467  static void file_load_ecoff(struct machi Line 474  static void file_load_ecoff(struct machi
474                  if (s_scnptr != 0 && s_size != 0 &&                  if (s_scnptr != 0 && s_size != 0 &&
475                      s_vaddr != 0 && !(s_flags & 0x02)) {                      s_vaddr != 0 && !(s_flags & 0x02)) {
476                          /*  Remember the current file offset:  */                          /*  Remember the current file offset:  */
477                          oldpos = ftell(f);                          oldpos = ftello(f);
478    
479                          /*  Load the section into emulated memory:  */                          /*  Load the section into emulated memory:  */
480                          fseek(f, s_scnptr, SEEK_SET);                          fseek(f, s_scnptr, SEEK_SET);
# Line 893  static void file_load_raw(struct machine Line 900  static void file_load_raw(struct machine
900          }          }
901    
902          debug("RAW: 0x%llx bytes @ 0x%08llx",          debug("RAW: 0x%llx bytes @ 0x%08llx",
903              (long long) (ftell(f) - skip), (long long)loadaddr);              (long long) (ftello(f) - skip), (long long)loadaddr);
904          if (skip != 0)          if (skip != 0)
905                  debug(" (0x%llx bytes of header skipped)", (long long)skip);                  debug(" (0x%llx bytes of header skipped)", (long long)skip);
906          debug("\n");          debug("\n");
# Line 999  static void file_load_elf(struct machine Line 1006  static void file_load_elf(struct machine
1006                  unencode(eshoff,     &hdr64.e_shoff,     Elf64_Off);                  unencode(eshoff,     &hdr64.e_shoff,     Elf64_Off);
1007                  if (ephentsize != sizeof(Elf64_Phdr)) {                  if (ephentsize != sizeof(Elf64_Phdr)) {
1008                          fprintf(stderr, "%s: incorrect phentsize? %i, should "                          fprintf(stderr, "%s: incorrect phentsize? %i, should "
1009                              "be %i\n", filename, (int)ephentsize,                              "be %i\nPerhaps this is a dynamically linked "
1010                              (int)sizeof(Elf64_Phdr));                              "binary (which isn't supported yet).\n", filename,
1011                                (int)ephentsize, (int)sizeof(Elf64_Phdr));
1012                          exit(1);                          exit(1);
1013                  }                  }
1014                  if (eshentsize != sizeof(Elf64_Shdr)) {                  if (eshentsize != sizeof(Elf64_Shdr)) {
1015                          fprintf(stderr, "%s: incorrect phentsize? %i, should "                          fprintf(stderr, "%s: incorrect shentsize? %i, should "
1016                              "be %i\n", filename, (int)ephentsize,                              "be %i\nPerhaps this is a dynamically linked "
1017                              (int)sizeof(Elf64_Shdr));                              "binary (which isn't supported yet).\n", filename,
1018                                (int)eshentsize, (int)sizeof(Elf64_Shdr));
1019                          exit(1);                          exit(1);
1020                  }                  }
1021          } else {          } else {
# Line 1022  static void file_load_elf(struct machine Line 1031  static void file_load_elf(struct machine
1031                  unencode(eshoff,     &hdr32.e_shoff,     Elf32_Off);                  unencode(eshoff,     &hdr32.e_shoff,     Elf32_Off);
1032                  if (ephentsize != sizeof(Elf32_Phdr)) {                  if (ephentsize != sizeof(Elf32_Phdr)) {
1033                          fprintf(stderr, "%s: incorrect phentsize? %i, should "                          fprintf(stderr, "%s: incorrect phentsize? %i, should "
1034                              "be %i\n", filename, (int)ephentsize,                              "be %i\nPerhaps this is a dynamically linked "
1035                              (int)sizeof(Elf32_Phdr));                              "binary (which isn't supported yet).\n", filename,
1036                                (int)ephentsize, (int)sizeof(Elf32_Phdr));
1037                          exit(1);                          exit(1);
1038                  }                  }
1039                  if (eshentsize != sizeof(Elf32_Shdr)) {                  if (eshentsize != sizeof(Elf32_Shdr)) {
1040                          fprintf(stderr, "%s: incorrect phentsize? %i, should "                          fprintf(stderr, "%s: incorrect shentsize? %i, should "
1041                              "be %i\n", filename, (int)ephentsize,                              "be %i\nPerhaps this is a dynamically linked "
1042                              (int)sizeof(Elf32_Shdr));                              "binary (which isn't supported yet).\n", filename,
1043                                (int)eshentsize, (int)sizeof(Elf32_Shdr));
1044                          exit(1);                          exit(1);
1045                  }                  }
1046          }          }
# Line 1080  static void file_load_elf(struct machine Line 1091  static void file_load_elf(struct machine
1091                  switch (emachine) {                  switch (emachine) {
1092                  case EM_386:                  case EM_386:
1093                  case EM_486:                  case EM_486:
1094                            *tocp = 1;
1095                          ok = 1;                          ok = 1;
1096                          break;                          break;
1097                  case EM_AMD64:                  case EM_AMD64:
1098                          *tocp = 1;                          *tocp = 2;
1099                          ok = 1;                          ok = 1;
1100                          break;                          break;
1101                  }                  }
1102                  break;                  break;
1103            case ARCH_ARM:
1104                    switch (emachine) {
1105                    case EM_ARM:
1106                            ok = 1;
1107                    }
1108                    break;
1109          default:          default:
1110                  fatal("file.c: INTERNAL ERROR: Unimplemented arch!\n");                  fatal("file.c: INTERNAL ERROR: Unimplemented arch!\n");
1111          }          }
# Line 1193  static void file_load_elf(struct machine Line 1211  static void file_load_elf(struct machine
1211    
1212                          debug(" len=0x%llx\n", (long long)p_memsz);                          debug(" len=0x%llx\n", (long long)p_memsz);
1213    
1214                          if (p_vaddr != p_paddr) {                          if (p_vaddr != p_paddr)
1215                                  fprintf(stderr, "%s: vaddr != paddr. TODO: "                                  fatal("WARNING! vaddr (0x%llx) and paddr "
1216                                      "how to handle this? vaddr=%016llx paddr"                                      "(0x%llx) differ; using vaddr\n",
1217                                      "=%016llx\n", filename, (long long)p_vaddr,                                      (long long)p_vaddr, (long long)p_paddr);
                                     (long long)p_paddr);  
                                 exit(1);  
                         }  
1218    
1219                          if (p_memsz < p_filesz) {                          if (p_memsz < p_filesz) {
1220                                  fprintf(stderr, "%s: memsz < filesz. TODO: how"                                  fprintf(stderr, "%s: memsz < filesz. TODO: how"
# Line 1424  static void file_load_elf(struct machine Line 1439  static void file_load_elf(struct machine
1439                          if (size == 0)                          if (size == 0)
1440                                  size ++;                                  size ++;
1441    
1442                          if (addr != 0) {                          if (addr != 0) /* && ((st_info >> 4) & 0xf)
1443                                >= STB_GLOBAL) */ {
1444                                  /*  debug("symbol info=0x%02x addr=0x%016llx"                                  /*  debug("symbol info=0x%02x addr=0x%016llx"
1445                                      " '%s'\n", st_info, (long long)addr,                                      " '%s'\n", st_info, (long long)addr,
1446                                      symbol_strings + st_name);  */                                      symbol_strings + st_name);  */
# Line 1528  void file_load(struct machine *machine, Line 1544  void file_load(struct machine *machine,
1544          int iadd = 4;          int iadd = 4;
1545          FILE *f;          FILE *f;
1546          unsigned char buf[12];          unsigned char buf[12];
1547          int len, i;          unsigned char buf2[2];
1548            size_t len, len2, i;
1549          off_t size;          off_t size;
1550    
1551          if (byte_orderp == NULL) {          if (byte_orderp == NULL) {
# Line 1560  void file_load(struct machine *machine, Line 1577  void file_load(struct machine *machine,
1577          }          }
1578    
1579          fseek(f, 0, SEEK_END);          fseek(f, 0, SEEK_END);
1580          size = ftell(f);          size = ftello(f);
1581          fseek(f, 0, SEEK_SET);          fseek(f, 0, SEEK_SET);
1582    
1583          memset(buf, 0, sizeof(buf));          memset(buf, 0, sizeof(buf));
1584          len = fread(buf, 1, sizeof(buf), f);          len = fread(buf, 1, sizeof(buf), f);
1585            fseek(f, 510, SEEK_SET);
1586            len2 = fread(buf2, 1, sizeof(buf2), f);
1587          fclose(f);          fclose(f);
1588    
1589          if (len < (signed int)sizeof(buf)) {          if (len < (signed int)sizeof(buf)) {
# Line 1580  void file_load(struct machine *machine, Line 1599  void file_load(struct machine *machine,
1599                  goto ret;                  goto ret;
1600          }          }
1601    
1602          /*  Is it an a.out?  (Special case for DEC OSF1 kernels.)  */          /*  Is it an a.out?  */
1603          if (buf[0]==0x00 && buf[1]==0x8b && buf[2]==0x01 && buf[3]==0x07) {          if (buf[0]==0x00 && buf[1]==0x8b && buf[2]==0x01 && buf[3]==0x07) {
1604                    /*  MIPS a.out  */
1605                  file_load_aout(machine, mem, filename, 0,                  file_load_aout(machine, mem, filename, 0,
1606                      entrypointp, arch, byte_orderp);                      entrypointp, arch, byte_orderp);
1607                  goto ret;                  goto ret;
1608          }          }
1609            if (buf[0]==0x00 && buf[1]==0x86 && buf[2]==0x01 && buf[3]==0x0b) {
1610                    /*  i386 a.out (old OpenBSD and NetBSD etc)  */
1611                    file_load_aout(machine, mem, filename, AOUT_FLAG_FROM_BEGINNING,
1612                        entrypointp, arch, byte_orderp);
1613                    goto ret;
1614            }
1615          if (buf[0]==0x00 && buf[2]==0x00 && buf[8]==0x7a && buf[9]==0x75) {          if (buf[0]==0x00 && buf[2]==0x00 && buf[8]==0x7a && buf[9]==0x75) {
1616                  file_load_aout(machine, mem, filename, 1,                  /*  DEC OSF1 on MIPS:  */
1617                    file_load_aout(machine, mem, filename, AOUT_FLAG_DECOSF1,
1618                      entrypointp, arch, byte_orderp);                      entrypointp, arch, byte_orderp);
1619                  goto ret;                  goto ret;
1620          }          }
# Line 1632  void file_load(struct machine *machine, Line 1659  void file_load(struct machine *machine,
1659                  fprintf(stderr, "\nThis file is very large (%lli bytes)\n",                  fprintf(stderr, "\nThis file is very large (%lli bytes)\n",
1660                      (long long)size);                      (long long)size);
1661                  fprintf(stderr, "Are you sure it is a kernel and not a disk "                  fprintf(stderr, "Are you sure it is a kernel and not a disk "
1662                      "image?\n");                      "image? (Use the -d option.)\n");
1663                  exit(1);                  exit(1);
1664          }          }
1665    
# Line 1655  void file_load(struct machine *machine, Line 1682  void file_load(struct machine *machine,
1682                              "unknown.\n\n ", filename);                              "unknown.\n\n ", filename);
1683                          for (i=0; i<(signed)sizeof(buf); i++)                          for (i=0; i<(signed)sizeof(buf); i++)
1684                                  fprintf(stderr, " %02x", buf[i]);                                  fprintf(stderr, " %02x", buf[i]);
1685    
1686                            if (len2 == 2 && buf2[0] == 0x55 && buf2[1] == 0xaa)
1687                                    fprintf(stderr, "\n\nIt has a PC-style "
1688                                        "bootsector marker.");
1689    
1690                          fprintf(stderr, "\n\nPossible explanations:\n\n"                          fprintf(stderr, "\n\nPossible explanations:\n\n"
1691                              "  o)  If this is a disk image, you forgot '-d' "                              "  o)  If this is a disk image, you forgot '-d' "
1692                              "on the command line.\n"                              "on the command line.\n"
Legend:
Removed from v.4  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.26