OSDN Git Service

the "all" target should not be depending on "ld-elf2flt"
[uclinux-h8/elf2flt.git] / elf2flt.c
index 889ea98..5e9c698 100644 (file)
--- a/elf2flt.c
+++ b/elf2flt.c
 #include <unistd.h>   /* Userland prototypes of the Unix std system calls    */
 #include <fcntl.h>    /* Flag value for file handling functions              */
 #include <time.h>
-#ifndef WIN32
-#include <netinet/in.h> /* Consts and structs defined by the internet system */
-#define        BINARY_FILE_OPTS
-#else
-#include <winsock2.h>
-#define        BINARY_FILE_OPTS "b"
-#endif
 
 /* from $(INSTALLDIR)/include       */
 #include <bfd.h>      /* Main header file for the BFD library                */
 #include <libiberty.h>
 
+#include "stubs.h"
+const char *elf2flt_progname;
+
 #if defined(TARGET_h8300)
 #include <elf/h8.h>      /* TARGET_* ELF support for the BFD library            */
 #elif defined(__CYGWIN__) || defined(__MINGW32__) || defined(TARGET_nios) || defined(TARGET_nios2)
 #include "cygwin-elf.h"        /* Cygwin uses a local copy */
 #elif defined(TARGET_microblaze)
 #include <elf/microblaze.h>    /* TARGET_* ELF support for the BFD library */
-#elif defined(TARGET_bfin)
-#include "elf/bfin.h"
 #else
 #include <elf.h>      /* TARGET_* ELF support for the BFD library            */
 #endif
 
+/* Always include Blackfin-specific defines in addition to common ELF stuff
+ * above as the common elf headers often do not have our relocs.
+ */
+#if defined(TARGET_bfin) && !defined(R_BFIN_RIMM16)
+#include "elf/bfin.h"
+#endif
+
 #if defined(__MINGW32__)
 #include <getopt.h>
 #endif
 #define ARCH    "e1-coff"
 #elif defined(TARGET_bfin)
 #define ARCH   "bfin"
-#define FLAT_RELOC_TYPE_TEXT 0
-#define FLAT_RELOC_TYPE_DATA 1
-#define FLAT_RELOC_TYPE_BSS 2
-#define FLAT_RELOC_TYPE_STACK 3
-#define FLAT_RELOC_PART_LO 0
-#define FLAT_RELOC_PART_HI 1
-#define PCREL24_MAGIC_OFFSET -1
 #elif defined(TARGET_nios)
 #define ARCH   "nios"
 #elif defined(TARGET_nios2)
@@ -152,75 +146,9 @@ int use_resolved = 0; /* If true, get the value of symbol references from */
                      /* versions of GNU ld will give you a fully resolved */
                      /* output file with relocation entries).  */
 
-const char *progname, *filename;
-int lineno;
-
-int nerrors = 0;
-int nwarnings = 0;
-
-static char where[200];
-
-enum {
-  /* Use exactly one of these: */
-  E_NOFILE = 0,         /* "progname: " */
-  E_FILE = 1,           /* "filename: " */
-  E_FILELINE = 2,       /* "filename:lineno: " */
-  E_FILEWHERE = 3,      /* "filename:%s: " -- set %s with ewhere() */
-          
-  /* Add in any of these with |': */
-  E_WARNING = 0x10,
-  E_PERROR = 0x20
-};
-                  
-void ewhere (const char *format, ...);
-void einfo (int type, const char *format, ...);
-                  
-
-void
-ewhere (const char *format, ...) {
-  va_list args;
-  va_start (args, format);
-  vsprintf (where, format, args);
-  va_end (args);
-}
-
-
-void
-einfo (int type, const char *format, ...) {
-  va_list args;
-
-  switch (type & 0x0f) {
-  case E_NOFILE:
-    fprintf (stderr, "%s: ", progname);
-    break;
-  case E_FILE:
-    fprintf (stderr, "%s: ", filename);
-    break;
-  case E_FILELINE:
-    ewhere ("%d", lineno);
-    /* fall-through */
-  case E_FILEWHERE:
-    fprintf (stderr, "%s:%s: ", filename, where);
-    break;
-  }
-
-  if (type & E_WARNING) {
-    fprintf (stderr, "warning: ");
-    nwarnings++;
-  } else {
-    nerrors++;
-  }
-
-  va_start (args, format);
-  vfprintf (stderr, format, args);
-  va_end (args);
-
-  if (type & E_PERROR)
-    perror ("");
-  else
-    fprintf (stderr, "\n");
-}
-
+/* Set if the text section contains any relocations.  If it does, we must
+   set the load_to_ram flag.  */
+int text_has_relocs = 0;
 
 asymbol**
 get_symbols (bfd *abfd, long *num)
@@ -335,51 +263,52 @@ weak_und_symbol(const char *reloc_section_name,
 }
 
 static int
-bfin_set_reloc (uint32_t *reloc, 
-               const char *reloc_section_name, 
+bfin_set_reloc (uint32_t *reloc,
+               const char *reloc_section_name,
                const char *sym_name,
                struct bfd_symbol *symbol,
-               int sp, int hilo, int32_t offset)
+               int sp, int32_t offset)
 {
-    unsigned int type;
+    unsigned int type = 0;
     uint32_t val;
 
-    if (strstr (reloc_section_name, "text"))
-       type = FLAT_RELOC_TYPE_TEXT;
-    else if (strstr (reloc_section_name, "data"))
-       type = FLAT_RELOC_TYPE_DATA;
-    else if (strstr (reloc_section_name, "bss"))
-       type = FLAT_RELOC_TYPE_BSS;
-    else if (strstr (reloc_section_name, "stack"))
-       type = FLAT_RELOC_TYPE_STACK;
-    else if (symbol->flags & BSF_WEAK){
-       /* weak symbol support ... if a weak symbol is undefined at the
-          end of a final link, it should return 0 rather than error
-          We will assume text section for the moment.
-       */
-       type = FLAT_RELOC_TYPE_TEXT;
-    } else if (strstr (reloc_section_name, "*ABS*")){
-       /* (A data section initialization of something in the shared libc's text section
-          does not resolve - i.e. a global pointer to function initialized with
-          a libc function).
-          The text section here is appropriate as the section information
-          of the shared library is lost. The loader will do some calcs.
-       */
-       type = FLAT_RELOC_TYPE_TEXT;
-    } else {
-       printf ("Unknown Type - relocation for %s in bad section - %s\n", sym_name, reloc_section_name);
-       return 1;
+    if (strstr (reloc_section_name, "stack")) {
+           if (verbose)
+                   printf ("Stack-relative reloc, offset %08lx\n", offset);
+           /* This must be a stack_start reloc for stack checking.  */
+           type = 1;
     }
-
-    val = (offset & ((1 << 26) - 1)) << 6;
-    val |= (sp & (1 << 3) - 1) << 3;
-    val |= (hilo & 1) << 2;
-    val |= (type & (1 << 2) - 1);
+    val = (offset & ((1 << 26) - 1));
+    val |= (sp & (1 << 3) - 1) << 26;
+    val |= type << 29;
     *reloc = val;
     return 0;
 }
-#endif
 
+static bfd *compare_relocs_bfd;
+
+static int
+compare_relocs (const void *pa, const void *pb)
+{
+       const arelent *const *a = pa, *const *b = pb;
+       const arelent *ra = *a, *rb = *b;
+       unsigned long va, vb;
+       uint32_t a_vma, b_vma;
+
+       if (!ra->sym_ptr_ptr || !*ra->sym_ptr_ptr)
+               return -1;
+       else if (!rb->sym_ptr_ptr || !*rb->sym_ptr_ptr)
+               return 1;
+
+       a_vma = bfd_section_vma(compare_relocs_bfd,
+                               (*(ra->sym_ptr_ptr))->section);
+       b_vma = bfd_section_vma(compare_relocs_bfd,
+                               (*(rb->sym_ptr_ptr))->section);
+       va = (*(ra->sym_ptr_ptr))->value + a_vma + ra->addend;
+       vb = (*(rb->sym_ptr_ptr))->value + b_vma + rb->addend;
+       return va - vb;
+}
+#endif
 
 uint32_t *
 output_relocs (
@@ -406,6 +335,9 @@ output_relocs (
   int                  bad_relocs = 0;
   asymbol              **symb;
   long                 nsymb;
+#ifdef TARGET_bfin
+  unsigned long                persistent_data = 0;
+#endif
   
 #if 0
   printf("%s(%d): output_relocs(abs_bfd=%d,synbols=0x%x,number_of_symbols=%d"
@@ -438,11 +370,9 @@ dump_symbols(symbols, number_of_symbols);
            printf("GOT table contains %d entries (%d bytes)\n",
                            got_size/sizeof(uint32_t), got_size);
 #ifdef TARGET_m68k
-    if (got_size > GOT_LIMIT) {
-           fprintf(stderr, "GOT too large: %d bytes (limit = %d bytes)\n",
-                           got_size, GOT_LIMIT);
-           exit(1);
-    }
+    if (got_size > GOT_LIMIT)
+           fatal("GOT too large: %d bytes (limit = %d bytes)",
+                       got_size, GOT_LIMIT);
 #endif
   }
 
@@ -505,6 +435,10 @@ dump_symbols(symbols, number_of_symbols);
                        __FILE__, __LINE__, r->name);
                continue;
        } else {
+#ifdef TARGET_bfin
+               compare_relocs_bfd = abs_bfd;
+               qsort (relpp, relcount, sizeof *relpp, compare_relocs);
+#endif
                for (p = relpp; (relcount && (*p != NULL)); p++, relcount--) {
                        unsigned char *r_mem;
                        int relocation_needed = 0;
@@ -518,6 +452,7 @@ dump_symbols(symbols, number_of_symbols);
                        {
                        case R_MICROBLAZE_NONE:
                        case R_MICROBLAZE_64_NONE:
+                       case R_MICROBLAZE_32_PCREL_LO:
                                continue;
                        }
 #endif /* TARGET_microblaze */
@@ -603,7 +538,7 @@ dump_symbols(symbols, number_of_symbols);
                         *      Fixup offset in the actual section.
                         */
                        addstr[0] = 0;
-#ifndef TARGET_e1
+#if !defined TARGET_e1 && !defined TARGET_bfin
                        if ((sym_addr = get_symbol_offset((char *) sym_name,
                            sym_section, symbols, number_of_symbols)) == -1) {
                                sym_addr = 0;
@@ -706,6 +641,10 @@ dump_symbols(symbols, number_of_symbols);
                                case R_ARM_REL32:
                                case R_ARM_THM_PC11:
                                case R_ARM_THM_PC22:
+                               case R_ARM_PC24:
+                               case R_ARM_PLT32:
+                               case R_ARM_GOTPC:
+                               case R_ARM_GOT32:
                                        relocation_needed = 0;
                                        break;
                                default:
@@ -723,6 +662,61 @@ dump_symbols(symbols, number_of_symbols);
                                        continue;
                                default:
                                        goto bad_resolved_reloc;
+#elif defined TARGET_bfin
+                               case R_BFIN_RIMM16:
+                               case R_BFIN_LUIMM16:
+                               case R_BFIN_HUIMM16:
+                                   sym_vma = bfd_section_vma(abs_bfd, sym_section);
+                                   sym_addr += sym_vma + q->addend;
+
+                                   if (weak_und_symbol(sym_section->name, (*(q->sym_ptr_ptr))))
+                                       continue;
+                                   if (q->howto->type == R_BFIN_RIMM16 && (0xFFFF0000 & sym_addr)) {
+                                       fprintf (stderr, "Relocation overflow for rN = %s\n",sym_name);
+                                       bad_relocs++;
+                                   }
+                                   if ((0xFFFF0000 & sym_addr) != persistent_data) {
+                                   flat_relocs = (uint32_t *)
+                                       (realloc (flat_relocs, (flat_reloc_count + 1) * sizeof (uint32_t)));
+                                           if (verbose)
+                                                   printf ("New persistent data for %08lx\n", sym_addr);
+                                           persistent_data = 0xFFFF0000 & sym_addr;
+                                           flat_relocs[flat_reloc_count++]
+                                                   = (sym_addr >> 16) | (3 << 26);
+                                   }
+
+                                   flat_relocs = (uint32_t *)
+                                       (realloc (flat_relocs, (flat_reloc_count + 1) * sizeof (uint32_t)));
+                                   if (bfin_set_reloc (flat_relocs + flat_reloc_count,
+                                                       sym_section->name, sym_name,
+                                                       (*(q->sym_ptr_ptr)),
+                                                       q->howto->type == R_BFIN_HUIMM16 ? 1 : 0,
+                                                       section_vma + q->address))
+                                       bad_relocs++;
+                                   if (a->flags & SEC_CODE)
+                                       text_has_relocs = 1;
+                                   flat_reloc_count++;
+                                   break;
+
+                               case R_BFIN_BYTE4_DATA:
+                                   sym_vma = bfd_section_vma(abs_bfd, sym_section);
+                                   sym_addr += sym_vma + q->addend;
+
+                                   if (weak_und_symbol (sym_section->name, (*(q->sym_ptr_ptr))))
+                                       continue;
+
+                                   flat_relocs = (uint32_t *)
+                                       (realloc (flat_relocs, (flat_reloc_count + 1) * sizeof (uint32_t)));
+                                   if (bfin_set_reloc (flat_relocs + flat_reloc_count,
+                                                       sym_section->name, sym_name,
+                                                       (*(q->sym_ptr_ptr)),
+                                                       2, section_vma + q->address))
+                                       bad_relocs++;
+                                   if (a->flags & SEC_CODE)
+                                       text_has_relocs = 1;
+
+                                   flat_reloc_count++;
+                                   break;
 #else
                                default:
                                        /* The default is to assume that the
@@ -905,15 +899,11 @@ dump_symbols(symbols, number_of_symbols);
                   the relocation symbol. */
                                {
                                        unsigned char *p = r_mem;
-                                       uint32_t offset;
                                        pflags=0x80000000;
 
                                        /* work out the relocation */
                                        sym_vma = bfd_section_vma(abs_bfd, sym_section);
-                                       /* grab any offset from the text */
-                                       offset = (p[2]<<24) + (p[3] << 16) + (p[6] << 8) + (p[7]);
-                                       /* Update the address */
-                                       sym_addr += offset + sym_vma + q->addend;
+                                       sym_addr += sym_vma + q->addend;
                                        /* Write relocated pointer back */
                                        p[2] = (sym_addr >> 24) & 0xff;
                                        p[3] = (sym_addr >> 16) & 0xff;
@@ -945,36 +935,21 @@ dump_symbols(symbols, number_of_symbols);
                                case R_MICROBLAZE_32:
                                {       
                                        unsigned char *p = r_mem;
-                                       unsigned long offset;
 
-                                       /* grab any offset from the text */
-                                       offset = (p[0]<<24) + (p[1] << 16) + (p[2] << 8) + (p[3]);
                                        sym_vma = bfd_section_vma(abs_bfd, sym_section);
-                                       /* This is a horrible kludge.  For some
-                                          reason, *sometimes* the offset is in
-                                          both addend and the code.  Detect
-                                          it, and cancel the effect.  Otherwise
-                                          the offset gets added twice - ouch.
-                                          There should be a better test
-                                          for this condition, based on the
-                                          BFD data structures */
-                                       if(offset==q->addend)
-                                               offset=0;
-
-                                       sym_addr += offset + sym_vma + q->addend;
+                                       sym_addr += sym_vma + q->addend;
                                        relocation_needed = 1;
                                        break;
                                }
                                case R_MICROBLAZE_64_PCREL:
                                        sym_vma = 0;
-                                       //sym_addr = (*(q->sym_ptr_ptr))->value;
                                        sym_addr += sym_vma + q->addend;
                                        sym_addr -= (q->address + 4);
                                        sym_addr = htonl(sym_addr);
                                        /* insert 16 MSB */
-                                       * ((unsigned short *) (r_mem+2)) |= (sym_addr) & 0xFFFF;
+                                       * ((unsigned short *) (r_mem+2)) = (sym_addr) & 0xFFFF;
                                        /* then 16 LSB */
-                                       * ((unsigned short *) (r_mem+6)) |= (sym_addr >> 16) & 0xFFFF;
+                                       * ((unsigned short *) (r_mem+6)) = (sym_addr >> 16) & 0xFFFF;
                                        /* We've done all the work, so continue
                                           to next reloc instead of break */
                                        continue;
@@ -1181,112 +1156,6 @@ NIOS2_RELOC_ERR:
                                        break;
 #endif /* TARGET_sparc */
 
-#ifdef TARGET_bfin
-                               case R_pcrel12_jump:
-                               case R_pcrel12_jump_s:
-                               case R_pcrel24:
-                               case R_pcrel24_jump_l:
-                               case R_pcrel24_jump_x:
-                               case R_pcrel24_call_x:
-                               case R_pcrel10:
-                               case R_pcrel11:
-                               case R_pcrel5m2:
-                                 sym_addr += q->addend;// get the symbol addr
-                                 sym_vma = bfd_section_vma(abs_bfd, sym_section);
-                                 sym_addr -= q->address; // make it PC relative 
-                                 // implicitly assumes code section and symbol section are same
-                                 break;
-                               case R_got:
-                                   /* Ignore these.  */
-                                   break;
-
-                               case R_rimm16:
-                                   sym_addr += q->addend;
-                                   if(weak_und_symbol(sym_section->name, (*(q->sym_ptr_ptr))))
-                                       continue;
-                                   if(0xFFFF0000 & sym_addr){
-                                       fprintf (stderr, "Relocation overflow for rN = %s\n",sym_name);
-                                       bad_relocs++;
-                                   }
-                                   flat_relocs = (uint32_t *)
-                                       (realloc (flat_relocs, (flat_reloc_count + 1) * sizeof (uint32_t)));
-                                   if (bfin_set_reloc (flat_relocs + flat_reloc_count, 
-                                                       sym_section->name, sym_name,
-                                                       (*(q->sym_ptr_ptr)),
-                                                       0, FLAT_RELOC_PART_LO, 
-                                                       section_vma + q->address))
-                                       bad_relocs++;
-                                   flat_reloc_count++;
-                                   break;
-                                   
-                               case R_luimm16:
-                               case R_huimm16:
-                               {
-                                   unsigned int sp;
-                                   unsigned int reloc_count_incr;
-                                   unsigned int hi_lo;
-
-                                   if (q->howto->type == R_luimm16)
-                                       hi_lo = FLAT_RELOC_PART_LO;
-                                   else
-                                       hi_lo = FLAT_RELOC_PART_HI;
-                               
-                                   sym_addr += q->addend;
-
-                                   flat_relocs = (uint32_t *)
-                                       (realloc (flat_relocs, (flat_reloc_count + 2) * sizeof (uint32_t)));
-                                   reloc_count_incr = 1;
-                                   if (weak_und_symbol (sym_section->name, (*(q->sym_ptr_ptr))))
-                                       continue;
-                                   if (0xFFFF0000 & sym_addr) {
-                                       /* value is > 16 bits - use an extra field */
-                                       /* see if we have already output that symbol */
-                                       /* reloc may be addend from symbol and       */
-                                       /* we can only store 16 bit offsets          */
-                                       sp = 1;
-                                       if ((*(q->sym_ptr_ptr))->udata.i == 0
-                                           || flat_relocs[(*(q->sym_ptr_ptr))->udata.i] != sym_addr
-                                           || ((*(q->sym_ptr_ptr))->udata.i & 0xFFFF0000))
-                                       {
-                                           reloc_count_incr = 2;
-                                           flat_relocs[flat_reloc_count + 1] = sym_addr;
-                                           (*(q->sym_ptr_ptr))->udata.i = flat_reloc_count + 1;
-                                           sym_addr = 0; // indication to loader to read next
-                                       } else{
-                                           sym_addr = (*(q->sym_ptr_ptr))->udata.i;
-                                       }
-                                   } else {
-                                       sp = 0;
-                                   }
-
-                                   if (bfin_set_reloc (flat_relocs + flat_reloc_count, 
-                                                       sym_section->name, sym_name,
-                                                       (*(q->sym_ptr_ptr)),
-                                                       sp, hi_lo,
-                                                       section_vma + q->address))
-                                       bad_relocs++;
-                                   flat_reloc_count += reloc_count_incr;
-                                   break;
-                               }
-                               case R_byte4_data:
-                                   sym_addr += q->addend;
-
-                                   if (weak_und_symbol (sym_section->name, *q->sym_ptr_ptr))
-                                       continue;
-
-                                   flat_relocs = (uint32_t *)
-                                       (realloc (flat_relocs, (flat_reloc_count + 1) * sizeof (uint32_t)));
-                                   if (bfin_set_reloc (flat_relocs + flat_reloc_count, 
-                                                       sym_section->name, sym_name,
-                                                       (*(q->sym_ptr_ptr)),
-                                                       2, FLAT_RELOC_PART_LO, 
-                                                       section_vma + q->address))
-                                       bad_relocs++;
-
-                                   flat_reloc_count++;
-                                   break;
-
-#endif //TARGET_bfin
 
 #ifdef TARGET_sh
                                case R_SH_DIR32:
@@ -1536,48 +1405,6 @@ DIS29_RELOCATION:
                                        *(uint32_t *)r_mem = htonl(hl);
                                else
                                        *(uint32_t *)r_mem = tmp.l;
-
-#elif defined(TARGET_bfin)
-                               if ((*p)->howto->type == R_pcrel24
-                                   || (*p)->howto->type == R_pcrel24_jump_l
-                                   || (*p)->howto->type == R_pcrel24_jump_x
-                                   || (*p)->howto->type == R_pcrel24_call_x)
-                               {
-                                   sym_addr += 2*-1*PCREL24_MAGIC_OFFSET;
-                                   *((unsigned short *)(sectionp + q->address) + 1 + PCREL24_MAGIC_OFFSET)
-                                       = (sym_addr >> 1) & 0xffff;
-                                   *((unsigned short *)(sectionp + q->address) + PCREL24_MAGIC_OFFSET)
-                                       = (0xff00 & *((unsigned short *) (sectionp + q->address) + PCREL24_MAGIC_OFFSET)
-                                          | ((sym_addr >> 17) & 0xff));
-                               } else if ((*p)->howto->type == R_byte4_data) {
-                                   *((uint32_t *)(sectionp + q->address)) = sym_addr;
-                               } else if ((*p)->howto->type == R_pcrel12_jump
-                                          || (*p)->howto->type == R_pcrel12_jump_s) {
-                                   *((unsigned short *)(sectionp + q->address))
-                                       = (0xf000 & *((unsigned short *)(sectionp + q->address))
-                                          | ((sym_addr >> 1) & 0xfff));
-                               } else if ((*p)->howto->type == R_pcrel10) {
-                                   *((unsigned short *)(sectionp + q->address))
-                                       = (~0x3ff & *((unsigned short *)(sectionp + q->address))
-                                          | ((sym_addr >> 1) & 0x3ff));
-                               } else if ((*p)->howto->type == R_rimm16
-                                          || (*p)->howto->type == R_huimm16
-                                          || (*p)->howto->type == R_luimm16) {
-                                   /* for l and h we set the lower 16 bits which is only when it will be used */
-                                   *((unsigned short *) (sectionp + q->address)) = (unsigned short) sym_addr;
-                               } else if ((*p)->howto->type == R_pcrel5m2) {
-                                   *((unsigned short *)(sectionp + q->address))
-                                       = (0xfff0 & *((unsigned short *)(sectionp + q->address))
-                                          | ((sym_addr >> 1) & 0xf));
-                               } else if ((*p)->howto->type == R_pcrel11){
-                                   *((unsigned short *)(sectionp + q->address))
-                                       = (0xfc00 & *((unsigned short *)(sectionp + q->address))
-                                          | ((sym_addr >> 1) & 0x3ff));
-                               } else if (0xE0 <= (*p)->howto->type && 0xF3 >= (*p)->howto->type) {
-                                   //arith relocs dont generate a real relocation
-                               } else {
-                                   printf("Blackfin relocation fail for reloc type: 0x%x\n", (*p)->howto->type);
-                               }
 #elif defined(TARGET_e1)
 #define OPCODE_SIZE 2           /* Add 2 bytes, counting the opcode size*/
                                switch ((*p)->howto->type) {
@@ -1604,7 +1431,17 @@ DIS29_RELOCATION:
                                                exit(0);
                                break;
                                }
-#else /* ! TARGET_arm && ! TARGET_e1 */
+#elif defined TARGET_bfin
+                               if ((*p)->howto->type == R_BFIN_RIMM16
+                                   || (*p)->howto->type == R_BFIN_HUIMM16
+                                   || (*p)->howto->type == R_BFIN_LUIMM16)
+                               {
+                                       /* for l and h we set the lower 16 bits which is only when it will be used */
+                                       bfd_putl16 (sym_addr, sectionp + q->address);
+                               } else if ((*p)->howto->type == R_BFIN_BYTE4_DATA) {
+                                       bfd_putl32 (sym_addr, sectionp + q->address);
+                               }
+#else /* ! TARGET_arm && ! TARGET_e1 && ! TARGET_bfin */
 
                                switch (q->howto->type) {
 #ifdef TARGET_v850
@@ -1657,19 +1494,6 @@ DIS29_RELOCATION:
 #endif /* !TARGET_arm */
                        }
 
-#ifdef TARGET_bfin
-                       else {
-                           if ((*p)->howto->type == R_rimm16
-                               || (*p)->howto->type == R_huimm16
-                               || (*p)->howto->type == R_luimm16)
-                           {
-                               /* for l and h we set the lower 16 bits which is only when it will be used */
-                               *((unsigned short *) (sectionp + q->address)) = (unsigned short) sym_addr;
-                           } else if ((*p)->howto->type == R_byte4_data) {
-                               *((uint32_t *)(sectionp + q->address)) = sym_addr;
-                           }
-                       }
-#endif
                        if (verbose)
                                printf("  RELOC[%d]: offset=0x%x symbol=%s%s "
                                        "section=%s size=%d "
@@ -1718,7 +1542,7 @@ DIS29_RELOCATION:
                                }
 #endif
                                flat_reloc_count++;
-#endif
+#endif //TARGET_bfin
                                relocation_needed = 0;
                                pflags = 0;
                        }
@@ -1746,10 +1570,8 @@ printf("%s(%d): symbol name=%s address=0x%x section=%s -> RELOC=0x%x\n",
 
 
 
-static char * program;
-
 static void usage(void)
-{  
+{
     fprintf(stderr, "Usage: %s [vrzd] [-p <abs-pic-file>] [-s stack-size] "
        "[-o <output-file>] <elf-file>\n\n"
        "       -v              : verbose operation\n"
@@ -1764,7 +1586,7 @@ static void usage(void)
        "       -p abs-pic-file : GOT/PIC processing with files\n"
        "       -s stacksize    : set application stack size\n"
        "       -o output-file  : output file name\n\n",
-       program);
+       elf2flt_progname);
        fprintf(stderr, "Compiled for " ARCH " architecture\n\n");
     exit(2);
 }
@@ -1817,23 +1639,20 @@ int main(int argc, char *argv[])
   void *text;
   void *data;
   uint32_t *reloc;
-  
+
   struct flat_hdr hdr;
 
-  program = argv[0];
-  progname = argv[0];
-  xmalloc_set_program_name(program);
+  elf2flt_progname = argv[0];
+  xmalloc_set_program_name(elf2flt_progname);
 
   if (argc < 2)
        usage();
-  
-  if (sizeof(hdr) != 64) {
-    fprintf(stderr,
+
+  if (sizeof(hdr) != 64)
+    fatal(
            "Potential flat header incompatibility detected\n"
-           "header size should be 64 but is %d\n",
+           "header size should be 64 but is %d",
            sizeof(hdr));
-    exit(64);
-  }
 
 #ifndef TARGET_e1
   stack = 4096;
@@ -1890,7 +1709,7 @@ int main(int argc, char *argv[])
   if (!load_to_ram && !pfile)
     load_to_ram = 1;
 
-  filename = fname = argv[argc-1];
+  fname = argv[argc-1];
 
   if (pfile) {
     pic_with_got = 1;
@@ -1901,43 +1720,30 @@ int main(int argc, char *argv[])
   if (! rel_file)
     rel_file = fname;
 
-  if (!(rel_bfd = bfd_openr(rel_file, 0))) {
-    fprintf(stderr, "Can't open %s\n", rel_file);
-    exit(1);
-  }
+  if (!(rel_bfd = bfd_openr(rel_file, 0)))
+    fatal_perror("Can't open '%s'", rel_file);
 
-  if (bfd_check_format (rel_bfd, bfd_object) == 0) {
-    fprintf(stderr, "File is not an object file\n");
-    exit(2);
-  }
+  if (bfd_check_format (rel_bfd, bfd_object) == 0)
+    fatal("File is not an object file");
 
   if (abs_file == rel_file)
     abs_bfd = rel_bfd; /* one file does all */
   else {
-    if (!(abs_bfd = bfd_openr(abs_file, 0))) {
-      fprintf(stderr, "Can't open %s\n", abs_file);
-      exit(1);
-    }
+    if (!(abs_bfd = bfd_openr(abs_file, 0)))
+      fatal_perror("Can't open '%s'", abs_file);
 
-    if (bfd_check_format (abs_bfd, bfd_object) == 0) {
-      fprintf(stderr, "File is not an object file\n");
-      exit(2);
-    }
+    if (bfd_check_format (abs_bfd, bfd_object) == 0)
+      fatal("File is not an object file");
   }
 
-  if (! (bfd_get_file_flags(rel_bfd) & HAS_RELOC)) {
-    fprintf (stderr, "%s: Input file contains no relocation info\n", rel_file);
-    exit (2);
-  }
+  if (! (bfd_get_file_flags(rel_bfd) & HAS_RELOC))
+    fatal("%s: Input file contains no relocation info", rel_file);
 
-  if (use_resolved && !(bfd_get_file_flags(abs_bfd) & EXEC_P)) {
+  if (use_resolved && !(bfd_get_file_flags(abs_bfd) & EXEC_P))
     /* `Absolute' file is not absolute, so neither are address
        contained therein.  */
-    fprintf (stderr,
-            "%s: `-a' option specified with non-fully-resolved input file\n",
+    fatal("%s: `-a' option specified with non-fully-resolved input file",
             bfd_get_filename (abs_bfd));
-    exit (2);
-  }
 
   symbol_table = get_symbols(abs_bfd, &number_of_symbols);
 
@@ -1972,10 +1778,8 @@ int main(int argc, char *argv[])
       *len = sec_vma + sec_size - *vma;
   }
 
-  if (text_len == 0) {
-    fprintf (stderr, "%s: no .text section", abs_file);
-    exit (2);
-  }
+  if (text_len == 0)
+    fatal("%s: no .text section", abs_file);
 
   text = xmalloc(text_len);
 
@@ -1989,14 +1793,11 @@ int main(int argc, char *argv[])
                                   text + (s->vma - text_vma), 0,
                                   bfd_section_size(abs_bfd, s)))
       {
-       fprintf(stderr, "read error section %s\n", s->name);
-       exit(2);
+       fatal("read error section %s", s->name);
       }
 
-  if (data_len == 0) {
-    fprintf (stderr, "%s: no .data section", abs_file);
-    exit (2);
-  }
+  if (data_len == 0)
+    fatal("%s: no .data section", abs_file);
   data = xmalloc(data_len);
 
   if (verbose)
@@ -2020,8 +1821,7 @@ int main(int argc, char *argv[])
                                   data + (s->vma - data_vma), 0,
                                   bfd_section_size(abs_bfd, s)))
       {
-       fprintf(stderr, "read error section %s\n", s->name);
-       exit(2);
+       fatal("read error section %s", s->name);
       }
 
   if (bss_vma == ~0)
@@ -2065,7 +1865,7 @@ int main(int argc, char *argv[])
   hdr.reloc_start = htonl(sizeof(hdr) + text_offs + text_len +data_len);
   hdr.reloc_count = htonl(reloc_len);
   hdr.flags       = htonl(0
-         | (load_to_ram ? FLAT_FLAG_RAM : 0)
+         | (load_to_ram || text_has_relocs ? FLAT_FLAG_RAM : 0)
          | (ktrace ? FLAT_FLAG_KTRACE : 0)
          | (pic_with_got ? FLAT_FLAG_GOTPIC : 0)
          | (docompress ? (docompress == 2 ? FLAT_FLAG_GZDATA : FLAT_FLAG_GZIP) : 0)
@@ -2089,18 +1889,14 @@ int main(int argc, char *argv[])
     strcat(ofile, ".bflt");
   }
 
-  if ((fd = open (ofile, O_WRONLY|O_BINARY|O_CREAT|O_TRUNC, 0744)) < 0) {
-    fprintf (stderr, "Can't open output file %s\n", ofile);
-    exit(4);
-  }
+  if ((fd = open (ofile, O_WRONLY|O_BINARY|O_CREAT|O_TRUNC, 0744)) < 0)
+    fatal_perror("Can't open output file %s", ofile);
 
   write(fd, &hdr, sizeof(hdr));
   close(fd);
 
-  if (fopen_stream_u(&gf, ofile, "a" BINARY_FILE_OPTS)) {
-    fprintf(stderr, "Can't open file %s for writing\n", ofile);
-    exit(4);
-  }
+  if (fopen_stream_u(&gf, ofile, "a" BINARY_FILE_OPTS))
+    fatal_perror("Can't open file %s for writing", ofile);
 
   if (docompress == 1)
     reopen_stream_compressed(&gf);