Fixed xgettext invocation in .Sanitize files
[binutils-gdb.git] / bfd / ihex.c
index c356bcb05049f76accbba8392b2f932995a8ae3b..3f995fb552de6d63ec205850e0d1f733691f024b 100644 (file)
@@ -85,6 +85,37 @@ B. INTEL 2
    18..19      Checksum in hex notation
    20..21      Carriage return, line feed
 
+Another document reports these additional types:
+
+   EXTENDED LINEAR ADDRESS RECORD
+   Byte 1      Header = colon (:)
+   2..3                The byte count, must be "02"
+   4..7                Load address, must be "0000"
+   8..9                Record type, must be "04"
+   10..13      Upper 16 bits of address of subsequent records
+   14..15      Checksum in hex notation
+   16..17      Carriage return, line feed
+
+   START LINEAR ADDRESS RECORD
+   Byte 1      Header = colon (:)
+   2..3                The byte count, must be "02"
+   4..7                Load address, must be "0000"
+   8..9                Record type, must be "05"
+   10..13      Upper 16 bits of start address
+   14..15      Checksum in hex notation
+   16..17      Carriage return, line feed
+
+The MRI compiler uses this, which is a repeat of type 5:
+
+  EXTENDED START RECORD
+   Byte 1      Header = colon (:)
+   2..3                The byte count, must be "04"
+   4..7                Load address, must be "0000"
+   8..9                Record type, must be "05"
+   10..13      Upper 16 bits of start address
+   14..17      Lower 16 bits of start address
+   18..19      Checksum in hex notation
+   20..21      Carriage return, line feed
 */
 
 #include "bfd.h"
@@ -237,7 +268,7 @@ static boolean
 ihex_scan (abfd)
      bfd *abfd;
 {
-  bfd_vma base;
+  bfd_vma segbase;
   asection *sec;
   int lineno;
   boolean error;
@@ -248,7 +279,9 @@ ihex_scan (abfd)
   if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
     goto error_return;
 
-  base = 0;
+  abfd->start_address = 0;
+
+  segbase = 0;
   sec = NULL;
   lineno = 1;
   error = false;
@@ -343,7 +376,7 @@ ihex_scan (abfd)
            case 0:
              /* This is a data record.  */
              if (sec != NULL
-                 && sec->vma + sec->_raw_size == base + addr)
+                 && sec->vma + sec->_raw_size == segbase + addr)
                {
                  /* This data goes at the end of the section we are
                      currently building.  */
@@ -363,8 +396,8 @@ ihex_scan (abfd)
                  if (sec == NULL)
                    goto error_return;
                  sec->flags = SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC;
-                 sec->vma = base + addr;
-                 sec->lma = base + addr;
+                 sec->vma = segbase + addr;
+                 sec->lma = segbase + addr;
                  sec->_raw_size = len;
                  sec->filepos = pos;
                }
@@ -389,7 +422,7 @@ ihex_scan (abfd)
                  goto error_return;
                }
 
-             base = HEX4 (buf) << 4;
+             segbase = HEX4 (buf) << 4;
 
              sec = NULL;
 
@@ -406,7 +439,44 @@ ihex_scan (abfd)
                  goto error_return;
                }
 
-             abfd->start_address = (HEX4 (buf) << 4) + HEX4 (buf + 4);
+             abfd->start_address += (HEX4 (buf) << 4) + HEX4 (buf + 4);
+
+             sec = NULL;
+
+             break;
+
+           case 4:
+             /* An extended linear address record.  */
+             if (len != 2)
+               {
+                 (*_bfd_error_handler)
+                   ("%s:%d: bad extended linear address record length in Intel Hex file",
+                    bfd_get_filename (abfd), lineno);
+                 bfd_set_error (bfd_error_bad_value);
+                 goto error_return;
+               }
+
+             segbase = HEX4 (buf) << 16;
+
+             sec = NULL;
+
+             break;
+
+           case 5:
+             /* An extended linear start address record.  */
+             if (len != 2 && len != 4)
+               {
+                 (*_bfd_error_handler)
+                   ("%s:%d: bad extended linear start address length in Intel Hex file",
+                    bfd_get_filename (abfd), lineno);
+                 bfd_set_error (bfd_error_bad_value);
+                 goto error_return;
+               }
+
+             if (len == 2)
+               abfd->start_address += HEX4 (buf) << 16;
+             else
+               abfd->start_address = (HEX4 (buf) << 16) + HEX4 (buf + 4);
 
              sec = NULL;
 
@@ -473,7 +543,7 @@ ihex_object_p (abfd)
     }
 
   type = HEX2 (b + 7);
-  if (type > 3)
+  if (type > 5)
     {
       bfd_set_error (bfd_error_wrong_format);
       return NULL;
@@ -631,19 +701,6 @@ ihex_set_section_contents (abfd, section, location, offset, count)
       || (section->flags & SEC_LOAD) == 0)
     return true;
 
-  /* Intel Hex files can only represent a limited number of addresses.  */
-  if (section->lma + offset + count >= ((0xffff) << 4) + 0xffff)
-    {
-      char buf[50];
-
-      sprintf_vma (buf, section->lma + offset + count);
-      (*_bfd_error_handler)
-       ("%s: address 0x%s out of range for Intel Hex file",
-        bfd_get_filename (abfd), buf);
-      bfd_set_error (bfd_error_invalid_operation);
-      return false;
-    }
-
   n = ((struct ihex_data_list *)
        bfd_alloc (abfd, sizeof (struct ihex_data_list)));
   if (n == NULL)
@@ -734,10 +791,10 @@ static boolean
 ihex_write_object_contents (abfd)
      bfd *abfd;
 {
-  bfd_vma base;
+  bfd_vma segbase;
   struct ihex_data_list *l;
 
-  base = 0;
+  segbase = 0;
   for (l = abfd->tdata.ihex_data->head; l != NULL; l = l->next)
     {
       bfd_vma where;
@@ -755,21 +812,41 @@ ihex_write_object_contents (abfd)
          if (now > CHUNK)
            now = CHUNK;
 
-         if (where > base + 0xffff)
+         if (where > segbase + 0xffff)
            {
              bfd_byte addr[2];
 
-             /* We need a new base address.  We've already checked in
-                 set_section_contents to make sure that we can
-                 represent the address.  */
-             base = where & 0xf0000;
-             addr[0] = (base >> 12) & 0xff;
-             addr[1] = (base >> 4) & 0xff;
-             if (! ihex_write_record (abfd, 2, 0, 2, addr))
-               return false;
+             /* We need a new base address.  */
+             if (where <= 0xfffff)
+               {
+                 segbase = where & 0xf0000;
+                 addr[0] = (segbase >> 12) & 0xff;
+                 addr[1] = (segbase >> 4) & 0xff;
+                 if (! ihex_write_record (abfd, 2, 0, 2, addr))
+                   return false;
+               }
+             else
+               {
+                 segbase = where & 0xffff0000;
+                 if (where > segbase + 0xffff)
+                   {
+                     char buf[20];
+
+                     sprintf_vma (buf, where);
+                     (*_bfd_error_handler)
+                       ("%s: address 0x%s out of range for Intex Hex file",
+                        bfd_get_filename (abfd), buf);
+                     bfd_set_error (bfd_error_bad_value);
+                     return false;
+                   }
+                 addr[0] = (segbase >> 24) & 0xff;
+                 addr[1] = (segbase >> 16) & 0xff;
+                 if (! ihex_write_record (abfd, 2, 0, 4, addr))
+                   return false;
+               }
            }
 
-         if (! ihex_write_record (abfd, now, where - base, 0, p))
+         if (! ihex_write_record (abfd, now, where - segbase, 0, p))
            return false;
 
          where += now;
@@ -780,14 +857,29 @@ ihex_write_object_contents (abfd)
 
   if (abfd->start_address != 0)
     {
-      bfd_byte start[4];
+      bfd_vma start;
+      bfd_byte startbuf[4];
 
-      start[0] = ((abfd->start_address & 0xf0000) >> 12) & 0xff;
-      start[1] = 0;
-      start[2] = (abfd->start_address >> 8) & 0xff;
-      start[3] = abfd->start_address & 0xff;
-      if (! ihex_write_record (abfd, 4, 0, 3, start))
-       return false;
+      start = abfd->start_address;
+
+      if (start <= 0xfffff)
+       {
+         startbuf[0] = ((start & 0xf0000) >> 12) & 0xff;
+         startbuf[1] = 0;
+         startbuf[2] = (start >> 8) & 0xff;
+         startbuf[3] = start & 0xff;
+         if (! ihex_write_record (abfd, 4, 0, 3, startbuf))
+           return false;
+       }
+      else
+       {
+         startbuf[0] = (start >> 24) & 0xff;
+         startbuf[1] = (start >> 16) & 0xff;
+         startbuf[2] = (start >> 8) & 0xff;
+         startbuf[3] = start & 0xff;
+         if (! ihex_write_record (abfd, 4, 0, 5, startbuf))
+           return false;
+       }
     }
 
   if (! ihex_write_record (abfd, 0, 0, 1, NULL))
@@ -820,7 +912,11 @@ ihex_set_arch_mach (abfd, arch, mach)
      enum bfd_architecture arch;
      unsigned long mach;
 {
-  bfd_default_set_arch_mach (abfd, arch, mach);
+  if (! bfd_default_set_arch_mach (abfd, arch, mach))
+    {
+      if (arch != bfd_arch_unknown)
+       return false;
+    }
   return true;
 }
 
@@ -843,8 +939,9 @@ ihex_sizeof_headers (abfd, exec)
 #define ihex_get_section_contents_in_window \
   _bfd_generic_get_section_contents_in_window
 
-#define ihex_get_symtab_upper_bound _bfd_nosymbols_get_symtab_upper_bound
-#define ihex_get_symtab _bfd_nosymbols_get_symtab
+#define ihex_get_symtab_upper_bound bfd_0l
+#define ihex_get_symtab \
+  ((long (*) PARAMS ((bfd *, asymbol **))) bfd_0l)
 #define ihex_print_symbol _bfd_nosymbols_print_symbol
 #define ihex_get_symbol_info _bfd_nosymbols_get_symbol_info
 #define ihex_bfd_is_local_label _bfd_nosymbols_bfd_is_local_label
@@ -874,8 +971,8 @@ const bfd_target ihex_vec =
 {
   "ihex",                      /* name */
   bfd_target_ihex_flavour,
-  true,                                /* target byte order */
-  true,                                /* target headers byte order */
+  BFD_ENDIAN_UNKNOWN,          /* target byte order */
+  BFD_ENDIAN_UNKNOWN,          /* target headers byte order */
   0,                           /* object flags */
   (SEC_HAS_CONTENTS | SEC_ALLOC | SEC_LOAD),   /* section flags */
   0,                           /* leading underscore */