Merge branch 'master' into merge-job
[deliverable/binutils-gdb.git] / binutils / readelf.c
index cc168163b2166795c58e572ebfbd219562fcc20e..bd76242d15a1775c005987c3508f613ea69a2eef 100644 (file)
@@ -1,5 +1,6 @@
 /* readelf.c -- display contents of an ELF format file
    Copyright (C) 1998-2019 Free Software Foundation, Inc.
+   Copyright (C) 2019 Advanced Micro Devices, Inc. All rights reserved.
 
    Originally developed by Eric Youngdale <eric@andante.jic.com>
    Modifications by Nick Clifton <nickc@redhat.com>
@@ -92,6 +93,7 @@
 
 #include "elf/aarch64.h"
 #include "elf/alpha.h"
+#include "elf/amdgcn.h"
 #include "elf/arc.h"
 #include "elf/arm.h"
 #include "elf/avr.h"
@@ -184,7 +186,7 @@ typedef struct elf_section_list
 #define DEBUG_DUMP     (1 << 2)        /* The -w command line switch.  */
 #define STRING_DUMP     (1 << 3)       /* The -p command line switch.  */
 #define RELOC_DUMP      (1 << 4)       /* The -R command line switch.  */
-#define CTF_DUMP        (1 << 5)        /* The --ctf command line switch.  */
+#define CTF_DUMP       (1 << 5)        /* The --ctf command line switch.  */
 
 typedef unsigned char dump_type;
 
@@ -749,17 +751,6 @@ find_section_in_set (Filedata * filedata, const char * name, unsigned int * set)
   return find_section (filedata, name);
 }
 
-/* Read an unsigned LEB128 encoded value from DATA.
-   Set *LENGTH_RETURN to the number of bytes read.  */
-
-static inline unsigned long
-read_uleb128 (unsigned char * data,
-             unsigned int * length_return,
-             const unsigned char * const end)
-{
-  return read_leb128 (data, length_return, FALSE, end);
-}
-
 /* Return TRUE if the current file is for IA-64 machine and OpenVMS ABI.
    This OS has so many departures from the ELF standard that we test it at
    many places.  */
@@ -1597,6 +1588,10 @@ dump_relocations (Filedata *          filedata,
          else
            rtype = elf_nfp_reloc_type (type);
          break;
+
+       case EM_AMDGPU:
+         rtype = elf_amdgcn_reloc_type (type);
+         break;
        }
 
       if (rtype == NULL)
@@ -3259,6 +3254,27 @@ get_machine_flags (Filedata * filedata, unsigned e_flags, unsigned e_machine)
            }
          break;
 
+       case EM_AMDGPU:
+         switch (e_flags & EF_AMDGPU_MACH)
+           {
+           case EF_AMDGPU_MACH_AMDGCN_GFX801 : strcat (buf, ", gfx801"); break;
+           case EF_AMDGPU_MACH_AMDGCN_GFX802 : strcat (buf, ", gfx802"); break;
+           case EF_AMDGPU_MACH_AMDGCN_GFX803 : strcat (buf, ", gfx803"); break;
+           case EF_AMDGPU_MACH_AMDGCN_GFX810 : strcat (buf, ", gfx810"); break;
+           case EF_AMDGPU_MACH_AMDGCN_GFX900 : strcat (buf, ", gfx900"); break;
+           case EF_AMDGPU_MACH_AMDGCN_GFX902 : strcat (buf, ", gfx902"); break;
+           case EF_AMDGPU_MACH_AMDGCN_GFX904 : strcat (buf, ", gfx904"); break;
+           case EF_AMDGPU_MACH_AMDGCN_GFX906 : strcat (buf, ", gfx906"); break;
+           case EF_AMDGPU_MACH_AMDGCN_GFX908 : strcat (buf, ", gfx908"); break;
+           case EF_AMDGPU_MACH_AMDGCN_GFX909 : strcat (buf, ", gfx909"); break;
+           default: strcat (buf, _(", <unknown AMDGPU gpu type>")); break;
+           }
+
+         if (e_flags & ~ EF_AMDGPU_MACH)
+           sprintf (buf + strlen (buf), _(", unknown flags bits: %#x"),
+                    e_flags & ~ EF_AMDGPU_MACH);
+         break;
+
        case EM_CYGNUS_MEP:
          switch (e_flags & EF_MEP_CPU_MASK)
            {
@@ -3796,6 +3812,15 @@ get_osabi_name (Filedata * filedata, unsigned int osabi)
       if (osabi >= 64)
        switch (filedata->file_header.e_machine)
          {
+         case EM_AMDGPU:
+           switch (osabi)
+             {
+             case ELFOSABI_AMDGPU_HSA: return "AMD HSA Runtime";
+             default:
+               break;
+             }
+           break;
+
          case EM_ARM:
            switch (osabi)
              {
@@ -4465,7 +4490,7 @@ static struct option options[] =
   {"dwarf-start",      required_argument, 0, OPTION_DWARF_START},
   {"dwarf-check",      no_argument, 0, OPTION_DWARF_CHECK},
 
-  {"ctf",              required_argument, 0, OPTION_CTF_DUMP},
+  {"ctf",             required_argument, 0, OPTION_CTF_DUMP},
 
   {"ctf-symbols",      required_argument, 0, OPTION_CTF_SYMBOLS},
   {"ctf-strings",      required_argument, 0, OPTION_CTF_STRINGS},
@@ -4852,7 +4877,7 @@ process_file_header (Filedata * filedata)
       return FALSE;
     }
 
-  init_dwarf_regnames (header->e_machine);
+  init_dwarf_regnames_by_elf_machine_code (header->e_machine);
 
   if (do_header)
     {
@@ -5101,6 +5126,9 @@ process_program_headers (Filedata * filedata)
   unsigned int i;
   Elf_Internal_Phdr * previous_load = NULL;
 
+  dynamic_addr = 0;
+  dynamic_size = 0;
+
   if (filedata->file_header.e_phnum == 0)
     {
       /* PR binutils/12467.  */
@@ -5151,9 +5179,6 @@ process_program_headers (Filedata * filedata)
        }
     }
 
-  dynamic_addr = 0;
-  dynamic_size = 0;
-
   for (i = 0, segment = filedata->program_headers;
        i < filedata->file_header.e_phnum;
        i++, segment++)
@@ -5262,11 +5287,17 @@ process_program_headers (Filedata * filedata)
              unsigned int j;
 
              for (j = 1; j < filedata->file_header.e_phnum; j++)
-               if (filedata->program_headers[j].p_vaddr <= segment->p_vaddr
-                   && (filedata->program_headers[j].p_vaddr
-                       + filedata->program_headers[j].p_memsz)
-                   >= (segment->p_vaddr + segment->p_filesz))
-                 break;
+               {
+                 Elf_Internal_Phdr *load = filedata->program_headers + j;
+                 if (load->p_type == PT_LOAD
+                     && load->p_offset <= segment->p_offset
+                     && (load->p_offset + load->p_filesz
+                         >= segment->p_offset + segment->p_filesz)
+                     && load->p_vaddr <= segment->p_vaddr
+                     && (load->p_vaddr + load->p_filesz
+                         >= segment->p_vaddr + segment->p_filesz))
+                   break;
+               }
              if (j == filedata->file_header.e_phnum)
                error (_("the PHDR segment is not covered by a LOAD segment\n"));
            }
@@ -8776,7 +8807,7 @@ decode_arm_unwind_bytecode (Filedata *                 filedata,
            }
          else
            {
-             offset = read_uleb128 (buf, &len, buf + i + 1);
+             offset = read_leb128 (buf, buf + i + 1, FALSE, &len, NULL);
              assert (len == i + 1);
              offset = offset * 4 + 0x204;
              printf ("vsp = vsp + %ld", offset);
@@ -8995,7 +9026,7 @@ decode_tic6x_unwind_bytecode (Filedata *                 filedata,
              return FALSE;
            }
 
-         offset = read_uleb128 (buf, &len, buf + i + 1);
+         offset = read_leb128 (buf, buf + i + 1, FALSE, &len, NULL);
          assert (len == i + 1);
          offset = offset * 8 + 0x408;
          printf (_("sp = sp + %ld"), offset);
@@ -12303,8 +12334,12 @@ process_syminfo (Filedata * filedata ATTRIBUTE_UNUSED)
   return TRUE;
 }
 
-#define IN_RANGE(START,END,ADDR,OFF)           \
-  (((ADDR) >= (START)) && ((ADDR) + (OFF) < (END)))
+/* A macro which evaluates to TRUE if the region ADDR .. ADDR + NELEM
+   is contained by the region START .. END.  The types of ADDR, START
+   and END should all be the same.  Note both ADDR + NELEM and END
+   point to just beyond the end of the regions that are being tested.  */
+#define IN_RANGE(START,END,ADDR,NELEM)         \
+  (((ADDR) >= (START)) && ((ADDR) < (END)) && ((ADDR) + (NELEM) <= (END)))
 
 /* Check to see if the given reloc needs to be handled in a target specific
    manner.  If so then process the reloc and return TRUE otherwise return
@@ -13405,7 +13440,7 @@ apply_relocations (Filedata *                 filedata,
            }
 
          rloc = start + rp->r_offset;
-         if (rloc >= end || (rloc + reloc_size) > end || (rloc < start))
+         if (!IN_RANGE (start, end, rloc, reloc_size))
            {
              warn (_("skipping invalid relocation offset 0x%lx in section %s\n"),
                    (unsigned long) rp->r_offset,
@@ -13922,18 +13957,19 @@ dump_section_as_ctf (Elf_Internal_Shdr * section, Filedata * filedata)
   Elf_Internal_Shdr *  parent_sec = NULL;
   Elf_Internal_Shdr *  symtab_sec = NULL;
   Elf_Internal_Shdr *  strtab_sec = NULL;
-  void *              data = NULL;
-  void *              symdata = NULL;
-  void *              strdata = NULL;
-  void *              parentdata = NULL;
-  ctf_sect_t           ctfsect, symsect, strsect, parentsect;
-  ctf_sect_t *         symsectp = NULL;
-  ctf_sect_t *         strsectp = NULL;
-  ctf_file_t *         ctf = NULL;
-  ctf_file_t *         parent = NULL;
-
-  const char *things[] = {"Labels", "Data objects", "Function objects",
-                         "Variables", "Types", "Strings", ""};
+  void *              data = NULL;
+  void *              symdata = NULL;
+  void *              strdata = NULL;
+  void *              parentdata = NULL;
+  ctf_sect_t          ctfsect, symsect, strsect, parentsect;
+  ctf_sect_t *        symsectp = NULL;
+  ctf_sect_t *        strsectp = NULL;
+  ctf_file_t *        ctf = NULL;
+  ctf_file_t *        parent = NULL;
+
+  const char *things[] = {"Header", "Labels", "Data objects",
+                         "Function objects", "Variables", "Types", "Strings",
+                         ""};
   const char **thing;
   int err;
   bfd_boolean ret = FALSE;
@@ -13943,7 +13979,13 @@ dump_section_as_ctf (Elf_Internal_Shdr * section, Filedata * filedata)
   data = get_section_contents (section, filedata);
   ctfsect.cts_data = data;
 
-  if (dump_ctf_symtab_name)
+  if (!dump_ctf_symtab_name)
+    dump_ctf_symtab_name = strdup (".symtab");
+
+  if (!dump_ctf_strtab_name)
+    dump_ctf_strtab_name = strdup (".strtab");
+
+  if (dump_ctf_symtab_name && dump_ctf_symtab_name[0] != 0)
     {
       if ((symtab_sec = find_section (filedata, dump_ctf_symtab_name)) == NULL)
        {
@@ -13958,7 +14000,7 @@ dump_section_as_ctf (Elf_Internal_Shdr * section, Filedata * filedata)
       symsectp = shdr_to_ctf_sect (&symsect, symtab_sec, filedata);
       symsect.cts_data = symdata;
     }
-  if (dump_ctf_strtab_name)
+  if (dump_ctf_strtab_name && dump_ctf_symtab_name[0] != 0)
     {
       if ((strtab_sec = find_section (filedata, dump_ctf_strtab_name)) == NULL)
        {
@@ -14014,7 +14056,7 @@ dump_section_as_ctf (Elf_Internal_Shdr * section, Filedata * filedata)
   printf (_("\nDump of CTF section '%s':\n"),
          printable_section_name (filedata, section));
 
-  for (i = 1, thing = things; *thing[0]; thing++, i++)
+  for (i = 0, thing = things; *thing[0]; thing++, i++)
     {
       ctf_dump_state_t *s = NULL;
       char *item;
@@ -14475,10 +14517,7 @@ display_tag_value (signed int tag,
     }
   else
     {
-      unsigned int len;
-
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("%ld (0x%lx)\n", val, val);
     }
 
@@ -14493,17 +14532,14 @@ display_arc_attribute (unsigned char * p,
                       const unsigned char * const end)
 {
   unsigned int tag;
-  unsigned int len;
   unsigned int val;
 
-  tag = read_uleb128 (p, &len, end);
-  p += len;
+  READ_ULEB (tag, p, end);
 
   switch (tag)
     {
     case Tag_ARC_PCS_config:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ARC_PCS_config: ");
       switch (val)
        {
@@ -14529,8 +14565,7 @@ display_arc_attribute (unsigned char * p,
       break;
 
     case Tag_ARC_CPU_base:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ARC_CPU_base: ");
       switch (val)
        {
@@ -14554,8 +14589,7 @@ display_arc_attribute (unsigned char * p,
       break;
 
     case Tag_ARC_CPU_variation:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ARC_CPU_variation: ");
       switch (val)
        {
@@ -14578,21 +14612,18 @@ display_arc_attribute (unsigned char * p,
       break;
 
     case Tag_ARC_ABI_rf16:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ARC_ABI_rf16: %s\n", val ? _("yes") : _("no"));
       break;
 
     case Tag_ARC_ABI_osver:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ARC_ABI_osver: v%d\n", val);
       break;
 
     case Tag_ARC_ABI_pic:
     case Tag_ARC_ABI_sda:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf (tag == Tag_ARC_ABI_sda ? "  Tag_ARC_ABI_sda: "
              : "  Tag_ARC_ABI_pic: ");
       switch (val)
@@ -14613,28 +14644,24 @@ display_arc_attribute (unsigned char * p,
       break;
 
     case Tag_ARC_ABI_tls:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ARC_ABI_tls: %s\n", val ? "r25": "none");
       break;
 
     case Tag_ARC_ABI_enumsize:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ARC_ABI_enumsize: %s\n", val ? _("default") :
              _("smallest"));
       break;
 
     case Tag_ARC_ABI_exceptions:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ARC_ABI_exceptions: %s\n", val ? _("OPTFP")
              : _("default"));
       break;
 
     case Tag_ARC_ABI_double_size:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ARC_ABI_double_size: %d\n", val);
       break;
 
@@ -14649,14 +14676,12 @@ display_arc_attribute (unsigned char * p,
       break;
 
     case Tag_ARC_ISA_mpy_option:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ARC_ISA_mpy_option: %d\n", val);
       break;
 
     case Tag_ARC_ATR_version:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ARC_ATR_version: %d\n", val);
       break;
 
@@ -14801,14 +14826,12 @@ display_arm_attribute (unsigned char * p,
                       const unsigned char * const end)
 {
   unsigned int tag;
-  unsigned int len;
   unsigned int val;
   arm_attr_public_tag * attr;
   unsigned i;
   unsigned int type;
 
-  tag = read_uleb128 (p, &len, end);
-  p += len;
+  READ_ULEB (tag, p, end);
   attr = NULL;
   for (i = 0; i < ARRAY_SIZE (arm_attr_public_tags); i++)
     {
@@ -14828,8 +14851,7 @@ display_arm_attribute (unsigned char * p,
          switch (tag)
            {
            case 7: /* Tag_CPU_arch_profile.  */
-             val = read_uleb128 (p, &len, end);
-             p += len;
+             READ_ULEB (val, p, end);
              switch (val)
                {
                case 0: printf (_("None\n")); break;
@@ -14842,8 +14864,7 @@ display_arm_attribute (unsigned char * p,
              break;
 
            case 24: /* Tag_align_needed.  */
-             val = read_uleb128 (p, &len, end);
-             p += len;
+             READ_ULEB (val, p, end);
              switch (val)
                {
                case 0: printf (_("None\n")); break;
@@ -14861,8 +14882,7 @@ display_arm_attribute (unsigned char * p,
              break;
 
            case 25: /* Tag_align_preserved.  */
-             val = read_uleb128 (p, &len, end);
-             p += len;
+             READ_ULEB (val, p, end);
              switch (val)
                {
                case 0: printf (_("None\n")); break;
@@ -14881,8 +14901,7 @@ display_arm_attribute (unsigned char * p,
 
            case 32: /* Tag_compatibility.  */
              {
-               val = read_uleb128 (p, &len, end);
-               p += len;
+               READ_ULEB (val, p, end);
                printf (_("flag = %d, vendor = "), val);
                if (p < end - 1)
                  {
@@ -14908,12 +14927,10 @@ display_arm_attribute (unsigned char * p,
              break;
 
            case 65: /* Tag_also_compatible_with.  */
-             val = read_uleb128 (p, &len, end);
-             p += len;
+             READ_ULEB (val, p, end);
              if (val == 6 /* Tag_CPU_arch.  */)
                {
-                 val = read_uleb128 (p, &len, end);
-                 p += len;
+                 READ_ULEB (val, p, end);
                  if ((unsigned int) val >= ARRAY_SIZE (arm_attr_tag_CPU_arch))
                    printf ("??? (%d)\n", val);
                  else
@@ -14938,8 +14955,7 @@ display_arm_attribute (unsigned char * p,
 
        default:
          assert (attr->type & 0x80);
-         val = read_uleb128 (p, &len, end);
-         p += len;
+         READ_ULEB (val, p, end);
          type = attr->type & 0x7f;
          if (val >= type)
            printf ("??? (%d)\n", val);
@@ -14957,19 +14973,16 @@ display_gnu_attribute (unsigned char * p,
                       unsigned char * (* display_proc_gnu_attribute) (unsigned char *, unsigned int, const unsigned char * const),
                       const unsigned char * const end)
 {
-  int tag;
-  unsigned int len;
+  unsigned int tag;
   unsigned int val;
 
-  tag = read_uleb128 (p, &len, end);
-  p += len;
+  READ_ULEB (tag, p, end);
 
   /* Tag_compatibility is the only generic GNU attribute defined at
      present.  */
   if (tag == 32)
     {
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
 
       printf (_("flag = %d, vendor = "), val);
       if (p == end)
@@ -15007,19 +15020,17 @@ display_power_gnu_attribute (unsigned char * p,
                             unsigned int tag,
                             const unsigned char * const end)
 {
-  unsigned int len;
   unsigned int val;
 
   if (tag == Tag_GNU_Power_ABI_FP)
     {
-      val = read_uleb128 (p, &len, end);
-      p += len;
       printf ("  Tag_GNU_Power_ABI_FP: ");
-      if (len == 0)
+      if (p == end)
        {
          printf (_("<corrupt>\n"));
          return p;
        }
+      READ_ULEB (val, p, end);
 
       if (val > 15)
        printf ("(%#x), ", val);
@@ -15060,14 +15071,13 @@ display_power_gnu_attribute (unsigned char * p,
 
   if (tag == Tag_GNU_Power_ABI_Vector)
     {
-      val = read_uleb128 (p, &len, end);
-      p += len;
       printf ("  Tag_GNU_Power_ABI_Vector: ");
-      if (len == 0)
+      if (p == end)
        {
          printf (_("<corrupt>\n"));
          return p;
        }
+      READ_ULEB (val, p, end);
 
       if (val > 3)
        printf ("(%#x), ", val);
@@ -15092,14 +15102,13 @@ display_power_gnu_attribute (unsigned char * p,
 
   if (tag == Tag_GNU_Power_ABI_Struct_Return)
     {
-      val = read_uleb128 (p, &len, end);
-      p += len;
       printf ("  Tag_GNU_Power_ABI_Struct_Return: ");
-      if (len == 0)
+      if (p == end)
        {
          printf (_("<corrupt>\n"));
          return p;
        }
+      READ_ULEB (val, p, end);
 
       if (val > 2)
        printf ("(%#x), ", val);
@@ -15130,14 +15139,12 @@ display_s390_gnu_attribute (unsigned char * p,
                            unsigned int tag,
                            const unsigned char * const end)
 {
-  unsigned int len;
-  int val;
+  unsigned int val;
 
   if (tag == Tag_GNU_S390_ABI_Vector)
     {
-      val = read_uleb128 (p, &len, end);
-      p += len;
       printf ("  Tag_GNU_S390_ABI_Vector: ");
+      READ_ULEB (val, p, end);
 
       switch (val)
        {
@@ -15245,21 +15252,18 @@ display_sparc_gnu_attribute (unsigned char * p,
                             unsigned int tag,
                             const unsigned char * const end)
 {
-  unsigned int len;
-  int val;
+  unsigned int val;
 
   if (tag == Tag_GNU_Sparc_HWCAPS)
     {
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_GNU_Sparc_HWCAPS: ");
       display_sparc_hwcaps (val);
       return p;
     }
   if (tag == Tag_GNU_Sparc_HWCAPS2)
     {
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_GNU_Sparc_HWCAPS2: ");
       display_sparc_hwcaps2 (val);
       return p;
@@ -15313,26 +15317,20 @@ display_mips_gnu_attribute (unsigned char * p,
 {
   if (tag == Tag_GNU_MIPS_ABI_FP)
     {
-      unsigned int len;
       unsigned int val;
 
-      val = read_uleb128 (p, &len, end);
-      p += len;
       printf ("  Tag_GNU_MIPS_ABI_FP: ");
-
+      READ_ULEB (val, p, end);
       print_mips_fp_abi_value (val);
-
       return p;
    }
 
   if (tag == Tag_GNU_MIPS_ABI_MSA)
     {
-      unsigned int len;
       unsigned int val;
 
-      val = read_uleb128 (p, &len, end);
-      p += len;
       printf ("  Tag_GNU_MIPS_ABI_MSA: ");
+      READ_ULEB (val, p, end);
 
       switch (val)
        {
@@ -15357,18 +15355,15 @@ display_tic6x_attribute (unsigned char * p,
                         const unsigned char * const end)
 {
   unsigned int tag;
-  unsigned int len;
-  int val;
+  unsigned int val;
 
-  tag = read_uleb128 (p, &len, end);
-  p += len;
+  READ_ULEB (tag, p, end);
 
   switch (tag)
     {
     case Tag_ISA:
-      val = read_uleb128 (p, &len, end);
-      p += len;
       printf ("  Tag_ISA: ");
+      READ_ULEB (val, p, end);
 
       switch (val)
        {
@@ -15400,9 +15395,8 @@ display_tic6x_attribute (unsigned char * p,
       return p;
 
     case Tag_ABI_wchar_t:
-      val = read_uleb128 (p, &len, end);
-      p += len;
       printf ("  Tag_ABI_wchar_t: ");
+      READ_ULEB (val, p, end);
       switch (val)
        {
        case 0:
@@ -15421,9 +15415,8 @@ display_tic6x_attribute (unsigned char * p,
       return p;
 
     case Tag_ABI_stack_align_needed:
-      val = read_uleb128 (p, &len, end);
-      p += len;
       printf ("  Tag_ABI_stack_align_needed: ");
+      READ_ULEB (val, p, end);
       switch (val)
        {
        case 0:
@@ -15439,8 +15432,7 @@ display_tic6x_attribute (unsigned char * p,
       return p;
 
     case Tag_ABI_stack_align_preserved:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ABI_stack_align_preserved: ");
       switch (val)
        {
@@ -15457,8 +15449,7 @@ display_tic6x_attribute (unsigned char * p,
       return p;
 
     case Tag_ABI_DSBT:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ABI_DSBT: ");
       switch (val)
        {
@@ -15475,8 +15466,7 @@ display_tic6x_attribute (unsigned char * p,
       return p;
 
     case Tag_ABI_PID:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ABI_PID: ");
       switch (val)
        {
@@ -15496,8 +15486,7 @@ display_tic6x_attribute (unsigned char * p,
       return p;
 
     case Tag_ABI_PIC:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ABI_PIC: ");
       switch (val)
        {
@@ -15514,8 +15503,7 @@ display_tic6x_attribute (unsigned char * p,
       return p;
 
     case Tag_ABI_array_object_alignment:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ABI_array_object_alignment: ");
       switch (val)
        {
@@ -15535,8 +15523,7 @@ display_tic6x_attribute (unsigned char * p,
       return p;
 
     case Tag_ABI_array_object_align_expected:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       printf ("  Tag_ABI_array_object_align_expected: ");
       switch (val)
        {
@@ -15557,8 +15544,7 @@ display_tic6x_attribute (unsigned char * p,
 
     case Tag_ABI_compatibility:
       {
-       val = read_uleb128 (p, &len, end);
-       p += len;
+       READ_ULEB (val, p, end);
        printf ("  Tag_ABI_compatibility: ");
        printf (_("flag = %d, vendor = "), val);
        if (p < end - 1)
@@ -15649,19 +15635,16 @@ static unsigned char *
 display_msp430x_attribute (unsigned char * p,
                           const unsigned char * const end)
 {
-  unsigned int len;
   unsigned int val;
   unsigned int tag;
 
-  tag = read_uleb128 (p, & len, end);
-  p += len;
+  READ_ULEB (tag, p, end);
 
   switch (tag)
     {
     case OFBA_MSPABI_Tag_ISA:
-      val = read_uleb128 (p, &len, end);
-      p += len;
       printf ("  Tag_ISA: ");
+      READ_ULEB (val, p, end);
       switch (val)
        {
        case 0: printf (_("None\n")); break;
@@ -15672,9 +15655,8 @@ display_msp430x_attribute (unsigned char * p,
       break;
 
     case OFBA_MSPABI_Tag_Code_Model:
-      val = read_uleb128 (p, &len, end);
-      p += len;
       printf ("  Tag_Code_Model: ");
+      READ_ULEB (val, p, end);
       switch (val)
        {
        case 0: printf (_("None\n")); break;
@@ -15685,9 +15667,8 @@ display_msp430x_attribute (unsigned char * p,
       break;
 
     case OFBA_MSPABI_Tag_Data_Model:
-      val = read_uleb128 (p, &len, end);
-      p += len;
       printf ("  Tag_Data_Model: ");
+      READ_ULEB (val, p, end);
       switch (val)
        {
        case 0: printf (_("None\n")); break;
@@ -15720,8 +15701,7 @@ display_msp430x_attribute (unsigned char * p,
        }
       else
        {
-         val = read_uleb128 (p, &len, end);
-         p += len;
+         READ_ULEB (val, p, end);
          printf ("%d (0x%x)\n", val, val);
        }
       break;
@@ -15731,9 +15711,37 @@ display_msp430x_attribute (unsigned char * p,
   return p;
 }
 
+static unsigned char *
+display_msp430_gnu_attribute (unsigned char * p,
+                             unsigned int tag,
+                             const unsigned char * const end)
+{
+  if (tag == Tag_GNU_MSP430_Data_Region)
+    {
+      unsigned int val;
+
+      printf ("  Tag_GNU_MSP430_Data_Region: ");
+      READ_ULEB (val, p, end);
+
+      switch (val)
+       {
+       case Val_GNU_MSP430_Data_Region_Any:
+         printf (_("Any Region\n"));
+         break;
+       case Val_GNU_MSP430_Data_Region_Lower:
+         printf (_("Lower Region Only\n"));
+         break;
+       default:
+         printf ("??? (%u)\n", val);
+       }
+      return p;
+    }
+  return display_tag_value (tag & 1, p, end);
+}
+
 struct riscv_attr_tag_t {
   const char *name;
-  int tag;
+  unsigned int tag;
 };
 
 static struct riscv_attr_tag_t riscv_attr_tag[] =
@@ -15752,14 +15760,12 @@ static unsigned char *
 display_riscv_attribute (unsigned char *p,
                         const unsigned char * const end)
 {
-  unsigned int len;
-  int val;
-  int tag;
+  unsigned int val;
+  unsigned int tag;
   struct riscv_attr_tag_t *attr = NULL;
   unsigned i;
 
-  tag = read_uleb128 (p, &len, end);
-  p += len;
+  READ_ULEB (tag, p, end);
 
   /* Find the name of attribute. */
   for (i = 0; i < ARRAY_SIZE (riscv_attr_tag); i++)
@@ -15781,13 +15787,11 @@ display_riscv_attribute (unsigned char *p,
     case Tag_RISCV_priv_spec:
     case Tag_RISCV_priv_spec_minor:
     case Tag_RISCV_priv_spec_revision:
-      val = read_uleb128 (p, &len, end);
-      p += len;
-      printf (_("%d\n"), val);
+      READ_ULEB (val, p, end);
+      printf (_("%u\n"), val);
       break;
     case Tag_RISCV_unaligned_access:
-      val = read_uleb128 (p, &len, end);
-      p += len;
+      READ_ULEB (val, p, end);
       switch (val)
        {
        case 0:
@@ -15799,9 +15803,8 @@ display_riscv_attribute (unsigned char *p,
        }
       break;
     case Tag_RISCV_stack_align:
-      val = read_uleb128 (p, &len, end);
-      p += len;
-      printf (_("%d-bytes\n"), val);
+      READ_ULEB (val, p, end);
+      printf (_("%u-bytes\n"), val);
       break;
     case Tag_RISCV_arch:
       p = display_tag_value (-1, p, end);
@@ -15920,7 +15923,7 @@ process_attributes (Filedata * filedata,
              while (attr_len > 0 && p < contents + sect->sh_size)
                {
                  int tag;
-                 int val;
+                 unsigned int val;
                  bfd_vma size;
                  unsigned char * end;
 
@@ -15971,10 +15974,7 @@ process_attributes (Filedata * filedata,
                    do_numlist:
                      for (;;)
                        {
-                         unsigned int j;
-
-                         val = read_uleb128 (p, &j, end);
-                         p += j;
+                         READ_ULEB (val, p, end);
                          if (val == 0)
                            break;
                          printf (" %d", val);
@@ -17636,6 +17636,82 @@ decode_x86_isa (unsigned int bitmask)
     }
 }
 
+static const char *
+get_amd_elf_note_type (unsigned e_type)
+{
+  static char buff[64];
+
+  switch (e_type)
+    {
+    case NT_AMDGPU_HSA_CODE_OBJECT_VERSION:
+      return _("NT_AMDGPU_HSA_CODE_OBJECT_VERSION (code object version)");
+    case NT_AMDGPU_HSA_HSAIL:
+      return _("NT_AMDGPU_HSA_HSAIL (hsail)");
+    case NT_AMDGPU_HSA_ISA:
+      return _("NT_AMDGPU_HSA_ISA (ISA name)");
+    case NT_AMDGPU_HSA_PRODUCER:
+      return _("NT_AMDGPU_HSA_PRODUCER (producer name)");
+    case NT_AMDGPU_HSA_PRODUCER_OPTIONS:
+      return _("NT_AMDGPU_HSA_PRODUCER_OPTIONS (producer options");
+    case NT_AMDGPU_HSA_EXTENSION:
+      return _("NT_AMDGPU_HSA_EXTENSION (extension)");
+    case NT_AMDGPU_HSA_METADATA:
+      return _("NT_AMDGPU_HSA_METADATA (code object metadata)");
+    case NT_AMDGPU_ISA:
+      return _("NT_AMDGPU_ISA");
+    case NT_AMDGPU_PAL_METADATA:
+      return _("NT_AMDGPU_PAL_METADATA (code object metadata)");
+    case NT_AMDGPU_METADATA:
+      return _("NT_AMDGPU_METADATA (code object metadata)");
+    default:
+      break;
+    }
+
+  snprintf (buff, sizeof (buff), _("Unknown note type: (0x%08x)"), e_type);
+  return buff;
+}
+
+static int
+print_amd_note (Elf_Internal_Note *pnote)
+{
+  switch (pnote->type)
+    {
+    case NT_AMDGPU_HSA_CODE_OBJECT_VERSION:
+      {
+        unsigned int major, minor;
+
+        major = byte_get ((unsigned char*) pnote->descdata, 4);
+        minor = byte_get ((unsigned char*) pnote->descdata + 4, 4);
+
+        printf (_("    Version: %d.%d\n"), major, minor);
+      }
+      break;
+
+    case NT_AMDGPU_HSA_ISA:
+      {
+        unsigned long i, vendorsz;
+        unsigned int major, minor, stepping;
+
+        vendorsz = byte_get ((unsigned char*) pnote->descdata, 2);
+        major = byte_get ((unsigned char*) pnote->descdata + 4, 4);
+        minor = byte_get ((unsigned char*) pnote->descdata + 8, 4);
+        stepping = byte_get ((unsigned char*) pnote->descdata + 12, 4);
+
+        printf (_("    Vendor: "));
+        for (i = 16; i < pnote->descsz && pnote->descdata[i] != '\0'; ++i)
+          printf ("%c", pnote->descdata[i]);
+        printf (_(", Architecture: "));
+        for (i = 16 + vendorsz; i < pnote->descsz && pnote->descdata[i] != '\0'; ++i)
+          printf ("%c", pnote->descdata[i]);
+
+        printf (_(", Version: %d.%d.%d"), major, minor, stepping);
+        printf ("\n");
+      }
+      break;
+    }
+  return 1;
+}
+
 static void
 decode_x86_feature_1 (unsigned int bitmask)
 {
@@ -19083,6 +19159,11 @@ process_note (Elf_Internal_Note *  pnote,
     /* GNU-specific object file notes.  */
     nt = get_gnu_elf_note_type (pnote->type);
 
+  else if (const_strneq (pnote->namedata, "AMD")
+           || const_strneq (pnote->namedata, "AMDGPU"))
+    /* AMD-specific object file notes.  */
+    nt = get_amd_elf_note_type (pnote->type);
+
   else if (const_strneq (pnote->namedata, "FreeBSD"))
     /* FreeBSD-specific core file notes.  */
     nt = get_freebsd_elfcore_note_type (filedata, pnote->type);
@@ -19138,6 +19219,9 @@ process_note (Elf_Internal_Note *  pnote,
     return print_ia64_vms_note (pnote);
   else if (const_strneq (pnote->namedata, "GNU"))
     return print_gnu_note (filedata, pnote);
+  else if (const_strneq (pnote->namedata, "AMD")
+           || const_strneq (pnote->namedata, "AMDGPU"))
+    return print_amd_note (pnote);
   else if (const_strneq (pnote->namedata, "stapsdt"))
     return print_stapsdt_note (pnote);
   else if (const_strneq (pnote->namedata, "CORE"))
@@ -19555,7 +19639,7 @@ process_arch_specific (Filedata * filedata)
     case EM_MSP430:
      return process_attributes (filedata, "mspabi", SHT_MSP430_ATTRIBUTES,
                                display_msp430x_attribute,
-                               display_generic_attribute);
+                               display_msp430_gnu_attribute);
 
     case EM_RISCV:
      return process_attributes (filedata, "riscv", SHT_RISCV_ATTRIBUTES,
This page took 0.038763 seconds and 4 git commands to generate.