rom/dos/internalloadseg_elf.c

   1 /*
   2     Copyright � 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Code to dynamically load ELF executables
   6     Lang: english
   7
   8     1997/12/13: Changed filename to internalloadseg_elf.c
   9                 Original file was created by digulla.
  10 */
  11
  12 #define DEBUG 0
  13
  14 #include <exec/memory.h>
  15 #include <proto/exec.h>
  16 #include <dos/dosasl.h>
  17 #include <proto/dos.h>
  18 #include <proto/arossupport.h>
  19 #include <aros/asmcall.h>
  20 #include "internalloadseg.h"
  21 #include "dos_intern.h"
  22
  23 #include <aros/debug.h>
  24 #include <string.h>
  25 #include <stddef.h>
  26
  27 #include <aros/macros.h>
  28
  29 #define SHT_PROGBITS    1
  30 #define SHT_SYMTAB      2
  31 #define SHT_STRTAB      3
  32 #define SHT_RELA        4
  33 #define SHT_NOBITS      8
  34 #define SHT_REL         9
  35 #define SHT_SYMTAB_SHNDX 18
  36
  37 #define ET_REL          1
  38
  39 #define EM_386          3
  40 #define EM_68K          4
  41 #define EM_PPC         20
  42 #define EM_ARM         40
  43 #define EM_X86_64       62      /* AMD x86-64 */
  44
  45 #define R_386_NONE      0
  46 #define R_386_32        1
  47 #define R_386_PC32      2
  48
  49 /* AMD x86-64 relocations.  */
  50 #define R_X86_64_NONE   0       /* No reloc */
  51 #define R_X86_64_64     1       /* Direct 64 bit  */
  52 #define R_X86_64_PC32   2       /* PC relative 32 bit signed */
  53
  54 #define R_68k_NONE      0
  55 #define R_68K_32        1
  56 #define R_68K_PC32      4
  57
  58 #define R_PPC_NONE      0
  59 #define R_PPC_ADDR32    1
  60 #define R_PPC_ADDR16_LO 4
  61 #define R_PPC_ADDR16_HA 6
  62 #define R_PPC_REL24     10
  63 #define R_PPC_REL32     26
  64
  65 #define R_ARM_NONE      0
  66 #define R_ARM_PC24      1
  67 #define R_ARM_ABS32     2
  68
  69 #define STT_OBJECT      1
  70 #define STT_FUNC        2
  71
  72 #define SHN_UNDEF       0
  73 #define SHN_LORESERVE   0xff00
  74 #define SHN_ABS         0xfff1
  75 #define SHN_COMMON      0xfff2
  76 #define SHN_XINDEX      0xffff
  77 #define SHN_HIRESERVE   0xffff
  78
  79 #define SHF_ALLOC            (1 << 1)
  80 #define SHF_EXECINSTR        (1 << 2)
  81
  82 #define ELF32_ST_TYPE(i)    ((i) & 0x0F)
  83
  84 #define EI_VERSION      6
  85 #define EV_CURRENT      1
  86
  87 #define EI_DATA         5
  88 #define ELFDATA2LSB     1
  89 #define ELFDATA2MSB     2
  90
  91 #define EI_CLASS        4
  92 #define ELFCLASS32      1
  93 #define ELFCLASS64      2               /* 64-bit objects */
  94
  95 #define ELF32_R_SYM(val)        ((val) >> 8)
  96 #define ELF32_R_TYPE(val)       ((val) & 0xff)
  97 #define ELF32_R_INFO(sym, type) (((sym) << 8) + ((type) & 0xff))
  98
  99
 100 struct elfheader
 101 {
 102     UBYTE ident[16];
 103     UWORD type;
 104     UWORD machine;
 105     ULONG version;
 106     APTR  entry;
 107     ULONG phoff;
 108     ULONG shoff;
 109     ULONG flags;
 110     UWORD ehsize;
 111     UWORD phentsize;
 112     UWORD phnum;
 113     UWORD shentsize;
 114     UWORD shnum;
 115     UWORD shstrndx;
 116
 117     /* these are internal, and not part of the header proper. they are wider
 118      * versions of shnum and shstrndx for when they don't fit in the header
 119      * and we need to get them from the first section header. see
 120      * load_header() for details
 121      */
 122     ULONG int_shnum;
 123     ULONG int_shstrndx;
 124 };
 125
 126 struct sheader
 127 {
 128     ULONG name;
 129     ULONG type;
 130     ULONG flags;
 131     APTR  addr;
 132     ULONG offset;
 133     ULONG size;
 134     ULONG link;
 135     ULONG info;
 136     ULONG addralign;
 137     ULONG entsize;
 138 };
 139
 140 struct symbol
 141 {
 142     ULONG name;     /* Offset of the name string in the string table */
 143     ULONG value;    /* Varies; eg. the offset of the symbol in its hunk */
 144     ULONG size;     /* How much memory does the symbol occupy */
 145     UBYTE info;     /* What kind of symbol is this ? (global, variable, etc) */
 146     UBYTE other;    /* undefined */
 147     UWORD shindex;  /* In which section is the symbol defined ? */
 148 };
 149
 150 struct relo
 151 {
 152     ULONG offset;   /* Address of the relocation relative to the section it refers to */
 153     ULONG info;     /* Type of the relocation */
 154 #if defined(__mc68000__) || defined (__x86_64__) || defined (__ppc__) || defined (__powerpc__) || defined(__arm__)
 155     LONG  addend;   /* Constant addend used to compute value */
 156 #endif
 157 };
 158
 159 struct hunk
 160 {
 161     ULONG size;
 162     BPTR  next;
 163     char  data[0];
 164 } __attribute__((packed));
 165
 166 #define BPTR2HUNK(bptr) ((struct hunk *)((char *)BADDR(bptr) - offsetof(struct hunk, next)))
 167 #define HUNK2BPTR(hunk) MKBADDR(&hunk->next)
 168
 169 /* convert section header number to array index */
 170 #define SHINDEX(n) \
 171     ((n) < SHN_LORESERVE ? (n) : ((n) <= SHN_HIRESERVE ? 0 : (n) - (SHN_HIRESERVE + 1 - SHN_LORESERVE)))
 172
 173 /* convert section header array index to section number */
 174 #define SHNUM(i) \
 175     ((i) < SHN_LORESERVE ? (i) : (i) + (SHN_HIRESERVE + 1 - SHN_LORESERVE))
 176
 177 #undef MyRead
 178 #undef MyAlloc
 179 #undef MyFree
 180
 181
 182 #define MyRead(file, buf, size)      \
 183     AROS_CALL3                       \
 184     (                                \
 185         LONG, funcarray[0],          \
 186         AROS_LCA(BPTR,   file, D1),  \
 187         AROS_LCA(void *, buf,  D2),  \
 188         AROS_LCA(LONG,   size, D3),  \
 189         struct DosLibrary *, DOSBase \
 190     )
 191
 192
 193 #define MyAlloc(size, flags)        \
 194     AROS_CALL2                      \
 195     (                               \
 196         void *, funcarray[1],       \
 197         AROS_LCA(ULONG, size,  D0), \
 198         AROS_LCA(ULONG, flags, D1), \
 199         struct ExecBase *, SysBase  \
 200     )
 201
 202
 203 #define MyFree(addr, size)          \
 204     AROS_CALL2                      \
 205     (                               \
 206         void, funcarray[2],         \
 207         AROS_LCA(void *, addr, A1), \
 208         AROS_LCA(ULONG,  size, D0), \
 209         struct ExecBase *, SysBase  \
 210     )
 211
 212 static int read_block
 213 (
 214     BPTR               file,
 215     ULONG              offset,
 216     APTR               buffer,
 217     ULONG              size,
 218     SIPTR              *funcarray,
 219     struct DosLibrary *DOSBase
 220 )
 221 {
 222     UBYTE *buf = (UBYTE *)buffer;
 223     LONG   subsize;
 224
 225     if (Seek(file, offset, OFFSET_BEGINNING) < 0)
 226         return 0;
 227
 228     while (size)
 229     {
 230         subsize = MyRead(file, buf, size);
 231
 232         if (subsize <= 0)
 233         {
 234             if (subsize == 0)
 235                 SetIoErr(ERROR_BAD_HUNK);
 236
 237             return 0;
 238         }
 239
 240         buf  += subsize;
 241         size -= subsize;
 242     }
 243
 244     return 1;
 245 }
 246
 247 static void * load_block
 248 (
 249     BPTR               file,
 250     ULONG              offset,
 251     ULONG              size,
 252     SIPTR             *funcarray,
 253     struct DosLibrary *DOSBase
 254 )
 255 {
 256     D(bug("[ELF Loader] Load Block\n"));
 257     D(bug("[ELF Loader] (size=%d)\n",size));
 258     D(bug("[ELF Loader] (funcarray=0x%x)\n",funcarray));
 259     D(bug("[ELF Loader] (funcarray[1]=0x%x)\n",funcarray[1]));
 260     void *block = MyAlloc(size, MEMF_ANY);
 261     if (block)
 262     {
 263         if (read_block(file, offset, block, size, funcarray, DOSBase))
 264             return block;
 265
 266         MyFree(block, size);
 267     }
 268     else
 269         SetIoErr(ERROR_NO_FREE_STORE);
 270
 271     return NULL;
 272 }
 273
 274 static int load_header(BPTR file, struct elfheader *eh, SIPTR *funcarray, struct DosLibrary *DOSBase) {
 275     if (!read_block(file, 0, eh, offsetof(struct elfheader, int_shnum), funcarray, DOSBase))
 276         return 0;
 277
 278     if (eh->ident[0] != 0x7f || eh->ident[1] != 'E'  ||
 279         eh->ident[2] != 'L'  || eh->ident[3] != 'F') {
 280         D(bug("[ELF Loader] Not an ELF object\n"));
 281         SetIoErr(ERROR_NOT_EXECUTABLE);
 282         return 0;
 283     }
 284     D(bug("[ELF Loader] ELF object\n"));
 285
 286     eh->int_shnum = eh->shnum;
 287     eh->int_shstrndx = eh->shstrndx;
 288
 289     /* the ELF header only uses 16 bits to store the count of section headers,
 290      * so it can't handle more than 65535 headers. if the count is 0, and an
 291      * offset is defined, then the real count can be found in the first
 292      * section header (which always exists).
 293      *
 294      * similarly, if the string table index is SHN_XINDEX, then the actual
 295      * index is found in the first section header also.
 296      *
 297      * see the System V ABI 2001-04-24 draft for more details.
 298      */
 299     if (eh->int_shnum == 0 || eh->int_shstrndx == SHN_XINDEX) {
 300         if (eh->shoff == 0) {
 301             SetIoErr(ERROR_NOT_EXECUTABLE);
 302             return 0;
 303         }
 304
 305         struct sheader sh;
 306         if (!read_block(file, eh->shoff, &sh, sizeof(sh), funcarray, DOSBase))
 307             return 0;
 308
 309         /* wider section header count is in the size field */
 310         if (eh->int_shnum == 0)
 311             eh->int_shnum = sh.size;
 312
 313         /* wider string table index is in the link field */
 314         if (eh->int_shstrndx == SHN_XINDEX)
 315             eh->int_shstrndx = sh.link;
 316
 317         /* sanity, if they're still invalid then this isn't elf */
 318         if (eh->int_shnum == 0 || eh->int_shstrndx == SHN_XINDEX) {
 319             SetIoErr(ERROR_NOT_EXECUTABLE);
 320             return 0;
 321         }
 322     }
 323
 324     if
 325     (
 326             eh->ident[EI_CLASS]   != ELFCLASS32  ||
 327         eh->ident[EI_VERSION] != EV_CURRENT  ||
 328         eh->type              != ET_REL      ||
 329
 330         #if defined(__i386__)
 331             eh->ident[EI_DATA] != ELFDATA2LSB ||
 332             eh->machine        != EM_386
 333
 334         #elif defined(__x86_64__)
 335             eh->ident[EI_DATA] != ELFDATA2LSB ||
 336             eh->machine        != EM_X86_64
 337
 338         #elif defined(__mc68000__)
 339             eh->ident[EI_DATA] != ELFDATA2MSB ||
 340             eh->machine        != EM_68K
 341
 342         #elif defined(__ppc__) || defined(__powerpc__)
 343             eh->ident[EI_DATA] != ELFDATA2MSB ||
 344             eh->machine        != EM_PPC
 345
 346         #elif defined(__arm__)
 347             eh->ident[EI_DATA] != ELFDATA2LSB ||
 348             eh->machine        != EM_ARM
 349 #warning ARM has not been tested, yet!
 350
 351         #else
 352         #    error Your architecture is not supported
 353         #endif
 354     )
 355     {
 356         D(bug("[ELF Loader] Object is of wrong type\n"));
 357         #if defined(__x86_64__)
 358             D(bug("[ELF Loader] EI_CLASS   is %d - should be %d\n", eh->ident[EI_CLASS],   ELFCLASS64));
 359         #else
 360             D(bug("[ELF Loader] EI_CLASS   is %d - should be %d\n", eh->ident[EI_CLASS],   ELFCLASS32));
 361         #endif
 362         D(bug("[ELF Loader] EI_VERSION is %d - should be %d\n", eh->ident[EI_VERSION], EV_CURRENT));
 363         D(bug("[ELF Loader] type       is %d - should be %d\n", eh->type,              ET_REL));
 364 #if defined (__i386__)
 365         D(bug("[ELF Loader] EI_DATA    is %d - should be %d\n", eh->ident[EI_DATA],ELFDATA2LSB));
 366 #elif defined (__mc68000__)
 367         D(bug("[ELF Loader] EI_DATA    is %d - should be %d\n", eh->ident[EI_DATA],ELFDATA2MSB));
 368 #elif defined(__ppc__) || defined(__powerpc__)
 369         D(bug("[ELF Loader] EI_DATA    is %d - should be %d\n", eh->ident[EI_DATA],ELFDATA2MSB));
 370 #elif defined (__arm__)
 371         D(bug("[ELF Loader] EI_DATA    is %d - should be %d\n", eh->ident[EI_DATA],ELFDATA2MSB));
 372 #endif
 373
 374 #if defined (__i386__)
 375         D(bug("[ELF Loader] machine    is %d - should be %d\n", eh->machine, EM_386));
 376 #elif defined(__mc68000__)
 377         D(bug("[ELF Loader] machine    is %d - should be %d\n", eh->machine, EM_68K));
 378 #elif defined(__ppc__) || defined(__powerpc__)
 379         D(bug("[ELF Loader] machine    is %d - should be %d\n", eh->machine, EM_PPC));
 380 #elif defined(__arm__)
 381         D(bug("[ELF Loader] machine    is %d - should be %d\n", eh->machine, EM_ARM));
 382 #endif
 383
 384         SetIoErr(ERROR_NOT_EXECUTABLE);
 385         return 0;
 386     }
 387
 388     return 1;
 389 }
 390
 391 static int load_hunk
 392 (
 393     BPTR                 file,
 394     BPTR               **next_hunk_ptr,
 395     struct sheader      *sh,
 396     SIPTR               *funcarray,
 397     BOOL                 do_align,
 398     struct DosLibrary   *DOSBase
 399 )
 400 {
 401     struct hunk *hunk;
 402     ULONG   hunk_size;
 403
 404     if (!sh->size)
 405         return 1;
 406
 407     /* The size of the hunk is the size of the section, plus
 408        the size of the hunk structure, plus the size of the alignment (if necessary)*/
 409     hunk_size = sh->size + sizeof(struct hunk);
 410
 411     if (do_align)
 412     {
 413          hunk_size += sh->addralign;
 414
 415          /* Also create space for a trampoline, if necessary */
 416          if (sh->flags & SHF_EXECINSTR)
 417              hunk_size += sizeof(struct FullJumpVec);
 418     }
 419
 420     hunk = MyAlloc(hunk_size, MEMF_ANY | (sh->type == SHT_NOBITS) ? MEMF_CLEAR : 0);
 421     if (hunk)
 422     {
 423         hunk->next = 0;
 424         hunk->size = hunk_size;
 425
 426         /* In case we are required to honour alignment, and If this section contains
 427            executable code, create a trampoline to its beginning, so that even if the
 428            alignment requirements make the actual code go much after the end of the
 429            hunk structure, the code can still be reached in the usual way.  */
 430         if (do_align)
 431         {
 432             if (sh->flags & SHF_EXECINSTR)
 433             {
 434                 sh->addr = (char *)AROS_ROUNDUP2
 435                 (
 436                     (ULONG)hunk->data + sizeof(struct FullJumpVec), sh->addralign
 437                 );
 438                 __AROS_SET_FULLJMP((struct FullJumpVec *)hunk->data, sh->addr);
 439             }
 440             else
 441                 sh->addr = (char *)AROS_ROUNDUP2((ULONG)hunk->data, sh->addralign);
 442         }
 443         else
 444             sh->addr = hunk->data;
 445
 446         /* Link the previous one with the new one */
 447         BPTR2HUNK(*next_hunk_ptr)->next = HUNK2BPTR(hunk);
 448
 449         /* Update the pointer to the previous one, which is now the current one */
 450         *next_hunk_ptr = HUNK2BPTR(hunk);
 451
 452         if (sh->type != SHT_NOBITS)
 453             return read_block(file, sh->offset, sh->addr, sh->size, funcarray, DOSBase);
 454
 455         return 1;
 456
 457     }
 458
 459     SetIoErr(ERROR_NO_FREE_STORE);
 460
 461     return 0;
 462 }
 463
 464 static int relocate
 465 (
 466     struct elfheader  *eh,
 467     struct sheader    *sh,
 468     ULONG              shrel_idx,
 469     struct sheader    *symtab_shndx,
 470     struct DosLibrary *DOSBase
 471 )
 472 {
 473     struct sheader *shrel    = &sh[shrel_idx];
 474     struct sheader *shsymtab = &sh[SHINDEX(shrel->link)];
 475     struct sheader *toreloc  = &sh[SHINDEX(shrel->info)];
 476
 477     struct symbol *symtab   = (struct symbol *)shsymtab->addr;
 478     struct relo   *rel      = (struct relo *)shrel->addr;
 479     char          *section  = toreloc->addr;
 480
 481     /* this happens if the target section has no allocation. that can happen
 482      * eg. with a .debug PROGBITS and a .rel.debug section */
 483     if (section == NULL)
 484         return 1;
 485
 486     ULONG numrel = shrel->size / shrel->entsize;
 487     ULONG i;
 488
 489     struct symbol *SysBase_sym = NULL;
 490
 491     for (i=0; i<numrel; i++, rel++)
 492     {
 493         struct symbol *sym = &symtab[ELF32_R_SYM(rel->info)];
 494         ULONG *p = (ULONG *)&section[rel->offset];
 495         ULONG  s;
 496         ULONG shindex;
 497
 498         if (sym->shindex != SHN_XINDEX)
 499             shindex = sym->shindex;
 500
 501         else {
 502             if (symtab_shndx == NULL) {
 503                 D(bug("[ELF Loader] got symbol with shndx 0xfff, but there's no symtab shndx table\n"));
 504                 SetIoErr(ERROR_BAD_HUNK);
 505                 return 0;
 506             }
 507             shindex = ((ULONG *)symtab_shndx->addr)[ELF32_R_SYM(rel->info)];
 508         }
 509
 510         switch (shindex)
 511         {
 512
 513             case SHN_UNDEF:
 514                 D(bug("[ELF Loader] Undefined symbol '%s' while relocating the section '%s'\n",
 515                       (STRPTR)sh[SHINDEX(shsymtab->link)].addr + sym->name,
 516                       (STRPTR)sh[SHINDEX(eh->int_shstrndx)].addr + toreloc->name));
 517                       SetIoErr(ERROR_BAD_HUNK);
 518                 return 0;
 519
 520             case SHN_COMMON:
 521                 D(bug("[ELF Loader] COMMON symbol '%s' while relocating the section '%s'\n",
 522                       (STRPTR)sh[SHINDEX(shsymtab->link)].addr + sym->name,
 523                       (STRPTR)sh[SHINDEX(eh->int_shstrndx)].addr + toreloc->name));
 524                       SetIoErr(ERROR_BAD_HUNK);
 525
 526                 return 0;
 527
 528             case SHN_ABS:
 529                 if (SysBase_sym == NULL)
 530                 {
 531                     if (strncmp((STRPTR)sh[SHINDEX(shsymtab->link)].addr + sym->name, "SysBase", 8) == 0)
 532                     {
 533                         SysBase_sym = sym;
 534                         goto SysBase_yes;
 535                     }
 536                     else
 537                         goto SysBase_no;
 538                 }
 539                 else
 540                 if (SysBase_sym == sym)
 541                 {
 542                     SysBase_yes: s = (ULONG)&SysBase;
 543                 }
 544                 else
 545                     SysBase_no:  s = sym->value;
 546                 break;
 547
 548             default:
 549                 s = (ULONG)sh[SHINDEX(shindex)].addr + sym->value;
 550         }
 551
 552         switch (ELF32_R_TYPE(rel->info))
 553         {
 554             #if defined(__i386__)
 555
 556             case R_386_32: /* 32bit absolute */
 557                 *p += s;
 558                 break;
 559
 560             case R_386_PC32: /* 32bit PC relative */
 561                 *p += s - (ULONG)p;
 562                 break;
 563
 564             case R_386_NONE:
 565                 break;
 566
 567             #elif defined(__x86_64__)
 568                 /* These weren't tested */
 569             case R_X86_64_64: /* 64bit direct/absolute */
 570                 *p = s + rel->addend;
 571                 break;
 572
 573             case R_X86_64_PC32: /* PC relative 32 bit signed */
 574                 *p = s + rel->addend - (ULONG)p;
 575                 break;
 576
 577             case R_X86_64_NONE: /* No reloc */
 578                 break;
 579
 580             #elif defined(__mc68000__)
 581
 582             case R_68K_32:
 583                 *p = s + rel->addend;
 584                 break;
 585
 586             case R_68K_PC32:
 587                 *p = s + rel->addend - (ULONG)p;
 588                 break;
 589
 590             case R_68k_NONE:
 591                 break;
 592
 593             #elif defined(__ppc__) || defined(__powerpc__)
 594
 595             case R_PPC_ADDR32:
 596                 *p = s + rel->addend;
 597                 break;
 598
 599             case R_PPC_ADDR16_LO:
 600                 {
 601                     unsigned short *c = (unsigned short *) p;
 602                     *c = (s + rel->addend) & 0xffff;
 603                 }
 604                 break;
 605
 606             case R_PPC_ADDR16_HA:
 607                 {
 608                     unsigned short *c = (unsigned short *) p;
 609                     ULONG temp = s + rel->addend;
 610                     *c = temp >> 16;
 611                     if ((temp & 0x8000) != 0)
 612                         (*c)++;
 613                 }
 614                 break;
 615
 616             case R_PPC_REL24:
 617                 *p &= ~0x3fffffc;
 618                 *p |= (s + rel->addend - (ULONG) p) & 0x3fffffc;
 619                 break;
 620
 621             case R_PPC_REL32:
 622                 *p = s + rel->addend - (ULONG) p;
 623                 break;
 624
 625             case R_PPC_NONE:
 626                 break;
 627
 628             #elif defined(__arm__)
 629
 630             /*
 631              * This has not been tested. Taken from ARMELF.pdf
 632              * from arm.com page 33ff.
 633              */
 634             case R_ARM_PC24:
 635                 *p = s + rel->addend - (ULONG)p;
 636                 break;
 637
 638             case R_ARM_ABS32:
 639                 *p = s + rel->addend;
 640                 break;
 641
 642             case R_ARM_NONE:
 643                 break;
 644
 645             #else
 646             #    error Your architecture is not supported
 647             #endif
 648
 649             default:
 650                 D(bug("[ELF Loader] Unrecognized relocation type %d %d\n", i, ELF32_R_TYPE(rel->info)));
 651                 SetIoErr(ERROR_BAD_HUNK);
 652                 return 0;
 653         }
 654     }
 655
 656     return 1;
 657 }
 658
 659 BPTR InternalLoadSeg_ELF
 660 (
 661     BPTR               file,
 662     BPTR               table __unused,
 663     SIPTR             *funcarray,
 664     SIPTR             *stack __unused,
 665     struct DosLibrary *DOSBase
 666 )
 667 {
 668     struct elfheader  eh;
 669     struct sheader   *sh;
 670     struct sheader   *symtab_shndx = NULL;
 671     BPTR   hunks         = 0;
 672     BPTR  *next_hunk_ptr = &hunks;
 673     ULONG  i;
 674     BOOL   exec_hunk_seen = FALSE;
 675
 676     /* load and validate ELF header */
 677     if (!load_header(file, &eh, funcarray, DOSBase))
 678         return 0;
 679
 680     /* load section headers */
 681     if (!(sh = load_block(file, eh.shoff, eh.int_shnum * eh.shentsize, funcarray, DOSBase)))
 682         return 0;
 683
 684     /* Iterate over the section headers in order to do some stuff... */
 685     for (i = 0; i < eh.int_shnum; i++)
 686     {
 687         /*
 688            Load the symbol and string table(s).
 689
 690            NOTICE: the ELF standard, at the moment (Nov 2002) explicitely states
 691                    that only one symbol table per file is allowed. However, it
 692                    also states that this may change in future... we already handle it.
 693         */
 694         if (sh[i].type == SHT_SYMTAB || sh[i].type == SHT_STRTAB || sh[i].type == SHT_SYMTAB_SHNDX)
 695         {
 696             sh[i].addr = load_block(file, sh[i].offset, sh[i].size, funcarray, DOSBase);
 697             if (!sh[i].addr)
 698                 goto error;
 699
 700             if (sh[i].type == SHT_SYMTAB_SHNDX) {
 701                 if (symtab_shndx == NULL)
 702                     symtab_shndx = &sh[i];
 703                 else
 704                     D(bug("[ELF Loader] file contains multiple symtab shndx tables. only using the first one\n"));
 705             }
 706         }
 707         else
 708         /* Load the section in memory if needed, and make an hunk out of it */
 709         if (sh[i].flags & SHF_ALLOC)
 710         {
 711             if (sh[i].size)
 712             {
 713                 /* Only allow alignment if this is an executable hunk
 714                    or if an executable hunk has been loaded already,
 715                    so to avoid the situation in which a data hunk has its
 716                    content displaced from the hunk's header in case it's the
 717                    first hunk (this happens with Keymaps, for instance).  */
 718                 if (sh[i].flags & SHF_EXECINSTR)
 719                     exec_hunk_seen = TRUE;
 720
 721                 if (!load_hunk(file, &next_hunk_ptr, &sh[i], funcarray, exec_hunk_seen, DOSBase))
 722                     goto error;
 723             }
 724         }
 725
 726     }
 727
 728     /* Relocate the sections */
 729     for (i = 0; i < eh.int_shnum; i++)
 730     {
 731         if
 732         (
 733             #if defined(__i386__)
 734
 735             sh[i].type == SHT_REL &&
 736
 737             #elif defined(__x86_64__)
 738
 739             sh[i].type == SHT_RELA &&
 740
 741             #elif defined(__mc68000__)
 742
 743             sh[i].type == SHT_RELA &&
 744
 745             #elif defined(__ppc__) || defined(__powerpc__)
 746
 747             sh[i].type == SHT_RELA &&
 748
 749             #elif defined(__arm__)
 750             #warning Missing code for ARM
 751 //            sh[i].type = SHT_
 752
 753             #else
 754             #    error Your architecture is not supported
 755             #endif
 756
 757             /* Does this relocation section refer to a hunk? If so, addr must be != 0 */
 758             sh[SHINDEX(sh[i].info)].addr
 759         )
 760         {
 761             sh[i].addr = load_block(file, sh[i].offset, sh[i].size, funcarray, DOSBase);
 762             if (!sh[i].addr || !relocate(&eh, sh, i, symtab_shndx, DOSBase))
 763                 goto error;
 764
 765             MyFree(sh[i].addr, sh[i].size);
 766             sh[i].addr = NULL;
 767         }
 768     }
 769
 770
 771     goto end;
 772
 773 error:
 774
 775     /* There were some errors, deallocate The hunks */
 776
 777     InternalUnLoadSeg(hunks, (VOID_FUNC)funcarray[2]);
 778     hunks = 0;
 779
 780 end:
 781
 782     /* Clear the caches to let the CPU see the new data and instructions */
 783     {
 784         BPTR curr = hunks;
 785         while (curr)
 786         {
 787              struct hunk *hunk = BPTR2HUNK(curr);
 788
 789              CacheClearE(hunk->data, hunk->size, CACRF_ClearD | CACRF_ClearI);
 790
 791              curr = hunk->next;
 792         }
 793     }
 794
 795     /* deallocate the symbol tables */
 796     for (i = 0; i < eh.int_shnum; i++)
 797     {
 798         if (((sh[i].type == SHT_SYMTAB) || (sh[i].type == SHT_STRTAB)) && (sh[i].addr != NULL))
 799             MyFree(sh[i].addr, sh[i].size);
 800     }
 801
 802     /* Free the section headers */
 803     MyFree(sh, eh.int_shnum * eh.shentsize);
 804
 805     return hunks;
 806 }
 807
 808 #undef MyRead1
 809 #undef MyAlloc
 810 #undef MyFree