LCOV - code coverage report
Current view: top level - src - readelf.c (source / functions) Hit Total Coverage
Test: elfutils-0.189 Lines: 4554 6811 66.9 %
Date: 2023-08-02 17:40:45 Functions: 139 155 89.7 %
Legend: Lines: hit not hit | Branches: + taken - not taken # not executed Branches: 2550 4858 52.5 %

           Branch data     Line data    Source code
       1                 :            : /* Print information from ELF file in human-readable form.
       2                 :            :    Copyright (C) 1999-2018 Red Hat, Inc.
       3                 :            :    This file is part of elfutils.
       4                 :            : 
       5                 :            :    This file is free software; you can redistribute it and/or modify
       6                 :            :    it under the terms of the GNU General Public License as published by
       7                 :            :    the Free Software Foundation; either version 3 of the License, or
       8                 :            :    (at your option) any later version.
       9                 :            : 
      10                 :            :    elfutils is distributed in the hope that it will be useful, but
      11                 :            :    WITHOUT ANY WARRANTY; without even the implied warranty of
      12                 :            :    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
      13                 :            :    GNU General Public License for more details.
      14                 :            : 
      15                 :            :    You should have received a copy of the GNU General Public License
      16                 :            :    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
      17                 :            : 
      18                 :            : #ifdef HAVE_CONFIG_H
      19                 :            : # include <config.h>
      20                 :            : #endif
      21                 :            : 
      22                 :            : #include <argp.h>
      23                 :            : #include <assert.h>
      24                 :            : #include <ctype.h>
      25                 :            : #include <dwarf.h>
      26                 :            : #include <errno.h>
      27                 :            : #include <fcntl.h>
      28                 :            : #include <gelf.h>
      29                 :            : #include <inttypes.h>
      30                 :            : #include <langinfo.h>
      31                 :            : #include <libdw.h>
      32                 :            : #include <libdwfl.h>
      33                 :            : #include <locale.h>
      34                 :            : #include <stdarg.h>
      35                 :            : #include <stdbool.h>
      36                 :            : #include <stdio.h>
      37                 :            : #include <stdio_ext.h>
      38                 :            : #include <stdlib.h>
      39                 :            : #include <string.h>
      40                 :            : #include <strings.h>
      41                 :            : #include <time.h>
      42                 :            : #include <unistd.h>
      43                 :            : #include <sys/stat.h>
      44                 :            : #include <signal.h>
      45                 :            : 
      46                 :            : #include <libeu.h>
      47                 :            : #include <system.h>
      48                 :            : #include <printversion.h>
      49                 :            : #include "../libelf/libelfP.h"
      50                 :            : #include "../libelf/common.h"
      51                 :            : #include "../libebl/libeblP.h"
      52                 :            : #include "../libdwelf/libdwelf.h"
      53                 :            : #include "../libdw/libdwP.h"
      54                 :            : #include "../libdwfl/libdwflP.h"
      55                 :            : #include "../libdw/memory-access.h"
      56                 :            : 
      57                 :            : #include "../libdw/known-dwarf.h"
      58                 :            : 
      59                 :            : #ifdef __linux__
      60                 :            : #define CORE_SIGILL  SIGILL
      61                 :            : #define CORE_SIGBUS  SIGBUS
      62                 :            : #define CORE_SIGFPE  SIGFPE
      63                 :            : #define CORE_SIGSEGV SIGSEGV
      64                 :            : #define CORE_SI_USER SI_USER
      65                 :            : #else
      66                 :            : /* We want the linux version of those as that is what shows up in the core files. */
      67                 :            : #define CORE_SIGILL  4  /* Illegal instruction (ANSI).  */
      68                 :            : #define CORE_SIGBUS  7  /* BUS error (4.2 BSD).  */
      69                 :            : #define CORE_SIGFPE  8  /* Floating-point exception (ANSI).  */
      70                 :            : #define CORE_SIGSEGV 11 /* Segmentation violation (ANSI).  */
      71                 :            : #define CORE_SI_USER 0  /* Sent by kill, sigsend.  */
      72                 :            : #endif
      73                 :            : 
      74                 :            : /* Name and version of program.  */
      75                 :            : ARGP_PROGRAM_VERSION_HOOK_DEF = print_version;
      76                 :            : 
      77                 :            : /* Bug report address.  */
      78                 :            : ARGP_PROGRAM_BUG_ADDRESS_DEF = PACKAGE_BUGREPORT;
      79                 :            : 
      80                 :            : /* argp key value for --elf-section, non-ascii.  */
      81                 :            : #define ELF_INPUT_SECTION 256
      82                 :            : 
      83                 :            : /* argp key value for --dwarf-skeleton, non-ascii.  */
      84                 :            : #define DWARF_SKELETON 257
      85                 :            : 
      86                 :            : /* argp key value for --dyn-syms, non-ascii.  */
      87                 :            : #define PRINT_DYNSYM_TABLE 258
      88                 :            : 
      89                 :            : /* Terrible hack for hooking unrelated skeleton/split compile units,
      90                 :            :    see __libdw_link_skel_split in print_debug.  */
      91                 :            : static bool do_not_close_dwfl = false;
      92                 :            : 
      93                 :            : /* Definitions of arguments for argp functions.  */
      94                 :            : static const struct argp_option options[] =
      95                 :            : {
      96                 :            :   { NULL, 0, NULL, 0, N_("ELF input selection:"), 0 },
      97                 :            :   { "elf-section", ELF_INPUT_SECTION, "SECTION", OPTION_ARG_OPTIONAL,
      98                 :            :     N_("Use the named SECTION (default .gnu_debugdata) as (compressed) ELF "
      99                 :            :        "input data"), 0 },
     100                 :            :   { "dwarf-skeleton", DWARF_SKELETON, "FILE", 0,
     101                 :            :     N_("Used with -w to find the skeleton Compile Units in FILE associated "
     102                 :            :        "with the Split Compile units in a .dwo input file"), 0 },
     103                 :            :   { NULL, 0, NULL, 0, N_("ELF output selection:"), 0 },
     104                 :            :   { "all", 'a', NULL, 0,
     105                 :            :     N_("All these plus -p .strtab -p .dynstr -p .comment"), 0 },
     106                 :            :   { "dynamic", 'd', NULL, 0, N_("Display the dynamic segment"), 0 },
     107                 :            :   { "file-header", 'h', NULL, 0, N_("Display the ELF file header"), 0 },
     108                 :            :   { "histogram", 'I', NULL, 0,
     109                 :            :     N_("Display histogram of bucket list lengths"), 0 },
     110                 :            :   { "program-headers", 'l', NULL, 0, N_("Display the program headers"), 0 },
     111                 :            :   { "segments", 'l', NULL, OPTION_ALIAS | OPTION_HIDDEN, NULL, 0 },
     112                 :            :   { "relocs", 'r', NULL, 0, N_("Display relocations"), 0 },
     113                 :            :   { "section-groups", 'g', NULL, 0, N_("Display the section groups"), 0 },
     114                 :            :   { "section-headers", 'S', NULL, 0, N_("Display the sections' headers"), 0 },
     115                 :            :   { "sections", 'S', NULL, OPTION_ALIAS | OPTION_HIDDEN, NULL, 0 },
     116                 :            :   { "symbols", 's', "SECTION", OPTION_ARG_OPTIONAL,
     117                 :            :     N_("Display the symbol table sections"), 0 },
     118                 :            :   { "syms", 's', NULL, OPTION_ALIAS | OPTION_HIDDEN, NULL, 0 },
     119                 :            :   { "dyn-syms", PRINT_DYNSYM_TABLE, NULL, 0,
     120                 :            :     N_("Display (only) the dynamic symbol table"), 0 },
     121                 :            :   { "version-info", 'V', NULL, 0, N_("Display versioning information"), 0 },
     122                 :            :   { "notes", 'n', "SECTION", OPTION_ARG_OPTIONAL, N_("Display the ELF notes"), 0 },
     123                 :            :   { "arch-specific", 'A', NULL, 0,
     124                 :            :     N_("Display architecture specific information, if any"), 0 },
     125                 :            :   { "exception", 'e', NULL, 0,
     126                 :            :     N_("Display sections for exception handling"), 0 },
     127                 :            : 
     128                 :            :   { NULL, 0, NULL, 0, N_("Additional output selection:"), 0 },
     129                 :            :   { "debug-dump", 'w', "SECTION", OPTION_ARG_OPTIONAL,
     130                 :            :     N_("Display DWARF section content.  SECTION can be one of abbrev, addr, "
     131                 :            :        "aranges, decodedaranges, frame, gdb_index, info, info+, loc, line, "
     132                 :            :        "decodedline, ranges, pubnames, str, macinfo, macro or exception"), 0 },
     133                 :            :   { "hex-dump", 'x', "SECTION", 0,
     134                 :            :     N_("Dump the uninterpreted contents of SECTION, by number or name"), 0 },
     135                 :            :   { "strings", 'p', "SECTION", OPTION_ARG_OPTIONAL,
     136                 :            :     N_("Print string contents of sections"), 0 },
     137                 :            :   { "string-dump", 'p', NULL, OPTION_ALIAS | OPTION_HIDDEN, NULL, 0 },
     138                 :            :   { "archive-index", 'c', NULL, 0,
     139                 :            :     N_("Display the symbol index of an archive"), 0 },
     140                 :            :   { "use-dynamic", 'D', NULL, 0,
     141                 :            :     N_("Use the dynamic segment when possible for displaying info"), 0 },
     142                 :            : 
     143                 :            :   { NULL, 0, NULL, 0, N_("Output control:"), 0 },
     144                 :            :   { "numeric-addresses", 'N', NULL, 0,
     145                 :            :     N_("Do not find symbol names for addresses in DWARF data"), 0 },
     146                 :            :   { "unresolved-address-offsets", 'U', NULL, 0,
     147                 :            :     N_("Display just offsets instead of resolving values to addresses in DWARF data"), 0 },
     148                 :            :   { "wide", 'W', NULL, 0,
     149                 :            :     N_("Ignored for compatibility (lines always wide)"), 0 },
     150                 :            :   { "decompress", 'z', NULL, 0,
     151                 :            :     N_("Show compression information for compressed sections (when used with -S); decompress section before dumping data (when used with -p or -x)"), 0 },
     152                 :            :   { NULL, 0, NULL, 0, NULL, 0 }
     153                 :            : };
     154                 :            : 
     155                 :            : /* Short description of program.  */
     156                 :            : static const char doc[] = N_("\
     157                 :            : Print information from ELF file in human-readable form.");
     158                 :            : 
     159                 :            : /* Strings for arguments in help texts.  */
     160                 :            : static const char args_doc[] = N_("FILE...");
     161                 :            : 
     162                 :            : /* Prototype for option handler.  */
     163                 :            : static error_t parse_opt (int key, char *arg, struct argp_state *state);
     164                 :            : 
     165                 :            : /* Data structure to communicate with argp functions.  */
     166                 :            : static struct argp argp =
     167                 :            : {
     168                 :            :   options, parse_opt, args_doc, doc, NULL, NULL, NULL
     169                 :            : };
     170                 :            : 
     171                 :            : /* If non-null, the section from which we should read to (compressed) ELF.  */
     172                 :            : static const char *elf_input_section = NULL;
     173                 :            : 
     174                 :            : /* If non-null, the file that contains the skeleton CUs.  */
     175                 :            : static const char *dwarf_skeleton = NULL;
     176                 :            : 
     177                 :            : /* Flags set by the option controlling the output.  */
     178                 :            : 
     179                 :            : /* True if dynamic segment should be printed.  */
     180                 :            : static bool print_dynamic_table;
     181                 :            : 
     182                 :            : /* True if the file header should be printed.  */
     183                 :            : static bool print_file_header;
     184                 :            : 
     185                 :            : /* True if the program headers should be printed.  */
     186                 :            : static bool print_program_header;
     187                 :            : 
     188                 :            : /* True if relocations should be printed.  */
     189                 :            : static bool print_relocations;
     190                 :            : 
     191                 :            : /* True if the section headers should be printed.  */
     192                 :            : static bool print_section_header;
     193                 :            : 
     194                 :            : /* True if the symbol table should be printed.  */
     195                 :            : static bool print_symbol_table;
     196                 :            : 
     197                 :            : /* True if (only) the dynsym table should be printed.  */
     198                 :            : static bool print_dynsym_table;
     199                 :            : 
     200                 :            : /* True if reconstruct dynamic symbol table from the PT_DYNAMIC segment.  */
     201                 :            : static bool use_dynamic_segment;
     202                 :            : 
     203                 :            : /* A specific section name, or NULL to print all symbol tables.  */
     204                 :            : static char *symbol_table_section;
     205                 :            : 
     206                 :            : /* A specific section name, or NULL to print all ELF notes.  */
     207                 :            : static char *notes_section;
     208                 :            : 
     209                 :            : /* True if the version information should be printed.  */
     210                 :            : static bool print_version_info;
     211                 :            : 
     212                 :            : /* True if section groups should be printed.  */
     213                 :            : static bool print_section_groups;
     214                 :            : 
     215                 :            : /* True if bucket list length histogram should be printed.  */
     216                 :            : static bool print_histogram;
     217                 :            : 
     218                 :            : /* True if the architecture specific data should be printed.  */
     219                 :            : static bool print_arch;
     220                 :            : 
     221                 :            : /* True if note section content should be printed.  */
     222                 :            : static bool print_notes;
     223                 :            : 
     224                 :            : /* True if SHF_STRINGS section content should be printed.  */
     225                 :            : static bool print_string_sections;
     226                 :            : 
     227                 :            : /* True if archive index should be printed.  */
     228                 :            : static bool print_archive_index;
     229                 :            : 
     230                 :            : /* True if any of the control options except print_archive_index is set.  */
     231                 :            : static bool any_control_option;
     232                 :            : 
     233                 :            : /* True if we should print addresses from DWARF in symbolic form.  */
     234                 :            : static bool print_address_names = true;
     235                 :            : 
     236                 :            : /* True if we should print raw values instead of relativized addresses.  */
     237                 :            : static bool print_unresolved_addresses = false;
     238                 :            : 
     239                 :            : /* True if we should print the .debug_aranges section using libdw.  */
     240                 :            : static bool decodedaranges = false;
     241                 :            : 
     242                 :            : /* True if we should print the .debug_aranges section using libdw.  */
     243                 :            : static bool decodedline = false;
     244                 :            : 
     245                 :            : /* True if we want to show more information about compressed sections.  */
     246                 :            : static bool print_decompress = false;
     247                 :            : 
     248                 :            : /* True if we want to show split compile units for debug_info skeletons.  */
     249                 :            : static bool show_split_units = false;
     250                 :            : 
     251                 :            : /* Select printing of debugging sections.  */
     252                 :            : static enum section_e
     253                 :            : {
     254                 :            :   section_abbrev = 1,           /* .debug_abbrev  */
     255                 :            :   section_aranges = 2,          /* .debug_aranges  */
     256                 :            :   section_frame = 4,            /* .debug_frame or .eh_frame & al.  */
     257                 :            :   section_info = 8,             /* .debug_info, (implies .debug_types)  */
     258                 :            :   section_line = 16,            /* .debug_line  */
     259                 :            :   section_loc = 32,             /* .debug_loc  */
     260                 :            :   section_pubnames = 64,        /* .debug_pubnames  */
     261                 :            :   section_str = 128,            /* .debug_str  */
     262                 :            :   section_macinfo = 256,        /* .debug_macinfo  */
     263                 :            :   section_ranges = 512,         /* .debug_ranges  */
     264                 :            :   section_exception = 1024,     /* .eh_frame & al.  */
     265                 :            :   section_gdb_index = 2048,     /* .gdb_index  */
     266                 :            :   section_macro = 4096,         /* .debug_macro  */
     267                 :            :   section_addr = 8192,          /* .debug_addr  */
     268                 :            :   section_types = 16384,        /* .debug_types (implied by .debug_info)  */
     269                 :            :   section_all = (section_abbrev | section_aranges | section_frame
     270                 :            :                  | section_info | section_line | section_loc
     271                 :            :                  | section_pubnames | section_str | section_macinfo
     272                 :            :                  | section_ranges | section_exception | section_gdb_index
     273                 :            :                  | section_macro | section_addr | section_types)
     274                 :            : } print_debug_sections, implicit_debug_sections;
     275                 :            : 
     276                 :            : /* Select hex dumping of sections.  */
     277                 :            : static struct section_argument *dump_data_sections;
     278                 :            : static struct section_argument **dump_data_sections_tail = &dump_data_sections;
     279                 :            : 
     280                 :            : /* Select string dumping of sections.  */
     281                 :            : static struct section_argument *string_sections;
     282                 :            : static struct section_argument **string_sections_tail = &string_sections;
     283                 :            : 
     284                 :            : struct section_argument
     285                 :            : {
     286                 :            :   struct section_argument *next;
     287                 :            :   const char *arg;
     288                 :            :   bool implicit;
     289                 :            : };
     290                 :            : 
     291                 :            : /* Numbers of sections and program headers in the file.  */
     292                 :            : static size_t shnum;
     293                 :            : static size_t phnum;
     294                 :            : 
     295                 :            : 
     296                 :            : /* Declarations of local functions.  */
     297                 :            : static void process_file (int fd, const char *fname, bool only_one);
     298                 :            : static void process_elf_file (Dwfl_Module *dwflmod, int fd);
     299                 :            : static void print_ehdr (Ebl *ebl, GElf_Ehdr *ehdr);
     300                 :            : static void print_shdr (Ebl *ebl, GElf_Ehdr *ehdr);
     301                 :            : static void print_phdr (Ebl *ebl, GElf_Ehdr *ehdr);
     302                 :            : static void print_scngrp (Ebl *ebl);
     303                 :            : static void print_dynamic (Ebl *ebl);
     304                 :            : static void print_relocs (Ebl *ebl, GElf_Ehdr *ehdr);
     305                 :            : static void handle_relocs_rel (Ebl *ebl, GElf_Ehdr *ehdr, Elf_Scn *scn,
     306                 :            :                                GElf_Shdr *shdr);
     307                 :            : static void handle_relocs_rela (Ebl *ebl, GElf_Ehdr *ehdr, Elf_Scn *scn,
     308                 :            :                                 GElf_Shdr *shdr);
     309                 :            : static bool print_symtab (Ebl *ebl, int type);
     310                 :            : static bool handle_symtab (Ebl *ebl, Elf_Scn *scn, GElf_Shdr *shdr);
     311                 :            : static bool handle_dynamic_symtab (Ebl *ebl);
     312                 :            : static void
     313                 :            : process_symtab(
     314                 :            :         Ebl * ebl,
     315                 :            :         unsigned int nsyms,
     316                 :            :         Elf64_Word idx,
     317                 :            :         Elf32_Word verneed_stridx,
     318                 :            :         Elf32_Word verdef_stridx,
     319                 :            :         Elf_Data * symdata,
     320                 :            :         Elf_Data * versym_data,
     321                 :            :         Elf_Data * symstr_data,
     322                 :            :         Elf_Data * verneed_data,
     323                 :            :         Elf_Data * verdef_data,
     324                 :            :         Elf_Data * xndx_data);
     325                 :            : static void print_verinfo (Ebl *ebl);
     326                 :            : static void handle_verneed (Ebl *ebl, Elf_Scn *scn, GElf_Shdr *shdr);
     327                 :            : static void handle_verdef (Ebl *ebl, Elf_Scn *scn, GElf_Shdr *shdr);
     328                 :            : static void handle_versym (Ebl *ebl, Elf_Scn *scn,
     329                 :            :                            GElf_Shdr *shdr);
     330                 :            : static void print_debug (Dwfl_Module *dwflmod, Ebl *ebl, GElf_Ehdr *ehdr);
     331                 :            : static void handle_hash (Ebl *ebl);
     332                 :            : static void handle_notes (Ebl *ebl, GElf_Ehdr *ehdr);
     333                 :            : static void print_liblist (Ebl *ebl);
     334                 :            : static void print_attributes (Ebl *ebl, const GElf_Ehdr *ehdr);
     335                 :            : static void dump_data (Ebl *ebl);
     336                 :            : static void dump_strings (Ebl *ebl);
     337                 :            : static void print_strings (Ebl *ebl);
     338                 :            : static void dump_archive_index (Elf *, const char *);
     339                 :            : 
     340                 :            : enum dyn_idx
     341                 :            : {
     342                 :            :   i_symtab_shndx,
     343                 :            :   i_strsz,
     344                 :            :   i_verneed,
     345                 :            :   i_verneednum,
     346                 :            :   i_verdef,
     347                 :            :   i_verdefnum,
     348                 :            :   i_versym,
     349                 :            :   i_symtab,
     350                 :            :   i_strtab,
     351                 :            :   i_hash,
     352                 :            :   i_gnu_hash,
     353                 :            :   i_max
     354                 :            : };
     355                 :            : 
     356                 :            : /* Declarations of local functions for use-dynamic.  */
     357                 :            : static Elf_Data *get_dynscn_strtab (Elf *elf, GElf_Phdr *phdr);
     358                 :            : static void get_dynscn_addrs (Elf *elf, GElf_Phdr *phdr, GElf_Addr addrs[i_max]);
     359                 :            : static void find_offsets (Elf *elf, GElf_Addr main_bias, size_t n,
     360                 :            :                           GElf_Addr addrs[n], GElf_Off offs[n]);
     361                 :            : 
     362                 :            : /* Looked up once with gettext in main.  */
     363                 :            : static char *yes_str;
     364                 :            : static char *no_str;
     365                 :            : 
     366                 :            : static void
     367                 :        906 : cleanup_list (struct section_argument *list)
     368                 :            : {
     369   [ +  +  +  + ]:       1243 :   while (list != NULL)
     370                 :            :     {
     371                 :        337 :       struct section_argument *a = list;
     372                 :        337 :       list = a->next;
     373                 :        337 :       free (a);
     374                 :            :     }
     375                 :            : }
     376                 :            : 
     377                 :            : int
     378                 :        453 : main (int argc, char *argv[])
     379                 :            : {
     380                 :            :   /* We use no threads here which can interfere with handling a stream.  */
     381                 :        453 :   (void) __fsetlocking (stdout, FSETLOCKING_BYCALLER);
     382                 :            : 
     383                 :            :   /* Set locale.  */
     384                 :        453 :   setlocale (LC_ALL, "");
     385                 :            : 
     386                 :            :   /* Initialize the message catalog.  */
     387                 :        453 :   textdomain (PACKAGE_TARNAME);
     388                 :            : 
     389                 :            :   /* Look up once.  */
     390                 :        453 :   yes_str = _("yes");
     391                 :        453 :   no_str = _("no");
     392                 :            : 
     393                 :            :   /* Parse and process arguments.  */
     394                 :        453 :   int remaining;
     395                 :        453 :   argp_parse (&argp, argc, argv, 0, &remaining, NULL);
     396                 :            : 
     397                 :            :   /* Before we start tell the ELF library which version we are using.  */
     398                 :        453 :   elf_version (EV_CURRENT);
     399                 :            : 
     400                 :            :   /* Now process all the files given at the command line.  */
     401                 :        453 :   bool only_one = remaining + 1 == argc;
     402                 :        492 :   do
     403                 :            :     {
     404                 :            :       /* Open the file.  */
     405                 :        492 :       int fd = open (argv[remaining], O_RDONLY);
     406         [ -  + ]:        492 :       if (fd == -1)
     407                 :            :         {
     408                 :          0 :           error (0, errno, _("cannot open input file '%s'"), argv[remaining]);
     409                 :          0 :           continue;
     410                 :            :         }
     411                 :            : 
     412                 :        492 :       process_file (fd, argv[remaining], only_one);
     413                 :            : 
     414                 :        492 :       close (fd);
     415                 :            :     }
     416         [ +  + ]:        492 :   while (++remaining < argc);
     417                 :            : 
     418                 :        453 :   cleanup_list (dump_data_sections);
     419                 :        453 :   cleanup_list (string_sections);
     420                 :            : 
     421                 :        453 :   return error_message_count != 0;
     422                 :            : }
     423                 :            : 
     424                 :            : static void
     425                 :        337 : add_dump_section (const char *name,
     426                 :            :                   int key,
     427                 :            :                   bool implicit)
     428                 :            : {
     429                 :        337 :   struct section_argument *a = xmalloc (sizeof *a);
     430                 :        337 :   a->arg = name;
     431                 :        337 :   a->next = NULL;
     432                 :        337 :   a->implicit = implicit;
     433                 :        674 :   struct section_argument ***tailp
     434         [ +  + ]:        337 :     = key == 'x' ? &dump_data_sections_tail : &string_sections_tail;
     435                 :        337 :   **tailp = a;
     436                 :        337 :   *tailp = &a->next;
     437                 :        337 : }
     438                 :            : 
     439                 :            : /* Handle program arguments.  */
     440                 :            : static error_t
     441                 :       2877 : parse_opt (int key, char *arg,
     442                 :            :            struct argp_state *state __attribute__ ((unused)))
     443                 :            : {
     444   [ +  +  -  +  :       2877 :   switch (key)
          +  -  +  +  -  
          +  +  +  +  +  
          +  -  +  +  +  
          +  +  +  -  +  
             +  +  +  + ]
     445                 :            :     {
     446                 :        110 :     case 'a':
     447                 :        110 :       print_file_header = true;
     448                 :        110 :       print_program_header = true;
     449                 :        110 :       print_relocations = true;
     450                 :        110 :       print_section_header = true;
     451                 :        110 :       print_symbol_table = true;
     452                 :        110 :       print_version_info = true;
     453                 :        110 :       print_dynamic_table = true;
     454                 :        110 :       print_section_groups = true;
     455                 :        110 :       print_histogram = true;
     456                 :        110 :       print_arch = true;
     457                 :        110 :       print_notes = true;
     458                 :        110 :       implicit_debug_sections |= section_exception;
     459                 :        110 :       add_dump_section (".strtab", key, true);
     460                 :        110 :       add_dump_section (".dynstr", key, true);
     461                 :        110 :       add_dump_section (".comment", key, true);
     462                 :        110 :       any_control_option = true;
     463                 :        110 :       break;
     464                 :          4 :     case 'A':
     465                 :          4 :       print_arch = true;
     466                 :          4 :       any_control_option = true;
     467                 :          4 :       break;
     468                 :          3 :     case 'd':
     469                 :          3 :       print_dynamic_table = true;
     470                 :          3 :       any_control_option = true;
     471                 :          3 :       break;
     472                 :          1 :     case 'D':
     473                 :          1 :       use_dynamic_segment = true;
     474                 :          1 :       break;
     475                 :          0 :     case 'e':
     476                 :          0 :       print_debug_sections |= section_exception;
     477                 :          0 :       any_control_option = true;
     478                 :          0 :       break;
     479                 :          9 :     case 'g':
     480                 :          9 :       print_section_groups = true;
     481                 :          9 :       any_control_option = true;
     482                 :          9 :       break;
     483                 :          3 :     case 'h':
     484                 :          3 :       print_file_header = true;
     485                 :          3 :       any_control_option = true;
     486                 :          3 :       break;
     487                 :          0 :     case 'I':
     488                 :          0 :       print_histogram = true;
     489                 :          0 :       any_control_option = true;
     490                 :          0 :       break;
     491                 :          2 :     case 'l':
     492                 :          2 :       print_program_header = true;
     493                 :          2 :       any_control_option = true;
     494                 :          2 :       break;
     495                 :         23 :     case 'n':
     496                 :         23 :       print_notes = true;
     497                 :         23 :       any_control_option = true;
     498                 :         23 :       notes_section = arg;
     499                 :         23 :       break;
     500                 :          1 :     case 'r':
     501                 :          1 :       print_relocations = true;
     502                 :          1 :       any_control_option = true;
     503                 :          1 :      break;
     504                 :        161 :     case 'S':
     505                 :        161 :       print_section_header = true;
     506                 :        161 :       any_control_option = true;
     507                 :        161 :       break;
     508                 :         17 :     case 's':
     509                 :         17 :       print_symbol_table = true;
     510                 :         17 :       any_control_option = true;
     511                 :         17 :       symbol_table_section = arg;
     512                 :         17 :       break;
     513                 :          1 :     case PRINT_DYNSYM_TABLE:
     514                 :          1 :       print_dynsym_table = true;
     515                 :          1 :       any_control_option = true;
     516                 :          1 :       break;
     517                 :          0 :     case 'V':
     518                 :          0 :       print_version_info = true;
     519                 :          0 :       any_control_option = true;
     520                 :          0 :       break;
     521                 :          2 :     case 'c':
     522                 :          2 :       print_archive_index = true;
     523                 :          2 :       break;
     524                 :        126 :     case 'w':
     525         [ +  + ]:        126 :       if (arg == NULL)
     526                 :            :         {
     527                 :         41 :           print_debug_sections = section_all;
     528                 :         41 :           implicit_debug_sections = section_info;
     529                 :         41 :           show_split_units = true;
     530                 :            :         }
     531         [ -  + ]:         85 :       else if (strcmp (arg, "abbrev") == 0)
     532                 :          0 :         print_debug_sections |= section_abbrev;
     533         [ +  + ]:         85 :       else if (strcmp (arg, "addr") == 0)
     534                 :            :         {
     535                 :          2 :           print_debug_sections |= section_addr;
     536                 :          2 :           implicit_debug_sections |= section_info;
     537                 :            :         }
     538         [ +  + ]:         83 :       else if (strcmp (arg, "aranges") == 0)
     539                 :          3 :         print_debug_sections |= section_aranges;
     540         [ +  + ]:         80 :       else if (strcmp (arg, "decodedaranges") == 0)
     541                 :            :         {
     542                 :          1 :           print_debug_sections |= section_aranges;
     543                 :          1 :           decodedaranges = true;
     544                 :            :         }
     545         [ +  + ]:         79 :       else if (strcmp (arg, "ranges") == 0)
     546                 :            :         {
     547                 :         13 :           print_debug_sections |= section_ranges;
     548                 :         13 :           implicit_debug_sections |= section_info;
     549                 :            :         }
     550   [ +  +  +  + ]:         66 :       else if (strcmp (arg, "frame") == 0 || strcmp (arg, "frames") == 0)
     551                 :          3 :         print_debug_sections |= section_frame;
     552         [ +  + ]:         63 :       else if (strcmp (arg, "info") == 0)
     553                 :            :         {
     554                 :         19 :           print_debug_sections |= section_info;
     555                 :         19 :           print_debug_sections |= section_types;
     556                 :            :         }
     557         [ +  + ]:         44 :       else if (strcmp (arg, "info+") == 0)
     558                 :            :         {
     559                 :          2 :           print_debug_sections |= section_info;
     560                 :          2 :           print_debug_sections |= section_types;
     561                 :          2 :           show_split_units = true;
     562                 :            :         }
     563         [ +  + ]:         42 :       else if (strcmp (arg, "loc") == 0)
     564                 :            :         {
     565                 :         19 :           print_debug_sections |= section_loc;
     566                 :         19 :           implicit_debug_sections |= section_info;
     567                 :            :         }
     568         [ +  + ]:         23 :       else if (strcmp (arg, "line") == 0)
     569                 :          8 :         print_debug_sections |= section_line;
     570         [ +  + ]:         15 :       else if (strcmp (arg, "decodedline") == 0)
     571                 :            :         {
     572                 :          7 :           print_debug_sections |= section_line;
     573                 :          7 :           decodedline = true;
     574                 :            :         }
     575         [ -  + ]:          8 :       else if (strcmp (arg, "pubnames") == 0)
     576                 :          0 :         print_debug_sections |= section_pubnames;
     577         [ +  + ]:          8 :       else if (strcmp (arg, "str") == 0)
     578                 :            :         {
     579                 :          3 :           print_debug_sections |= section_str;
     580                 :            :           /* For mapping string offset tables to CUs.  */
     581                 :          3 :           implicit_debug_sections |= section_info;
     582                 :            :         }
     583         [ -  + ]:          5 :       else if (strcmp (arg, "macinfo") == 0)
     584                 :          0 :         print_debug_sections |= section_macinfo;
     585         [ +  + ]:          5 :       else if (strcmp (arg, "macro") == 0)
     586                 :          3 :         print_debug_sections |= section_macro;
     587         [ -  + ]:          2 :       else if (strcmp (arg, "exception") == 0)
     588                 :          0 :         print_debug_sections |= section_exception;
     589         [ +  - ]:          2 :       else if (strcmp (arg, "gdb_index") == 0)
     590                 :          2 :         print_debug_sections |= section_gdb_index;
     591                 :            :       else
     592                 :            :         {
     593                 :          0 :           fprintf (stderr, _("Unknown DWARF debug section `%s'.\n"),
     594                 :            :                    arg);
     595                 :          0 :           argp_help (&argp, stderr, ARGP_HELP_SEE,
     596                 :            :                      program_invocation_short_name);
     597                 :          0 :           exit (1);
     598                 :            :         }
     599                 :        126 :       any_control_option = true;
     600                 :        126 :       break;
     601                 :          1 :     case 'p':
     602                 :          1 :       any_control_option = true;
     603         [ -  + ]:          1 :       if (arg == NULL)
     604                 :            :         {
     605                 :          0 :           print_string_sections = true;
     606                 :          0 :           break;
     607                 :            :         }
     608                 :          7 :       FALLTHROUGH;
     609                 :            :     case 'x':
     610                 :          7 :       add_dump_section (arg, key, false);
     611                 :          7 :       any_control_option = true;
     612                 :          7 :       break;
     613                 :         43 :     case 'N':
     614                 :         43 :       print_address_names = false;
     615                 :         43 :       break;
     616                 :         28 :     case 'U':
     617                 :         28 :       print_unresolved_addresses = true;
     618                 :         28 :       break;
     619                 :          0 :     case ARGP_KEY_NO_ARGS:
     620                 :          0 :       fputs (_("Missing file name.\n"), stderr);
     621                 :          0 :       goto do_argp_help;
     622                 :        453 :     case ARGP_KEY_FINI:
     623   [ +  +  +  - ]:        453 :       if (! any_control_option && ! print_archive_index)
     624                 :            :         {
     625                 :          0 :           fputs (_("No operation specified.\n"), stderr);
     626                 :          0 :         do_argp_help:
     627                 :          0 :           argp_help (&argp, stderr, ARGP_HELP_SEE,
     628                 :            :                      program_invocation_short_name);
     629                 :          0 :           exit (EXIT_FAILURE);
     630                 :            :         }
     631                 :            :       break;
     632                 :            :     case 'W':                   /* Ignored.  */
     633                 :            :       break;
     634                 :         61 :     case 'z':
     635                 :         61 :       print_decompress = true;
     636                 :         61 :       break;
     637                 :          5 :     case ELF_INPUT_SECTION:
     638         [ +  - ]:          5 :       if (arg == NULL)
     639                 :          5 :         elf_input_section = ".gnu_debugdata";
     640                 :            :       else
     641                 :          0 :         elf_input_section = arg;
     642                 :            :       break;
     643                 :          5 :     case DWARF_SKELETON:
     644                 :          5 :       dwarf_skeleton = arg;
     645                 :          5 :       break;
     646                 :            :     default:
     647                 :            :       return ARGP_ERR_UNKNOWN;
     648                 :            :     }
     649                 :            :   return 0;
     650                 :            : }
     651                 :            : 
     652                 :            : 
     653                 :            : /* Create a file descriptor to read the data from the
     654                 :            :    elf_input_section given a file descriptor to an ELF file.  */
     655                 :            : static int
     656                 :          5 : open_input_section (int fd)
     657                 :            : {
     658                 :          5 :   size_t shnums;
     659                 :          5 :   size_t cnt;
     660                 :          5 :   size_t shstrndx;
     661                 :          5 :   Elf *elf = elf_begin (fd, ELF_C_READ_MMAP, NULL);
     662         [ -  + ]:          5 :   if (elf == NULL)
     663                 :            :     {
     664                 :          0 :       error (0, 0, _("cannot generate Elf descriptor: %s"),
     665                 :            :              elf_errmsg (-1));
     666                 :          0 :       return -1;
     667                 :            :     }
     668                 :            : 
     669         [ -  + ]:          5 :   if (elf_getshdrnum (elf, &shnums) < 0)
     670                 :            :     {
     671                 :          0 :       error (0, 0, _("cannot determine number of sections: %s"),
     672                 :            :              elf_errmsg (-1));
     673                 :          0 :     open_error:
     674                 :          0 :       elf_end (elf);
     675                 :          0 :       return -1;
     676                 :            :     }
     677                 :            : 
     678         [ -  + ]:          5 :   if (elf_getshdrstrndx (elf, &shstrndx) < 0)
     679                 :            :     {
     680                 :          0 :       error (0, 0, _("cannot get section header string table index"));
     681                 :          0 :       goto open_error;
     682                 :            :     }
     683                 :            : 
     684         [ +  - ]:        118 :   for (cnt = 0; cnt < shnums; ++cnt)
     685                 :            :     {
     686                 :        118 :       Elf_Scn *scn = elf_getscn (elf, cnt);
     687         [ -  + ]:        118 :       if (scn == NULL)
     688                 :            :         {
     689                 :          0 :           error (0, 0, _("cannot get section: %s"),
     690                 :            :                  elf_errmsg (-1));
     691                 :          0 :           goto open_error;
     692                 :            :         }
     693                 :            : 
     694                 :        118 :       GElf_Shdr shdr_mem;
     695                 :        118 :       GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
     696         [ -  + ]:        118 :       if (unlikely (shdr == NULL))
     697                 :            :         {
     698                 :          0 :           error (0, 0, _("cannot get section header: %s"),
     699                 :            :                  elf_errmsg (-1));
     700                 :          0 :           goto open_error;
     701                 :            :         }
     702                 :            : 
     703                 :        118 :       const char *sname = elf_strptr (elf, shstrndx, shdr->sh_name);
     704         [ -  + ]:        118 :       if (sname == NULL)
     705                 :            :         {
     706                 :          0 :           error (0, 0, _("cannot get section name"));
     707                 :          0 :           goto open_error;
     708                 :            :         }
     709                 :            : 
     710         [ +  + ]:        118 :       if (strcmp (sname, elf_input_section) == 0)
     711                 :            :         {
     712                 :          5 :           Elf_Data *data = elf_rawdata (scn, NULL);
     713         [ -  + ]:          5 :           if (data == NULL)
     714                 :            :             {
     715                 :          0 :               error (0, 0, _("cannot get %s content: %s"),
     716                 :            :                      sname, elf_errmsg (-1));
     717                 :          0 :               goto open_error;
     718                 :            :             }
     719                 :            : 
     720                 :            :           /* Create (and immediately unlink) a temporary file to store
     721                 :            :              section data in to create a file descriptor for it.  */
     722         [ +  - ]:          5 :           const char *tmpdir = getenv ("TMPDIR") ?: P_tmpdir;
     723                 :          5 :           static const char suffix[] = "/readelfXXXXXX";
     724                 :          5 :           int tmplen = strlen (tmpdir) + sizeof (suffix);
     725                 :          5 :           char *tempname = alloca (tmplen);
     726                 :          5 :           sprintf (tempname, "%s%s", tmpdir, suffix);
     727                 :            : 
     728                 :          5 :           int sfd = mkstemp (tempname);
     729         [ -  + ]:          5 :           if (sfd == -1)
     730                 :            :             {
     731                 :          0 :               error (0, 0, _("cannot create temp file '%s'"),
     732                 :            :                      tempname);
     733                 :          0 :               goto open_error;
     734                 :            :             }
     735                 :          5 :           unlink (tempname);
     736                 :            : 
     737                 :          5 :           ssize_t size = data->d_size;
     738         [ -  + ]:          5 :           if (write_retry (sfd, data->d_buf, size) != size)
     739                 :            :             {
     740                 :          0 :               error (0, 0, _("cannot write section data"));
     741                 :          0 :               goto open_error;
     742                 :            :             }
     743                 :            : 
     744         [ -  + ]:          5 :           if (elf_end (elf) != 0)
     745                 :            :             {
     746                 :          0 :               error (0, 0, _("error while closing Elf descriptor: %s"),
     747                 :            :                      elf_errmsg (-1));
     748                 :          5 :               return -1;
     749                 :            :             }
     750                 :            : 
     751         [ -  + ]:          5 :           if (lseek (sfd, 0, SEEK_SET) == -1)
     752                 :            :             {
     753                 :          0 :               error (0, 0, _("error while rewinding file descriptor"));
     754                 :          0 :               return -1;
     755                 :            :             }
     756                 :            : 
     757                 :            :           return sfd;
     758                 :            :         }
     759                 :            :     }
     760                 :            : 
     761                 :            :   /* Named section not found.  */
     762         [ #  # ]:          0 :   if (elf_end (elf) != 0)
     763                 :          0 :     error (0, 0, _("error while closing Elf descriptor: %s"),
     764                 :            :            elf_errmsg (-1));
     765                 :            :   return -1;
     766                 :            : }
     767                 :            : 
     768                 :            : /* Check if the file is an archive, and if so dump its index.  */
     769                 :            : static void
     770                 :          2 : check_archive_index (int fd, const char *fname, bool only_one)
     771                 :            : {
     772                 :            :   /* Create an `Elf' descriptor.  */
     773                 :          2 :   Elf *elf = elf_begin (fd, ELF_C_READ_MMAP, NULL);
     774         [ -  + ]:          2 :   if (elf == NULL)
     775                 :          0 :     error (0, 0, _("cannot generate Elf descriptor: %s"),
     776                 :            :            elf_errmsg (-1));
     777                 :            :   else
     778                 :            :     {
     779         [ +  - ]:          2 :       if (elf_kind (elf) == ELF_K_AR)
     780                 :            :         {
     781         [ -  + ]:          2 :           if (!only_one)
     782                 :          0 :             printf ("\n%s:\n\n", fname);
     783                 :          2 :           dump_archive_index (elf, fname);
     784                 :            :         }
     785                 :            :       else
     786                 :          2 :         error (0, 0,
     787                 :          0 :                _("'%s' is not an archive, cannot print archive index"),
     788                 :            :                fname);
     789                 :            : 
     790                 :            :       /* Now we can close the descriptor.  */
     791         [ -  + ]:          2 :       if (elf_end (elf) != 0)
     792                 :          0 :         error (0, 0, _("error while closing Elf descriptor: %s"),
     793                 :            :                elf_errmsg (-1));
     794                 :            :     }
     795                 :          2 : }
     796                 :            : 
     797                 :            : /* Trivial callback used for checking if we opened an archive.  */
     798                 :            : static int
     799                 :        442 : count_dwflmod (Dwfl_Module *dwflmod __attribute__ ((unused)),
     800                 :            :                void **userdata __attribute__ ((unused)),
     801                 :            :                const char *name __attribute__ ((unused)),
     802                 :            :                Dwarf_Addr base __attribute__ ((unused)),
     803                 :            :                void *arg)
     804                 :            : {
     805         [ +  - ]:        442 :   if (*(bool *) arg)
     806                 :            :     return DWARF_CB_ABORT;
     807                 :        442 :   *(bool *) arg = true;
     808                 :        442 :   return DWARF_CB_OK;
     809                 :            : }
     810                 :            : 
     811                 :            : struct process_dwflmod_args
     812                 :            : {
     813                 :            :   int fd;
     814                 :            :   bool only_one;
     815                 :            : };
     816                 :            : 
     817                 :            : static int
     818                 :        490 : process_dwflmod (Dwfl_Module *dwflmod,
     819                 :            :                  void **userdata __attribute__ ((unused)),
     820                 :            :                  const char *name __attribute__ ((unused)),
     821                 :            :                  Dwarf_Addr base __attribute__ ((unused)),
     822                 :            :                  void *arg)
     823                 :            : {
     824                 :        490 :   const struct process_dwflmod_args *a = arg;
     825                 :            : 
     826                 :            :   /* Print the file name.  */
     827         [ +  + ]:        490 :   if (!a->only_one)
     828                 :            :     {
     829                 :         48 :       const char *fname;
     830                 :         48 :       dwfl_module_info (dwflmod, NULL, NULL, NULL, NULL, NULL, &fname, NULL);
     831                 :            : 
     832                 :         48 :       printf ("\n%s:\n\n", fname);
     833                 :            :     }
     834                 :            : 
     835                 :        490 :   process_elf_file (dwflmod, a->fd);
     836                 :            : 
     837                 :        490 :   return DWARF_CB_OK;
     838                 :            : }
     839                 :            : 
     840                 :            : /* Stub libdwfl callback, only the ELF handle already open is ever used.
     841                 :            :    Only used for finding the alternate debug file if the Dwarf comes from
     842                 :            :    the main file.  We are not interested in separate debuginfo.  */
     843                 :            : static int
     844                 :        142 : find_no_debuginfo (Dwfl_Module *mod,
     845                 :            :                    void **userdata,
     846                 :            :                    const char *modname,
     847                 :            :                    Dwarf_Addr base,
     848                 :            :                    const char *file_name,
     849                 :            :                    const char *debuglink_file,
     850                 :            :                    GElf_Word debuglink_crc,
     851                 :            :                    char **debuginfo_file_name)
     852                 :            : {
     853                 :        142 :   Dwarf_Addr dwbias;
     854                 :        142 :   dwfl_module_info (mod, NULL, NULL, NULL, &dwbias, NULL, NULL, NULL);
     855                 :            : 
     856                 :            :   /* We are only interested if the Dwarf has been setup on the main
     857                 :            :      elf file but is only missing the alternate debug link.  If dwbias
     858                 :            :      hasn't even been setup, this is searching for separate debuginfo
     859                 :            :      for the main elf.  We don't care in that case.  */
     860         [ +  + ]:        142 :   if (dwbias == (Dwarf_Addr) -1)
     861                 :            :     return -1;
     862                 :            : 
     863                 :         22 :   return dwfl_standard_find_debuginfo (mod, userdata, modname, base,
     864                 :            :                                        file_name, debuglink_file,
     865                 :            :                                        debuglink_crc, debuginfo_file_name);
     866                 :            : }
     867                 :            : 
     868                 :            : static Dwfl *
     869                 :        499 : create_dwfl (int fd, const char *fname)
     870                 :            : {
     871                 :            :   /* Duplicate an fd for dwfl_report_offline to swallow.  */
     872                 :        499 :   int dwfl_fd = dup (fd);
     873         [ -  + ]:        499 :   if (unlikely (dwfl_fd < 0))
     874                 :          0 :     error_exit (errno, "dup");
     875                 :            : 
     876                 :            :   /* Use libdwfl in a trivial way to open the libdw handle for us.
     877                 :            :      This takes care of applying relocations to DWARF data in ET_REL files.  */
     878                 :        499 :   static const Dwfl_Callbacks callbacks =
     879                 :            :     {
     880                 :            :       .section_address = dwfl_offline_section_address,
     881                 :            :       .find_debuginfo = find_no_debuginfo
     882                 :            :     };
     883                 :        499 :   Dwfl *dwfl = dwfl_begin (&callbacks);
     884         [ +  - ]:        499 :   if (likely (dwfl != NULL))
     885                 :            :     /* Let 0 be the logical address of the file (or first in archive).  */
     886                 :        499 :     dwfl->offline_next_address = 0;
     887         [ -  + ]:        499 :   if (dwfl_report_offline (dwfl, fname, fname, dwfl_fd) == NULL)
     888                 :            :     {
     889                 :          0 :       struct stat st;
     890         [ #  # ]:          0 :       if (fstat (dwfl_fd, &st) != 0)
     891                 :          0 :         error (0, errno, _("cannot stat input file"));
     892         [ #  # ]:          0 :       else if (unlikely (st.st_size == 0))
     893                 :          0 :         error (0, 0, _("input file is empty"));
     894                 :            :       else
     895                 :          0 :         error (0, 0, _("failed reading '%s': %s"),
     896                 :            :                fname, dwfl_errmsg (-1));
     897                 :          0 :       close (dwfl_fd);          /* Consumed on success, not on failure.  */
     898                 :          0 :       dwfl = NULL;
     899                 :            :     }
     900                 :            :   else
     901                 :        499 :     dwfl_report_end (dwfl, NULL, NULL);
     902                 :            : 
     903                 :        499 :   return dwfl;
     904                 :            : }
     905                 :            : 
     906                 :            : /* Process one input file.  */
     907                 :            : static void
     908                 :        492 : process_file (int fd, const char *fname, bool only_one)
     909                 :            : {
     910         [ +  + ]:        492 :   if (print_archive_index)
     911                 :          2 :     check_archive_index (fd, fname, only_one);
     912                 :            : 
     913         [ +  + ]:        492 :   if (!any_control_option)
     914                 :            :     return;
     915                 :            : 
     916         [ +  + ]:        490 :   if (elf_input_section != NULL)
     917                 :            :     {
     918                 :            :       /* Replace fname and fd with section content. */
     919                 :          5 :       char *fnname = alloca (strlen (fname) + strlen (elf_input_section) + 2);
     920                 :          5 :       sprintf (fnname, "%s:%s", fname, elf_input_section);
     921                 :          5 :       fd = open_input_section (fd);
     922         [ -  + ]:          5 :       if (fd == -1)
     923                 :            :         {
     924                 :          0 :           error (0, 0, _("No such section '%s' in '%s'"),
     925                 :            :                  elf_input_section, fname);
     926                 :          0 :           return;
     927                 :            :         }
     928                 :            :       fname = fnname;
     929                 :            :     }
     930                 :            : 
     931                 :        490 :   Dwfl *dwfl = create_dwfl (fd, fname);
     932         [ +  - ]:        490 :   if (dwfl != NULL)
     933                 :            :     {
     934         [ +  + ]:        490 :       if (only_one)
     935                 :            :         {
     936                 :            :           /* Clear ONLY_ONE if we have multiple modules, from an archive.  */
     937                 :        442 :           bool seen = false;
     938                 :        442 :           only_one = dwfl_getmodules (dwfl, &count_dwflmod, &seen, 0) == 0;
     939                 :            :         }
     940                 :            : 
     941                 :            :       /* Process the one or more modules gleaned from this file.  */
     942                 :        490 :       struct process_dwflmod_args a = { .fd = fd, .only_one = only_one };
     943                 :        490 :       dwfl_getmodules (dwfl, &process_dwflmod, &a, 0);
     944                 :            :     }
     945                 :            :   /* Terrible hack for hooking unrelated skeleton/split compile units,
     946                 :            :      see __libdw_link_skel_split in print_debug.  */
     947         [ +  - ]:        490 :   if (! do_not_close_dwfl)
     948                 :        490 :     dwfl_end (dwfl);
     949                 :            : 
     950                 :            :   /* Need to close the replaced fd if we created it.  Caller takes
     951                 :            :      care of original.  */
     952         [ +  + ]:        490 :   if (elf_input_section != NULL)
     953                 :          5 :     close (fd);
     954                 :            : }
     955                 :            : 
     956                 :            : /* Check whether there are any compressed sections in the ELF file.  */
     957                 :            : static bool
     958                 :        264 : elf_contains_chdrs (Elf *elf)
     959                 :            : {
     960                 :        264 :   Elf_Scn *scn = NULL;
     961         [ +  + ]:     399523 :   while ((scn = elf_nextscn (elf, scn)) != NULL)
     962                 :            :     {
     963                 :     399316 :       GElf_Shdr shdr_mem;
     964                 :     399316 :       GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
     965   [ +  -  +  + ]:     399316 :       if (shdr != NULL && (shdr->sh_flags & SHF_COMPRESSED) != 0)
     966                 :         57 :         return true;
     967                 :            :     }
     968                 :            :   return false;
     969                 :            : }
     970                 :            : 
     971                 :            : /* Process one ELF file.  */
     972                 :            : static void
     973                 :        490 : process_elf_file (Dwfl_Module *dwflmod, int fd)
     974                 :            : {
     975                 :        490 :   GElf_Addr dwflbias;
     976                 :        490 :   Elf *elf = dwfl_module_getelf (dwflmod, &dwflbias);
     977                 :            : 
     978                 :        490 :   GElf_Ehdr ehdr_mem;
     979                 :        490 :   GElf_Ehdr *ehdr = gelf_getehdr (elf, &ehdr_mem);
     980                 :            : 
     981         [ -  + ]:        490 :   if (ehdr == NULL)
     982                 :            :     {
     983                 :          0 :       error (0, 0, _("cannot read ELF header: %s"), elf_errmsg (-1));
     984                 :          0 :       return;
     985                 :            :     }
     986                 :            : 
     987                 :        490 :   Ebl *ebl = ebl_openbackend (elf);
     988         [ -  + ]:        490 :   if (unlikely (ebl == NULL))
     989                 :            :     {
     990                 :          0 :     ebl_error:
     991                 :          0 :       error (0, errno, _("cannot create EBL handle"));
     992                 :          0 :       return;
     993                 :            :     }
     994                 :            : 
     995                 :            :   /* Determine the number of sections.  */
     996         [ -  + ]:        490 :   if (unlikely (elf_getshdrnum (ebl->elf, &shnum) < 0))
     997                 :          0 :     error_exit (0, _("cannot determine number of sections: %s"),
     998                 :            :                 elf_errmsg (-1));
     999                 :            : 
    1000                 :            :   /* Determine the number of phdrs.  */
    1001         [ -  + ]:        490 :   if (unlikely (elf_getphdrnum (ebl->elf, &phnum) < 0))
    1002                 :          0 :     error_exit (0, _("cannot determine number of program headers: %s"),
    1003                 :            :                 elf_errmsg (-1));
    1004                 :            : 
    1005                 :            :   /* For an ET_REL file, libdwfl has adjusted the in-core shdrs and
    1006                 :            :      may have applied relocation to some sections.  If there are any
    1007                 :            :      compressed sections, any pass (or libdw/libdwfl) might have
    1008                 :            :      uncompressed them.  So we need to get a fresh Elf handle on the
    1009                 :            :      file to display those.  */
    1010                 :       1074 :   bool print_unchanged = ((print_section_header
    1011         [ +  + ]:        219 :                            || print_relocations
    1012         [ +  + ]:        218 :                            || dump_data_sections != NULL
    1013         [ +  + ]:        212 :                            || print_notes)
    1014   [ +  +  +  + ]:        520 :                           && (ehdr->e_type == ET_REL
    1015         [ +  + ]:        264 :                               || elf_contains_chdrs (ebl->elf)));
    1016                 :            : 
    1017                 :         94 :   Elf *pure_elf = NULL;
    1018                 :         94 :   Ebl *pure_ebl = ebl;
    1019                 :         94 :   if (print_unchanged)
    1020                 :            :     {
    1021                 :            :       /* Read the file afresh.  */
    1022                 :         94 :       off_t aroff = elf_getaroff (elf);
    1023                 :         94 :       pure_elf = dwelf_elf_begin (fd);
    1024         [ -  + ]:         94 :       if (aroff > 0)
    1025                 :            :         {
    1026                 :            :           /* Archive member.  */
    1027                 :          0 :           (void) elf_rand (pure_elf, aroff);
    1028                 :          0 :           Elf *armem = elf_begin (-1, ELF_C_READ_MMAP, pure_elf);
    1029                 :          0 :           elf_end (pure_elf);
    1030                 :          0 :           pure_elf = armem;
    1031                 :            :         }
    1032         [ -  + ]:         94 :       if (pure_elf == NULL)
    1033                 :            :         {
    1034                 :          0 :           error (0, 0, _("cannot read ELF: %s"), elf_errmsg (-1));
    1035                 :          0 :           return;
    1036                 :            :         }
    1037                 :         94 :       pure_ebl = ebl_openbackend (pure_elf);
    1038         [ -  + ]:         94 :       if (pure_ebl == NULL)
    1039                 :          0 :         goto ebl_error;
    1040                 :            :     }
    1041                 :            : 
    1042                 :        490 :   bool symtab_printed = false;
    1043                 :            : 
    1044         [ +  + ]:        490 :   if (print_file_header)
    1045                 :        113 :     print_ehdr (ebl, ehdr);
    1046         [ +  + ]:        490 :   if (print_section_header)
    1047                 :        271 :     print_shdr (pure_ebl, ehdr);
    1048         [ +  + ]:        490 :   if (print_program_header)
    1049                 :        112 :     print_phdr (ebl, ehdr);
    1050         [ +  + ]:        490 :   if (print_section_groups)
    1051                 :        119 :     print_scngrp (ebl);
    1052         [ +  + ]:        490 :   if (print_dynamic_table)
    1053                 :        113 :     print_dynamic (ebl);
    1054         [ +  + ]:        490 :   if (print_relocations)
    1055                 :        111 :     print_relocs (pure_ebl, ehdr);
    1056         [ +  + ]:        490 :   if (print_histogram)
    1057                 :        110 :     handle_hash (ebl);
    1058   [ +  +  +  + ]:        490 :   if (print_symbol_table || print_dynsym_table)
    1059                 :        128 :     symtab_printed |= print_symtab (ebl, SHT_DYNSYM);
    1060         [ +  + ]:        490 :   if (print_version_info)
    1061                 :        110 :     print_verinfo (ebl);
    1062   [ +  +  +  - ]:        490 :   if (print_symbol_table && !use_dynamic_segment)
    1063                 :        127 :     symtab_printed |= print_symtab (ebl, SHT_SYMTAB);
    1064                 :            : 
    1065   [ +  +  +  + ]:        490 :   if ((print_symbol_table || print_dynsym_table)
    1066   [ +  +  +  + ]:        128 :       && !symtab_printed && symbol_table_section != NULL)
    1067                 :          1 :     printf ("WARNING: %s: '%s'\n", _("cannot find section"),
    1068                 :            :         symbol_table_section);
    1069                 :            : 
    1070         [ +  + ]:        490 :   if (print_arch)
    1071                 :        114 :     print_liblist (ebl);
    1072         [ +  + ]:        490 :   if (print_arch)
    1073                 :        114 :     print_attributes (ebl, ehdr);
    1074         [ +  + ]:        490 :   if (dump_data_sections != NULL)
    1075                 :          6 :     dump_data (pure_ebl);
    1076         [ +  + ]:        490 :   if (string_sections != NULL)
    1077                 :        111 :     dump_strings (ebl);
    1078         [ +  + ]:        490 :   if ((print_debug_sections | implicit_debug_sections) != 0)
    1079                 :        261 :     print_debug (dwflmod, ebl, ehdr);
    1080         [ +  + ]:        490 :   if (print_notes)
    1081                 :        133 :     handle_notes (pure_ebl, ehdr);
    1082         [ -  + ]:        490 :   if (print_string_sections)
    1083                 :          0 :     print_strings (ebl);
    1084                 :            : 
    1085         [ +  + ]:        490 :   if (pure_ebl != ebl)
    1086                 :            :     {
    1087                 :         94 :       ebl_closebackend (ebl);
    1088                 :         94 :       ebl_closebackend (pure_ebl);
    1089                 :         94 :       elf_end (pure_elf);
    1090                 :            :     }
    1091                 :            :   else
    1092                 :        396 :     ebl_closebackend (ebl);
    1093                 :            : }
    1094                 :            : 
    1095                 :            : 
    1096                 :            : /* Print file type.  */
    1097                 :            : static void
    1098                 :        113 : print_file_type (unsigned short int e_type)
    1099                 :            : {
    1100         [ +  - ]:        113 :   if (likely (e_type <= ET_CORE))
    1101                 :            :     {
    1102                 :        113 :       static const char *const knowntypes[] =
    1103                 :            :       {
    1104                 :            :         N_("NONE (None)"),
    1105                 :            :         N_("REL (Relocatable file)"),
    1106                 :            :         N_("EXEC (Executable file)"),
    1107                 :            :         N_("DYN (Shared object file)"),
    1108                 :            :         N_("CORE (Core file)")
    1109                 :            :       };
    1110                 :        113 :       puts (_(knowntypes[e_type]));
    1111                 :            :     }
    1112         [ #  # ]:          0 :   else if (e_type >= ET_LOOS && e_type <= ET_HIOS)
    1113                 :          0 :     printf (_("OS Specific: (%x)\n"),  e_type);
    1114         [ #  # ]:          0 :   else if (e_type >= ET_LOPROC /* && e_type <= ET_HIPROC always true */)
    1115                 :          0 :     printf (_("Processor Specific: (%x)\n"),  e_type);
    1116                 :            :   else
    1117                 :          0 :     puts ("???");
    1118                 :        113 : }
    1119                 :            : 
    1120                 :            : 
    1121                 :            : /* Print ELF header.  */
    1122                 :            : static void
    1123                 :        113 : print_ehdr (Ebl *ebl, GElf_Ehdr *ehdr)
    1124                 :            : {
    1125                 :        113 :   fputs_unlocked (_("ELF Header:\n  Magic:  "), stdout);
    1126         [ +  + ]:       1921 :   for (size_t cnt = 0; cnt < EI_NIDENT; ++cnt)
    1127                 :       1808 :     printf (" %02hhx", ehdr->e_ident[cnt]);
    1128                 :            : 
    1129                 :        113 :   printf (_("\n  Class:                             %s\n"),
    1130         [ +  + ]:        113 :           ehdr->e_ident[EI_CLASS] == ELFCLASS32 ? "ELF32"
    1131                 :            :           : ehdr->e_ident[EI_CLASS] == ELFCLASS64 ? "ELF64"
    1132         [ -  + ]:         93 :           : "\?\?\?");
    1133                 :            : 
    1134                 :        113 :   printf (_("  Data:                              %s\n"),
    1135         [ -  + ]:        113 :           ehdr->e_ident[EI_DATA] == ELFDATA2LSB
    1136                 :            :           ? "2's complement, little endian"
    1137                 :            :           : ehdr->e_ident[EI_DATA] == ELFDATA2MSB
    1138         [ #  # ]:          0 :           ? "2's complement, big endian" : "\?\?\?");
    1139                 :            : 
    1140                 :        339 :   printf (_("  Ident Version:                     %hhd %s\n"),
    1141                 :        113 :           ehdr->e_ident[EI_VERSION],
    1142         [ +  - ]:        113 :           ehdr->e_ident[EI_VERSION] == EV_CURRENT ? _("(current)")
    1143                 :            :           : "(\?\?\?)");
    1144                 :            : 
    1145                 :        113 :   char buf[512];
    1146                 :        113 :   printf (_("  OS/ABI:                            %s\n"),
    1147                 :        113 :           ebl_osabi_name (ebl, ehdr->e_ident[EI_OSABI], buf, sizeof (buf)));
    1148                 :            : 
    1149                 :        226 :   printf (_("  ABI Version:                       %hhd\n"),
    1150                 :        113 :           ehdr->e_ident[EI_ABIVERSION]);
    1151                 :            : 
    1152                 :        113 :   fputs_unlocked (_("  Type:                              "), stdout);
    1153                 :        113 :   print_file_type (ehdr->e_type);
    1154                 :            : 
    1155                 :        113 :   const char *machine = dwelf_elf_e_machine_string (ehdr->e_machine);
    1156         [ +  - ]:        113 :   if (machine != NULL)
    1157                 :        113 :     printf (_("  Machine:                           %s\n"), machine);
    1158                 :            :   else
    1159                 :        113 :     printf (_("  Machine:                           <unknown>: 0x%x\n"),
    1160                 :          0 :             ehdr->e_machine);
    1161                 :            : 
    1162                 :        113 :   printf (_("  Version:                           %d %s\n"),
    1163                 :            :           ehdr->e_version,
    1164         [ +  - ]:        113 :           ehdr->e_version  == EV_CURRENT ? _("(current)") : "(\?\?\?)");
    1165                 :            : 
    1166                 :        113 :   printf (_("  Entry point address:               %#" PRIx64 "\n"),
    1167                 :            :           ehdr->e_entry);
    1168                 :            : 
    1169                 :        113 :   printf (_("  Start of program headers:          %" PRId64 " %s\n"),
    1170                 :            :           ehdr->e_phoff, _("(bytes into file)"));
    1171                 :            : 
    1172                 :        113 :   printf (_("  Start of section headers:          %" PRId64 " %s\n"),
    1173                 :            :           ehdr->e_shoff, _("(bytes into file)"));
    1174                 :            : 
    1175                 :        113 :   printf (_("  Flags:                             %s\n"),
    1176                 :            :           ebl_machine_flag_name (ebl, ehdr->e_flags, buf, sizeof (buf)));
    1177                 :            : 
    1178                 :        226 :   printf (_("  Size of this header:               %" PRId16 " %s\n"),
    1179                 :        113 :           ehdr->e_ehsize, _("(bytes)"));
    1180                 :            : 
    1181                 :        226 :   printf (_("  Size of program header entries:    %" PRId16 " %s\n"),
    1182                 :        113 :           ehdr->e_phentsize, _("(bytes)"));
    1183                 :            : 
    1184                 :        226 :   printf (_("  Number of program headers entries: %" PRId16),
    1185                 :        113 :           ehdr->e_phnum);
    1186         [ +  + ]:        113 :   if (ehdr->e_phnum == PN_XNUM)
    1187                 :            :     {
    1188                 :          1 :       GElf_Shdr shdr_mem;
    1189                 :          1 :       GElf_Shdr *shdr = gelf_getshdr (elf_getscn (ebl->elf, 0), &shdr_mem);
    1190         [ +  - ]:          1 :       if (shdr != NULL)
    1191                 :          1 :         printf (_(" (%" PRIu32 " in [0].sh_info)"),
    1192                 :          1 :                 (uint32_t) shdr->sh_info);
    1193                 :            :       else
    1194                 :          0 :         fputs_unlocked (_(" ([0] not available)"), stdout);
    1195                 :            :     }
    1196         [ -  + ]:        113 :   fputc_unlocked ('\n', stdout);
    1197                 :            : 
    1198                 :        226 :   printf (_("  Size of section header entries:    %" PRId16 " %s\n"),
    1199                 :        113 :           ehdr->e_shentsize, _("(bytes)"));
    1200                 :            : 
    1201                 :        226 :   printf (_("  Number of section headers entries: %" PRId16),
    1202                 :        113 :           ehdr->e_shnum);
    1203         [ -  + ]:        113 :   if (ehdr->e_shnum == 0)
    1204                 :            :     {
    1205                 :          0 :       GElf_Shdr shdr_mem;
    1206                 :          0 :       GElf_Shdr *shdr = gelf_getshdr (elf_getscn (ebl->elf, 0), &shdr_mem);
    1207         [ #  # ]:          0 :       if (shdr != NULL)
    1208                 :          0 :         printf (_(" (%" PRIu32 " in [0].sh_size)"),
    1209                 :          0 :                 (uint32_t) shdr->sh_size);
    1210                 :            :       else
    1211                 :          0 :         fputs_unlocked (_(" ([0] not available)"), stdout);
    1212                 :            :     }
    1213         [ -  + ]:        113 :   fputc_unlocked ('\n', stdout);
    1214                 :            : 
    1215         [ -  + ]:        113 :   if (unlikely (ehdr->e_shstrndx == SHN_XINDEX))
    1216                 :            :     {
    1217                 :          0 :       GElf_Shdr shdr_mem;
    1218                 :          0 :       GElf_Shdr *shdr = gelf_getshdr (elf_getscn (ebl->elf, 0), &shdr_mem);
    1219         [ #  # ]:          0 :       if (shdr != NULL)
    1220                 :            :         /* We managed to get the zeroth section.  */
    1221                 :          0 :         snprintf (buf, sizeof (buf), _(" (%" PRIu32 " in [0].sh_link)"),
    1222                 :          0 :                   (uint32_t) shdr->sh_link);
    1223                 :            :       else
    1224                 :            :         {
    1225                 :          0 :           strncpy (buf, _(" ([0] not available)"), sizeof (buf) - 1);
    1226                 :          0 :           buf[sizeof (buf) - 1] = '\0';
    1227                 :            :         }
    1228                 :            : 
    1229                 :          0 :       printf (_("  Section header string table index: XINDEX%s\n\n"),
    1230                 :            :               buf);
    1231                 :            :     }
    1232                 :            :   else
    1233                 :        113 :     printf (_("  Section header string table index: %" PRId16 "\n\n"),
    1234                 :            :             ehdr->e_shstrndx);
    1235                 :        113 : }
    1236                 :            : 
    1237                 :            : 
    1238                 :            : static const char *
    1239                 :      37358 : get_visibility_type (int value)
    1240                 :            : {
    1241   [ -  +  -  -  :      37358 :   switch (value)
                      + ]
    1242                 :            :     {
    1243                 :            :     case STV_DEFAULT:
    1244                 :            :       return "DEFAULT";
    1245                 :          0 :     case STV_INTERNAL:
    1246                 :          0 :       return "INTERNAL";
    1247                 :        555 :     case STV_HIDDEN:
    1248                 :        555 :       return "HIDDEN";
    1249                 :          0 :     case STV_PROTECTED:
    1250                 :          0 :       return "PROTECTED";
    1251                 :          0 :     default:
    1252                 :          0 :       return "???";
    1253                 :            :     }
    1254                 :            : }
    1255                 :            : 
    1256                 :            : static const char *
    1257                 :        192 : elf_ch_type_name (unsigned int code)
    1258                 :            : {
    1259                 :        192 :   switch (code)
    1260                 :            :     {
    1261                 :            :     case 0:
    1262                 :            :       return "NONE";
    1263                 :         12 :     case ELFCOMPRESS_ZLIB:
    1264                 :         12 :       return "ZLIB";
    1265                 :        180 :     case ELFCOMPRESS_ZSTD:
    1266                 :        180 :       return "ZSTD";
    1267                 :          0 :     default:
    1268                 :          0 :       return "UNKNOWN";
    1269                 :            :     }
    1270                 :            : }
    1271                 :            : 
    1272                 :            : /* Print the section headers.  */
    1273                 :            : static void
    1274                 :        271 : print_shdr (Ebl *ebl, GElf_Ehdr *ehdr)
    1275                 :            : {
    1276                 :        271 :   size_t cnt;
    1277                 :        271 :   size_t shstrndx;
    1278                 :            : 
    1279         [ +  + ]:        271 :   if (! print_file_header)
    1280                 :            :     {
    1281                 :        161 :       size_t sections;
    1282         [ -  + ]:        161 :       if (unlikely (elf_getshdrnum (ebl->elf, &sections) < 0))
    1283                 :          0 :         error_exit (0, _("cannot get number of sections: %s"),
    1284                 :            :                     elf_errmsg (-1));
    1285                 :            : 
    1286                 :        161 :       printf (_("\
    1287                 :            : There are %zd section headers, starting at offset %#" PRIx64 ":\n\
    1288                 :            : \n"),
    1289                 :            :               sections, ehdr->e_shoff);
    1290                 :            :     }
    1291                 :            : 
    1292                 :            :   /* Get the section header string table index.  */
    1293         [ -  + ]:        271 :   if (unlikely (elf_getshdrstrndx (ebl->elf, &shstrndx) < 0))
    1294                 :          0 :     error_exit (0, _("cannot get section header string table index: %s"),
    1295                 :            :                 elf_errmsg (-1));
    1296                 :            : 
    1297                 :        271 :   puts (_("Section Headers:"));
    1298                 :            : 
    1299         [ +  + ]:        271 :   if (ehdr->e_ident[EI_CLASS] == ELFCLASS32)
    1300                 :        101 :     puts (_("[Nr] Name                 Type         Addr     Off    Size   ES Flags Lk Inf Al"));
    1301                 :            :   else
    1302                 :        170 :     puts (_("[Nr] Name                 Type         Addr             Off      Size     ES Flags Lk Inf Al"));
    1303                 :            : 
    1304         [ +  + ]:        271 :   if (print_decompress)
    1305                 :            :     {
    1306         [ +  + ]:         56 :       if (ehdr->e_ident[EI_CLASS] == ELFCLASS32)
    1307                 :         28 :         puts (_("     [Compression  Size   Al]"));
    1308                 :            :       else
    1309                 :         28 :         puts (_("     [Compression  Size     Al]"));
    1310                 :            :     }
    1311                 :            : 
    1312         [ +  + ]:     793746 :   for (cnt = 0; cnt < shnum; ++cnt)
    1313                 :            :     {
    1314                 :     793475 :       Elf_Scn *scn = elf_getscn (ebl->elf, cnt);
    1315                 :            : 
    1316         [ -  + ]:     793475 :       if (unlikely (scn == NULL))
    1317                 :          0 :         error_exit (0, _("cannot get section: %s"),
    1318                 :            :                     elf_errmsg (-1));
    1319                 :            : 
    1320                 :            :       /* Get the section header.  */
    1321                 :     793475 :       GElf_Shdr shdr_mem;
    1322                 :     793475 :       GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
    1323         [ -  + ]:     793475 :       if (unlikely (shdr == NULL))
    1324                 :          0 :         error_exit (0, _("cannot get section header: %s"),
    1325                 :            :                     elf_errmsg (-1));
    1326                 :            : 
    1327                 :     793475 :       char flagbuf[20];
    1328                 :     793475 :       char *cp = flagbuf;
    1329         [ +  + ]:     793475 :       if (shdr->sh_flags & SHF_WRITE)
    1330                 :       1520 :         *cp++ = 'W';
    1331         [ +  + ]:     793475 :       if (shdr->sh_flags & SHF_ALLOC)
    1332                 :       4704 :         *cp++ = 'A';
    1333         [ +  + ]:     793475 :       if (shdr->sh_flags & SHF_EXECINSTR)
    1334                 :        854 :         *cp++ = 'X';
    1335         [ +  + ]:     793475 :       if (shdr->sh_flags & SHF_MERGE)
    1336                 :        222 :         *cp++ = 'M';
    1337         [ +  + ]:     793475 :       if (shdr->sh_flags & SHF_STRINGS)
    1338                 :        202 :         *cp++ = 'S';
    1339         [ +  + ]:     793475 :       if (shdr->sh_flags & SHF_INFO_LINK)
    1340                 :        113 :         *cp++ = 'I';
    1341         [ +  + ]:     793475 :       if (shdr->sh_flags & SHF_LINK_ORDER)
    1342                 :          2 :         *cp++ = 'L';
    1343         [ -  + ]:     793475 :       if (shdr->sh_flags & SHF_OS_NONCONFORMING)
    1344                 :          0 :         *cp++ = 'N';
    1345         [ -  + ]:     793475 :       if (shdr->sh_flags & SHF_GROUP)
    1346                 :          0 :         *cp++ = 'G';
    1347         [ +  + ]:     793475 :       if (shdr->sh_flags & SHF_TLS)
    1348                 :         15 :         *cp++ = 'T';
    1349         [ +  + ]:     793475 :       if (shdr->sh_flags & SHF_COMPRESSED)
    1350                 :        207 :         *cp++ = 'C';
    1351         [ -  + ]:     793475 :       if (shdr->sh_flags & SHF_ORDERED)
    1352                 :          0 :         *cp++ = 'O';
    1353         [ -  + ]:     793475 :       if (shdr->sh_flags & SHF_EXCLUDE)
    1354                 :          0 :         *cp++ = 'E';
    1355         [ +  + ]:     793475 :       if (shdr->sh_flags & SHF_GNU_RETAIN)
    1356                 :          1 :         *cp++ = 'R';
    1357                 :     793475 :       *cp = '\0';
    1358                 :            : 
    1359                 :     793475 :       const char *sname;
    1360                 :     793475 :       char buf[128];
    1361         [ -  + ]:     793475 :       sname = elf_strptr (ebl->elf, shstrndx, shdr->sh_name) ?: "<corrupt>";
    1362         [ +  + ]:    1586950 :       printf ("[%2zu] %-20s %-12s %0*" PRIx64 " %0*" PRIx64 " %0*" PRIx64
    1363                 :            :               " %2" PRId64 " %-5s %2" PRId32 " %3" PRId32
    1364                 :            :               " %2" PRId64 "\n",
    1365                 :            :               cnt, sname,
    1366                 :     793475 :               ebl_section_type_name (ebl, shdr->sh_type, buf, sizeof (buf)),
    1367                 :            :               ehdr->e_ident[EI_CLASS] == ELFCLASS32 ? 8 : 16, shdr->sh_addr,
    1368                 :            :               ehdr->e_ident[EI_CLASS] == ELFCLASS32 ? 6 : 8, shdr->sh_offset,
    1369         [ +  + ]:     793475 :               ehdr->e_ident[EI_CLASS] == ELFCLASS32 ? 6 : 8, shdr->sh_size,
    1370                 :            :               shdr->sh_entsize, flagbuf, shdr->sh_link, shdr->sh_info,
    1371                 :            :               shdr->sh_addralign);
    1372                 :            : 
    1373         [ +  + ]:     793475 :       if (print_decompress)
    1374                 :            :         {
    1375         [ +  + ]:        940 :           if ((shdr->sh_flags & SHF_COMPRESSED) != 0)
    1376                 :            :             {
    1377                 :        192 :               GElf_Chdr chdr;
    1378         [ +  - ]:        192 :               if (gelf_getchdr (scn, &chdr) != NULL)
    1379   [ +  +  -  - ]:        384 :                 printf ("     [ELF %s (%" PRId32 ") %0*" PRIx64
    1380                 :            :                         " %2" PRId64 "]\n",
    1381                 :            :                         elf_ch_type_name (chdr.ch_type),
    1382                 :            :                         chdr.ch_type,
    1383         [ +  + ]:        192 :                         ehdr->e_ident[EI_CLASS] == ELFCLASS32 ? 6 : 8,
    1384                 :            :                         chdr.ch_size, chdr.ch_addralign);
    1385                 :            :               else
    1386                 :        192 :                 error (0, 0,
    1387                 :          0 :                        _("bad compression header for section %zd: %s"),
    1388                 :            :                        elf_ndxscn (scn), elf_errmsg (-1));
    1389                 :            :             }
    1390         [ +  + ]:        748 :           else if (startswith (sname, ".zdebug"))
    1391                 :            :             {
    1392                 :         12 :               ssize_t size;
    1393         [ +  - ]:         12 :               if ((size = dwelf_scn_gnu_compressed_size (scn)) >= 0)
    1394                 :     793487 :                 printf ("     [GNU ZLIB     %0*zx   ]\n",
    1395         [ +  + ]:         12 :                         ehdr->e_ident[EI_CLASS] == ELFCLASS32 ? 6 : 8, size);
    1396                 :            :               else
    1397                 :     793475 :                 error (0, 0,
    1398                 :          0 :                        _("bad gnu compressed size for section %zd: %s"),
    1399                 :            :                        elf_ndxscn (scn), elf_errmsg (-1));
    1400                 :            :             }
    1401                 :            :         }
    1402                 :            :     }
    1403                 :            : 
    1404         [ -  + ]:        271 :   fputc_unlocked ('\n', stdout);
    1405                 :        271 : }
    1406                 :            : 
    1407                 :            : 
    1408                 :            : /* Print the program header.  */
    1409                 :            : static void
    1410                 :        112 : print_phdr (Ebl *ebl, GElf_Ehdr *ehdr)
    1411                 :            : {
    1412         [ +  + ]:        112 :   if (phnum == 0)
    1413                 :            :     /* No program header, this is OK in relocatable objects.  */
    1414                 :          6 :     return;
    1415                 :            : 
    1416                 :        106 :   puts (_("Program Headers:"));
    1417         [ +  + ]:        106 :   if (ehdr->e_ident[EI_CLASS] == ELFCLASS32)
    1418                 :         16 :     puts (_("\
    1419                 :            :   Type           Offset   VirtAddr   PhysAddr   FileSiz  MemSiz   Flg Align"));
    1420                 :            :   else
    1421                 :         90 :     puts (_("\
    1422                 :            :   Type           Offset   VirtAddr           PhysAddr           FileSiz  MemSiz   Flg Align"));
    1423                 :            : 
    1424                 :            :   /* Process all program headers.  */
    1425                 :            :   bool has_relro = false;
    1426                 :            :   GElf_Addr relro_from = 0;
    1427                 :            :   GElf_Addr relro_to = 0;
    1428         [ +  + ]:       1205 :   for (size_t cnt = 0; cnt < phnum; ++cnt)
    1429                 :            :     {
    1430                 :       1099 :       char buf[128];
    1431                 :       1099 :       GElf_Phdr mem;
    1432                 :       1099 :       GElf_Phdr *phdr = gelf_getphdr (ebl->elf, cnt, &mem);
    1433                 :            : 
    1434                 :            :       /* If for some reason the header cannot be returned show this.  */
    1435         [ -  + ]:       1099 :       if (unlikely (phdr == NULL))
    1436                 :            :         {
    1437                 :          0 :           puts ("  ???");
    1438                 :          0 :           continue;
    1439                 :            :         }
    1440                 :            : 
    1441                 :       1099 :       printf ("  %-14s 0x%06" PRIx64 " 0x%0*" PRIx64 " 0x%0*" PRIx64
    1442                 :            :               " 0x%06" PRIx64 " 0x%06" PRIx64 " %c%c%c 0x%" PRIx64 "\n",
    1443                 :       1099 :               ebl_segment_type_name (ebl, phdr->p_type, buf, sizeof (buf)),
    1444                 :            :               phdr->p_offset,
    1445                 :            :               ehdr->e_ident[EI_CLASS] == ELFCLASS32 ? 8 : 16, phdr->p_vaddr,
    1446         [ +  + ]:       1099 :               ehdr->e_ident[EI_CLASS] == ELFCLASS32 ? 8 : 16, phdr->p_paddr,
    1447                 :            :               phdr->p_filesz,
    1448                 :            :               phdr->p_memsz,
    1449         [ -  + ]:       1099 :               phdr->p_flags & PF_R ? 'R' : ' ',
    1450         [ +  + ]:       1099 :               phdr->p_flags & PF_W ? 'W' : ' ',
    1451         [ +  + ]:       1099 :               phdr->p_flags & PF_X ? 'E' : ' ',
    1452                 :            :               phdr->p_align);
    1453                 :            : 
    1454         [ +  + ]:       1099 :       if (phdr->p_type == PT_INTERP)
    1455                 :            :         {
    1456                 :            :           /* If we are sure the file offset is valid then we can show
    1457                 :            :              the user the name of the interpreter.  We check whether
    1458                 :            :              there is a section at the file offset.  Normally there
    1459                 :            :              would be a section called ".interp".  But in separate
    1460                 :            :              .debug files it is a NOBITS section (and so doesn't match
    1461                 :            :              with gelf_offscn).  Which probably means the offset is
    1462                 :            :              not valid another reason could be because the ELF file
    1463                 :            :              just doesn't contain any section headers, in that case
    1464                 :            :              just play it safe and don't display anything.  */
    1465                 :            : 
    1466                 :        104 :           Elf_Scn *scn = gelf_offscn (ebl->elf, phdr->p_offset);
    1467                 :        104 :           GElf_Shdr shdr_mem;
    1468                 :        104 :           GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
    1469                 :            : 
    1470                 :        104 :           size_t maxsize;
    1471                 :        104 :           char *filedata = elf_rawfile (ebl->elf, &maxsize);
    1472                 :            : 
    1473   [ +  -  +  + ]:        104 :           if (shdr != NULL && shdr->sh_type == SHT_PROGBITS
    1474   [ +  -  +  - ]:         77 :               && filedata != NULL && phdr->p_offset < maxsize
    1475         [ +  - ]:         77 :               && phdr->p_filesz <= maxsize - phdr->p_offset
    1476         [ +  - ]:         77 :               && memchr (filedata + phdr->p_offset, '\0',
    1477                 :            :                          phdr->p_filesz) != NULL)
    1478                 :        104 :             printf (_("\t[Requesting program interpreter: %s]\n"),
    1479                 :            :                     filedata + phdr->p_offset);
    1480                 :            :         }
    1481         [ +  + ]:        995 :       else if (phdr->p_type == PT_GNU_RELRO)
    1482                 :            :         {
    1483                 :         91 :           has_relro = true;
    1484                 :         91 :           relro_from = phdr->p_vaddr;
    1485                 :         91 :           relro_to = relro_from + phdr->p_memsz;
    1486                 :            :         }
    1487                 :            :     }
    1488                 :            : 
    1489                 :        106 :   size_t sections;
    1490         [ -  + ]:        106 :   if (unlikely (elf_getshdrnum (ebl->elf, &sections) < 0))
    1491                 :          0 :     error_exit (0, _("cannot get number of sections: %s"),
    1492                 :            :                 elf_errmsg (-1));
    1493                 :            : 
    1494         [ +  - ]:        106 :   if (sections == 0)
    1495                 :            :     /* No sections in the file.  Punt.  */
    1496                 :            :     return;
    1497                 :            : 
    1498                 :            :   /* Get the section header string table index.  */
    1499                 :        106 :   size_t shstrndx;
    1500         [ -  + ]:        106 :   if (unlikely (elf_getshdrstrndx (ebl->elf, &shstrndx) < 0))
    1501                 :          0 :     error_exit (0, _("cannot get section header string table index"));
    1502                 :            : 
    1503                 :        106 :   puts (_("\n Section to Segment mapping:\n  Segment Sections..."));
    1504                 :            : 
    1505         [ +  + ]:       1205 :   for (size_t cnt = 0; cnt < phnum; ++cnt)
    1506                 :            :     {
    1507                 :            :       /* Print the segment number.  */
    1508                 :       1099 :       printf ("   %2.2zu     ", cnt);
    1509                 :            : 
    1510                 :       1099 :       GElf_Phdr phdr_mem;
    1511                 :       1099 :       GElf_Phdr *phdr = gelf_getphdr (ebl->elf, cnt, &phdr_mem);
    1512                 :            :       /* This must not happen.  */
    1513         [ -  + ]:       1099 :       if (unlikely (phdr == NULL))
    1514                 :          0 :         error_exit (0, _("cannot get program header: %s"),
    1515                 :            :                     elf_errmsg (-1));
    1516                 :            : 
    1517                 :            :       /* Iterate over the sections.  */
    1518                 :            :       bool in_relro = false;
    1519                 :            :       bool in_ro = false;
    1520         [ +  + ]:      35770 :       for (size_t inner = 1; inner < shnum; ++inner)
    1521                 :            :         {
    1522                 :      34671 :           Elf_Scn *scn = elf_getscn (ebl->elf, inner);
    1523                 :            :           /* This should not happen.  */
    1524         [ -  + ]:      34671 :           if (unlikely (scn == NULL))
    1525                 :          0 :             error_exit (0, _("cannot get section: %s"),
    1526                 :            :                         elf_errmsg (-1));
    1527                 :            : 
    1528                 :            :           /* Get the section header.  */
    1529                 :      34671 :           GElf_Shdr shdr_mem;
    1530                 :      34671 :           GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
    1531         [ -  + ]:      34671 :           if (unlikely (shdr == NULL))
    1532                 :          0 :             error_exit (0, _("cannot get section header: %s"),
    1533                 :            :                         elf_errmsg (-1));
    1534                 :            : 
    1535         [ +  - ]:      34671 :           if (shdr->sh_size > 0
    1536                 :            :               /* Compare allocated sections by VMA, unallocated
    1537                 :            :                  sections by file offset.  */
    1538         [ +  + ]:      34671 :               && (shdr->sh_flags & SHF_ALLOC
    1539                 :      27448 :                   ? (shdr->sh_addr >= phdr->p_vaddr
    1540         [ +  + ]:      27448 :                      && (shdr->sh_addr + shdr->sh_size
    1541         [ +  + ]:      18583 :                          <= phdr->p_vaddr + phdr->p_memsz))
    1542                 :       7223 :                   : (shdr->sh_offset >= phdr->p_offset
    1543         [ +  + ]:       7223 :                      && (shdr->sh_offset + shdr->sh_size
    1544         [ +  + ]:       6252 :                          <= phdr->p_offset + phdr->p_filesz))))
    1545                 :            :             {
    1546         [ +  + ]:       3764 :               if (has_relro && !in_relro
    1547         [ +  + ]:       2501 :                   && shdr->sh_addr >= relro_from
    1548         [ +  + ]:        441 :                   && shdr->sh_addr + shdr->sh_size <= relro_to)
    1549                 :            :                 {
    1550                 :        282 :                   fputs_unlocked (" [RELRO:", stdout);
    1551                 :        282 :                   in_relro = true;
    1552                 :            :                 }
    1553   [ +  +  +  + ]:       3482 :               else if (has_relro && in_relro && shdr->sh_addr >= relro_to)
    1554                 :            :                 {
    1555                 :         82 :                   fputs_unlocked ("]", stdout);
    1556                 :         82 :                   in_relro =  false;
    1557                 :            :                 }
    1558         [ +  + ]:       3400 :               else if (has_relro && in_relro
    1559         [ +  + ]:        691 :                        && shdr->sh_addr + shdr->sh_size > relro_to)
    1560                 :          9 :                 fputs_unlocked ("] <RELRO:", stdout);
    1561         [ +  + ]:       3391 :               else if (phdr->p_type == PT_LOAD && (phdr->p_flags & PF_W) == 0)
    1562                 :            :                 {
    1563         [ +  + ]:       1949 :                   if (!in_ro)
    1564                 :            :                     {
    1565                 :        216 :                       fputs_unlocked (" [RO:", stdout);
    1566                 :        216 :                       in_ro = true;
    1567                 :            :                     }
    1568                 :            :                 }
    1569                 :            :               else
    1570                 :            :                 {
    1571                 :            :                   /* Determine the segment this section is part of.  */
    1572                 :            :                   size_t cnt2;
    1573                 :            :                   GElf_Phdr phdr2_mem;
    1574                 :            :                   GElf_Phdr *phdr2 = NULL;
    1575         [ +  - ]:       6372 :                   for (cnt2 = 0; cnt2 < phnum; ++cnt2)
    1576                 :            :                     {
    1577                 :       6372 :                       phdr2 = gelf_getphdr (ebl->elf, cnt2, &phdr2_mem);
    1578                 :            : 
    1579   [ +  -  +  + ]:       6372 :                       if (phdr2 != NULL && phdr2->p_type == PT_LOAD
    1580         [ +  - ]:       3544 :                           && shdr->sh_addr >= phdr2->p_vaddr
    1581                 :       3544 :                           && (shdr->sh_addr + shdr->sh_size
    1582         [ +  + ]:       3544 :                               <= phdr2->p_vaddr + phdr2->p_memsz))
    1583                 :            :                         break;
    1584                 :            :                     }
    1585                 :            : 
    1586         [ +  - ]:       1442 :                   if (cnt2 < phnum)
    1587                 :            :                     {
    1588   [ +  +  +  + ]:       1442 :                       if ((phdr2->p_flags & PF_W) == 0 && !in_ro)
    1589                 :            :                         {
    1590                 :        361 :                           fputs_unlocked (" [RO:", stdout);
    1591                 :        361 :                           in_ro = true;
    1592                 :            :                         }
    1593   [ +  +  +  - ]:       1081 :                       else if ((phdr2->p_flags & PF_W) != 0 && in_ro)
    1594                 :            :                         {
    1595                 :          0 :                           fputs_unlocked ("]", stdout);
    1596                 :          0 :                           in_ro = false;
    1597                 :            :                         }
    1598                 :            :                     }
    1599                 :            :                 }
    1600                 :            : 
    1601                 :       3764 :               printf (" %s",
    1602                 :       3764 :                       elf_strptr (ebl->elf, shstrndx, shdr->sh_name));
    1603                 :            : 
    1604                 :            :               /* Signal that this section is only partially covered.  */
    1605         [ +  + ]:       3764 :               if (has_relro && in_relro
    1606         [ +  + ]:        973 :                        && shdr->sh_addr + shdr->sh_size > relro_to)
    1607                 :            :                 {
    1608                 :          9 :                   fputs_unlocked (">", stdout);
    1609                 :          9 :                   in_relro =  false;
    1610                 :            :                 }
    1611                 :            :             }
    1612                 :            :         }
    1613         [ +  + ]:       1099 :       if (in_relro || in_ro)
    1614                 :        768 :         fputs_unlocked ("]", stdout);
    1615                 :            : 
    1616                 :            :       /* Finish the line.  */
    1617         [ -  + ]:       2198 :       fputc_unlocked ('\n', stdout);
    1618                 :            :     }
    1619                 :            : }
    1620                 :            : 
    1621                 :            : 
    1622                 :            : static const char *
    1623                 :        504 : section_name (Ebl *ebl, GElf_Shdr *shdr)
    1624                 :            : {
    1625                 :        504 :   size_t shstrndx;
    1626   [ +  -  -  + ]:        504 :   if (shdr == NULL || elf_getshdrstrndx (ebl->elf, &shstrndx) < 0)
    1627                 :          0 :     return "???";
    1628         [ -  + ]:        504 :   return elf_strptr (ebl->elf, shstrndx, shdr->sh_name) ?: "???";
    1629                 :            : }
    1630                 :            : 
    1631                 :            : 
    1632                 :            : static void
    1633                 :         16 : handle_scngrp (Ebl *ebl, Elf_Scn *scn, GElf_Shdr *shdr)
    1634                 :            : {
    1635                 :            :   /* Get the data of the section.  */
    1636                 :         16 :   Elf_Data *data = elf_getdata (scn, NULL);
    1637                 :            : 
    1638                 :         16 :   Elf_Scn *symscn = elf_getscn (ebl->elf, shdr->sh_link);
    1639                 :         16 :   GElf_Shdr symshdr_mem;
    1640                 :         16 :   GElf_Shdr *symshdr = gelf_getshdr (symscn, &symshdr_mem);
    1641                 :         16 :   Elf_Data *symdata = elf_getdata (symscn, NULL);
    1642                 :            : 
    1643   [ +  -  +  - ]:         16 :   if (data == NULL || data->d_size < sizeof (Elf32_Word) || symshdr == NULL
    1644         [ -  + ]:         16 :       || symdata == NULL)
    1645                 :          0 :     return;
    1646                 :            : 
    1647                 :            :   /* Get the section header string table index.  */
    1648                 :         16 :   size_t shstrndx;
    1649         [ -  + ]:         16 :   if (unlikely (elf_getshdrstrndx (ebl->elf, &shstrndx) < 0))
    1650                 :          0 :     error_exit (0, _("cannot get section header string table index"));
    1651                 :            : 
    1652                 :         16 :   Elf32_Word *grpref = (Elf32_Word *) data->d_buf;
    1653                 :            : 
    1654                 :         16 :   GElf_Sym sym_mem;
    1655                 :         16 :   GElf_Sym *sym = gelf_getsym (symdata, shdr->sh_info, &sym_mem);
    1656                 :            : 
    1657   [ -  +  +  + ]:         32 :   printf ((grpref[0] & GRP_COMDAT)
    1658                 :          4 :           ? ngettext ("\
    1659                 :            : \nCOMDAT section group [%2zu] '%s' with signature '%s' contains %zu entry:\n",
    1660                 :            :                       "\
    1661                 :            : \nCOMDAT section group [%2zu] '%s' with signature '%s' contains %zu entries:\n",
    1662                 :            :                       data->d_size / sizeof (Elf32_Word) - 1)
    1663                 :         12 :           : ngettext ("\
    1664                 :            : \nSection group [%2zu] '%s' with signature '%s' contains %zu entry:\n", "\
    1665                 :            : \nSection group [%2zu] '%s' with signature '%s' contains %zu entries:\n",
    1666                 :            :                       data->d_size / sizeof (Elf32_Word) - 1),
    1667                 :            :           elf_ndxscn (scn),
    1668                 :         16 :           elf_strptr (ebl->elf, shstrndx, shdr->sh_name),
    1669                 :            :           (sym == NULL ? NULL
    1670                 :         16 :            : elf_strptr (ebl->elf, symshdr->sh_link, sym->st_name))
    1671                 :          0 :           ?: _("<INVALID SYMBOL>"),
    1672         [ +  - ]:         16 :           data->d_size / sizeof (Elf32_Word) - 1);
    1673                 :            : 
    1674         [ +  + ]:         52 :   for (size_t cnt = 1; cnt < data->d_size / sizeof (Elf32_Word); ++cnt)
    1675                 :            :     {
    1676                 :         36 :       GElf_Shdr grpshdr_mem;
    1677                 :         36 :       GElf_Shdr *grpshdr = gelf_getshdr (elf_getscn (ebl->elf, grpref[cnt]),
    1678                 :            :                                          &grpshdr_mem);
    1679                 :            : 
    1680                 :         36 :       const char *str;
    1681         [ +  - ]:         72 :       printf ("  [%2u] %s\n",
    1682                 :            :               grpref[cnt],
    1683                 :            :               grpshdr != NULL
    1684         [ -  + ]:         36 :               && (str = elf_strptr (ebl->elf, shstrndx, grpshdr->sh_name))
    1685                 :          0 :               ? str : _("<INVALID SECTION>"));
    1686                 :            :     }
    1687                 :            : }
    1688                 :            : 
    1689                 :            : 
    1690                 :            : static void
    1691                 :        119 : print_scngrp (Ebl *ebl)
    1692                 :            : {
    1693                 :            :   /* Find all relocation sections and handle them.  */
    1694                 :        119 :   Elf_Scn *scn = NULL;
    1695                 :            : 
    1696         [ +  + ]:       3831 :   while ((scn = elf_nextscn (ebl->elf, scn)) != NULL)
    1697                 :            :     {
    1698                 :            :        /* Handle the section if it is a symbol table.  */
    1699                 :       3712 :       GElf_Shdr shdr_mem;
    1700                 :       3712 :       GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
    1701                 :            : 
    1702   [ +  -  +  + ]:       3712 :       if (shdr != NULL && shdr->sh_type == SHT_GROUP)
    1703                 :            :         {
    1704         [ -  + ]:         16 :           if ((shdr->sh_flags & SHF_COMPRESSED) != 0)
    1705                 :            :             {
    1706         [ #  # ]:          0 :               if (elf_compress (scn, 0, 0) < 0)
    1707                 :          0 :                 printf ("WARNING: %s [%zd]\n",
    1708                 :            :                         _("Couldn't uncompress section"),
    1709                 :            :                         elf_ndxscn (scn));
    1710                 :          0 :               shdr = gelf_getshdr (scn, &shdr_mem);
    1711         [ #  # ]:          0 :               if (unlikely (shdr == NULL))
    1712                 :          0 :                 error_exit (0, _("cannot get section [%zd] header: %s"),
    1713                 :            :                             elf_ndxscn (scn),
    1714                 :            :                             elf_errmsg (-1));
    1715                 :            :             }
    1716                 :         16 :           handle_scngrp (ebl, scn, shdr);
    1717                 :            :         }
    1718                 :            :     }
    1719                 :        119 : }
    1720                 :            : 
    1721                 :            : 
    1722                 :            : static const struct flags
    1723                 :            : {
    1724                 :            :   int mask;
    1725                 :            :   const char *str;
    1726                 :            : } dt_flags[] =
    1727                 :            :   {
    1728                 :            :     { DF_ORIGIN, "ORIGIN" },
    1729                 :            :     { DF_SYMBOLIC, "SYMBOLIC" },
    1730                 :            :     { DF_TEXTREL, "TEXTREL" },
    1731                 :            :     { DF_BIND_NOW, "BIND_NOW" },
    1732                 :            :     { DF_STATIC_TLS, "STATIC_TLS" }
    1733                 :            :   };
    1734                 :            : static const int ndt_flags = sizeof (dt_flags) / sizeof (dt_flags[0]);
    1735                 :            : 
    1736                 :            : static const struct flags dt_flags_1[] =
    1737                 :            :   {
    1738                 :            :     { DF_1_NOW, "NOW" },
    1739                 :            :     { DF_1_GLOBAL, "GLOBAL" },
    1740                 :            :     { DF_1_GROUP, "GROUP" },
    1741                 :            :     { DF_1_NODELETE, "NODELETE" },
    1742                 :            :     { DF_1_LOADFLTR, "LOADFLTR" },
    1743                 :            :     { DF_1_INITFIRST, "INITFIRST" },
    1744                 :            :     { DF_1_NOOPEN, "NOOPEN" },
    1745                 :            :     { DF_1_ORIGIN, "ORIGIN" },
    1746                 :            :     { DF_1_DIRECT, "DIRECT" },
    1747                 :            :     { DF_1_TRANS, "TRANS" },
    1748                 :            :     { DF_1_INTERPOSE, "INTERPOSE" },
    1749                 :            :     { DF_1_NODEFLIB, "NODEFLIB" },
    1750                 :            :     { DF_1_NODUMP, "NODUMP" },
    1751                 :            :     { DF_1_CONFALT, "CONFALT" },
    1752                 :            :     { DF_1_ENDFILTEE, "ENDFILTEE" },
    1753                 :            :     { DF_1_DISPRELDNE, "DISPRELDNE" },
    1754                 :            :     { DF_1_DISPRELPND, "DISPRELPND" },
    1755                 :            :   };
    1756                 :            : static const int ndt_flags_1 = sizeof (dt_flags_1) / sizeof (dt_flags_1[0]);
    1757                 :            : 
    1758                 :            : static const struct flags dt_feature_1[] =
    1759                 :            :   {
    1760                 :            :     { DTF_1_PARINIT, "PARINIT" },
    1761                 :            :     { DTF_1_CONFEXP, "CONFEXP" }
    1762                 :            :   };
    1763                 :            : static const int ndt_feature_1 = (sizeof (dt_feature_1)
    1764                 :            :                                   / sizeof (dt_feature_1[0]));
    1765                 :            : 
    1766                 :            : static const struct flags dt_posflag_1[] =
    1767                 :            :   {
    1768                 :            :     { DF_P1_LAZYLOAD, "LAZYLOAD" },
    1769                 :            :     { DF_P1_GROUPPERM, "GROUPPERM" }
    1770                 :            :   };
    1771                 :            : static const int ndt_posflag_1 = (sizeof (dt_posflag_1)
    1772                 :            :                                   / sizeof (dt_posflag_1[0]));
    1773                 :            : 
    1774                 :            : 
    1775                 :            : static void
    1776                 :         37 : print_flags (int class, GElf_Xword d_val, const struct flags *flags,
    1777                 :            :                 int nflags)
    1778                 :            : {
    1779                 :         37 :   bool first = true;
    1780                 :         37 :   int cnt;
    1781                 :            : 
    1782         [ +  + ]:        552 :   for (cnt = 0; cnt < nflags; ++cnt)
    1783         [ +  + ]:        515 :     if (d_val & flags[cnt].mask)
    1784                 :            :       {
    1785         [ +  + ]:         34 :         if (!first)
    1786         [ -  + ]:         18 :           putchar_unlocked (' ');
    1787                 :         34 :         fputs_unlocked (flags[cnt].str, stdout);
    1788                 :         34 :         d_val &= ~flags[cnt].mask;
    1789                 :         34 :         first = false;
    1790                 :            :       }
    1791                 :            : 
    1792         [ +  + ]:         37 :   if (d_val != 0)
    1793                 :            :     {
    1794         [ +  + ]:         31 :       if (!first)
    1795         [ -  + ]:         10 :         putchar_unlocked (' ');
    1796         [ +  + ]:         31 :       printf ("%#0*" PRIx64, class == ELFCLASS32 ? 10 : 18, d_val);
    1797                 :            :     }
    1798                 :            : 
    1799         [ -  + ]:         37 :   putchar_unlocked ('\n');
    1800                 :         37 : }
    1801                 :            : 
    1802                 :            : 
    1803                 :            : static void
    1804                 :          7 : print_dt_flags (int class, GElf_Xword d_val)
    1805                 :            : {
    1806                 :          7 :   print_flags (class, d_val, dt_flags, ndt_flags);
    1807                 :          7 : }
    1808                 :            : 
    1809                 :            : 
    1810                 :            : static void
    1811                 :         28 : print_dt_flags_1 (int class, GElf_Xword d_val)
    1812                 :            : {
    1813                 :         28 :   print_flags (class, d_val, dt_flags_1, ndt_flags_1);
    1814                 :         28 : }
    1815                 :            : 
    1816                 :            : 
    1817                 :            : static void
    1818                 :          1 : print_dt_feature_1 (int class, GElf_Xword d_val)
    1819                 :            : {
    1820                 :          1 :   print_flags (class, d_val, dt_feature_1, ndt_feature_1);
    1821                 :          1 : }
    1822                 :            : 
    1823                 :            : 
    1824                 :            : static void
    1825                 :          1 : print_dt_posflag_1 (int class, GElf_Xword d_val)
    1826                 :            : {
    1827                 :          1 :   print_flags (class, d_val, dt_posflag_1, ndt_posflag_1);
    1828                 :          1 : }
    1829                 :            : 
    1830                 :            : 
    1831                 :            : static size_t
    1832                 :         80 : get_dyn_ents (Elf_Data * dyn_data)
    1833                 :            : {
    1834                 :         80 :   GElf_Dyn *dyn;
    1835                 :         80 :   GElf_Dyn dyn_mem;
    1836                 :         80 :   size_t dyn_idx = 0;
    1837                 :       1987 :   do
    1838                 :            :     {
    1839                 :       1987 :       dyn = gelf_getdyn(dyn_data, dyn_idx, &dyn_mem);
    1840         [ +  - ]:       1987 :       if (dyn != NULL)
    1841                 :       1987 :         ++dyn_idx;
    1842                 :            :     }
    1843         [ +  + ]:       1987 :   while (dyn != NULL && dyn->d_tag != DT_NULL);
    1844                 :            : 
    1845                 :         80 :   return dyn_idx;
    1846                 :            : }
    1847                 :            : 
    1848                 :            : 
    1849                 :            : static void
    1850                 :         80 : handle_dynamic (Ebl *ebl, Elf_Scn *scn, GElf_Shdr *shdr, GElf_Phdr *phdr)
    1851                 :            : {
    1852                 :         80 :   int class = gelf_getclass (ebl->elf);
    1853                 :         80 :   GElf_Shdr glink_mem;
    1854                 :         80 :   GElf_Shdr *glink;
    1855                 :         80 :   Elf_Data *data;
    1856                 :         80 :   size_t cnt;
    1857                 :         80 :   size_t shstrndx;
    1858                 :         80 :   size_t dyn_ents;
    1859                 :            : 
    1860                 :            :   /* Get the data of the section.  */
    1861   [ +  +  +  - ]:         80 :   if (use_dynamic_segment && phdr != NULL)
    1862                 :          1 :     data = elf_getdata_rawchunk(ebl->elf, phdr->p_offset,
    1863                 :            :                                 phdr->p_filesz, ELF_T_DYN);
    1864                 :            :   else
    1865                 :         79 :     data = elf_getdata (scn, NULL);
    1866                 :            : 
    1867         [ -  + ]:         80 :   if (data == NULL)
    1868                 :          0 :     return;
    1869                 :            : 
    1870                 :            :   /* Get the dynamic section entry number */
    1871                 :         80 :   dyn_ents = get_dyn_ents (data);
    1872                 :            : 
    1873   [ +  +  +  - ]:         80 :   if (!use_dynamic_segment && shdr != NULL)
    1874                 :            :     {
    1875                 :            :       /* Get the section header string table index.  */
    1876         [ -  + ]:         79 :       if (unlikely (elf_getshdrstrndx (ebl->elf, &shstrndx) < 0))
    1877                 :          0 :         error_exit (0, _("cannot get section header string table index"));
    1878                 :            : 
    1879                 :         79 :       glink = gelf_getshdr (elf_getscn (ebl->elf, shdr->sh_link), &glink_mem);
    1880         [ -  + ]:         79 :       if (glink == NULL)
    1881                 :          0 :         error_exit (0, _("invalid sh_link value in section %zu"),
    1882                 :            :                     elf_ndxscn (scn));
    1883                 :            : 
    1884                 :         79 :       printf (ngettext ("\
    1885                 :            : \nDynamic segment contains %lu entry:\n Addr: %#0*" PRIx64 "  Offset: %#08" PRIx64 "  Link to section: [%2u] '%s'\n",
    1886                 :            :                     "\
    1887                 :            : \nDynamic segment contains %lu entries:\n Addr: %#0*" PRIx64 "  Offset: %#08" PRIx64 "  Link to section: [%2u] '%s'\n",
    1888                 :            :                         dyn_ents),
    1889                 :            :               (unsigned long int) dyn_ents,
    1890                 :            :               class == ELFCLASS32 ? 10 : 18, shdr->sh_addr,
    1891                 :            :               shdr->sh_offset,
    1892         [ +  + ]:         79 :               (int) shdr->sh_link,
    1893                 :         79 :               elf_strptr (ebl->elf, shstrndx, glink->sh_name));
    1894                 :            :     }
    1895         [ +  - ]:          1 :   else if (phdr != NULL)
    1896                 :            :     {
    1897         [ +  - ]:          2 :       printf (ngettext ("\
    1898                 :            : \nDynamic segment contains %lu entry:\n Addr: %#0*" PRIx64 "  Offset: %#08" PRIx64 "\n",
    1899                 :            :                     "\
    1900                 :            : \nDynamic segment contains %lu entries:\n Addr: %#0*" PRIx64 "  Offset: %#08" PRIx64 "\n",
    1901                 :            :                         dyn_ents),
    1902                 :            :               (unsigned long int) dyn_ents,
    1903                 :            :               class == ELFCLASS32 ? 10 : 18, phdr->p_paddr,
    1904                 :            :               phdr->p_offset);
    1905                 :            :     }
    1906                 :            : 
    1907                 :         80 :   fputs_unlocked (_("  Type              Value\n"), stdout);
    1908                 :            : 
    1909                 :            :   /* if --use-dynamic option is enabled,
    1910                 :            :      use the string table to get the related library info.  */
    1911                 :         80 :   Elf_Data *strtab_data = NULL;
    1912   [ +  +  +  - ]:         80 :   if (use_dynamic_segment && phdr != NULL)
    1913                 :            :     {
    1914                 :          1 :       strtab_data = get_dynscn_strtab(ebl->elf, phdr);
    1915         [ -  + ]:          1 :       if (strtab_data == NULL)
    1916                 :          0 :         error_exit (0, _("cannot get string table by using dynamic segment"));
    1917                 :            :     }
    1918                 :            : 
    1919         [ +  + ]:       2067 :   for (cnt = 0; cnt < dyn_ents; ++cnt)
    1920                 :            :     {
    1921                 :       1987 :       GElf_Dyn dynmem;
    1922                 :       1987 :       GElf_Dyn *dyn = gelf_getdyn (data, cnt, &dynmem);
    1923         [ +  - ]:       1987 :       if (dyn == NULL)
    1924                 :            :         break;
    1925                 :            : 
    1926                 :       1987 :       char buf[64];
    1927                 :       1987 :       printf ("  %-17s ",
    1928                 :            :               ebl_dynamic_tag_name (ebl, dyn->d_tag, buf, sizeof (buf)));
    1929                 :            : 
    1930                 :       1987 :       char *name = NULL;
    1931                 :       1987 :       if (dyn->d_tag == DT_NEEDED
    1932         [ +  + ]:       1987 :           || dyn->d_tag == DT_SONAME
    1933         [ +  + ]:       1859 :           || dyn->d_tag == DT_RPATH
    1934         [ +  + ]:       1858 :           || dyn->d_tag == DT_RUNPATH)
    1935                 :            :         {
    1936   [ +  +  +  - ]:        130 :           if (! use_dynamic_segment && shdr != NULL)
    1937                 :        128 :             name = elf_strptr (ebl->elf, shdr->sh_link, dyn->d_un.d_val);
    1938         [ -  + ]:          2 :           else if (dyn->d_un.d_val < strtab_data->d_size
    1939                 :          2 :                    && memrchr (strtab_data->d_buf + dyn->d_un.d_val, '\0',
    1940         [ -  + ]:          2 :                                strtab_data->d_size - 1 - dyn->d_un.d_val) != NULL)
    1941                 :       1987 :             name = ((char *) strtab_data->d_buf) + dyn->d_un.d_val;
    1942                 :            :         }
    1943                 :            : 
    1944   [ +  +  +  +  :       1987 :       switch (dyn->d_tag)
          +  +  +  +  +  
             +  +  +  + ]
    1945                 :            :         {
    1946                 :        158 :         case DT_NULL:
    1947                 :            :         case DT_DEBUG:
    1948                 :            :         case DT_BIND_NOW:
    1949                 :            :         case DT_TEXTREL:
    1950                 :            :           /* No further output.  */
    1951         [ -  + ]:        158 :           fputc_unlocked ('\n', stdout);
    1952                 :            :           break;
    1953                 :            : 
    1954                 :        125 :         case DT_NEEDED:
    1955                 :        125 :           printf (_("Shared library: [%s]\n"), name);
    1956                 :            :           break;
    1957                 :            : 
    1958                 :          3 :         case DT_SONAME:
    1959                 :          3 :           printf (_("Library soname: [%s]\n"), name);
    1960                 :            :           break;
    1961                 :            : 
    1962                 :          1 :         case DT_RPATH:
    1963                 :          1 :           printf (_("Library rpath: [%s]\n"), name);
    1964                 :            :           break;
    1965                 :            : 
    1966                 :          1 :         case DT_RUNPATH:
    1967                 :          1 :           printf (_("Library runpath: [%s]\n"), name);
    1968                 :            :           break;
    1969                 :            : 
    1970                 :        531 :         case DT_PLTRELSZ:
    1971                 :            :         case DT_RELASZ:
    1972                 :            :         case DT_STRSZ:
    1973                 :            :         case DT_RELSZ:
    1974                 :            :         case DT_RELAENT:
    1975                 :            :         case DT_SYMENT:
    1976                 :            :         case DT_RELENT:
    1977                 :            :         case DT_PLTPADSZ:
    1978                 :            :         case DT_MOVEENT:
    1979                 :            :         case DT_MOVESZ:
    1980                 :            :         case DT_INIT_ARRAYSZ:
    1981                 :            :         case DT_FINI_ARRAYSZ:
    1982                 :            :         case DT_SYMINSZ:
    1983                 :            :         case DT_SYMINENT:
    1984                 :            :         case DT_GNU_CONFLICTSZ:
    1985                 :            :         case DT_GNU_LIBLISTSZ:
    1986                 :        531 :           printf (_("%" PRId64 " (bytes)\n"), dyn->d_un.d_val);
    1987                 :            :           break;
    1988                 :            : 
    1989                 :        118 :         case DT_VERDEFNUM:
    1990                 :            :         case DT_VERNEEDNUM:
    1991                 :            :         case DT_RELACOUNT:
    1992                 :            :         case DT_RELCOUNT:
    1993                 :        118 :           printf ("%" PRId64 "\n", dyn->d_un.d_val);
    1994                 :            :           break;
    1995                 :            : 
    1996                 :         66 :         case DT_PLTREL:;
    1997                 :         66 :           const char *tagname = ebl_dynamic_tag_name (ebl, dyn->d_un.d_val,
    1998                 :            :                                                       NULL, 0);
    1999         [ +  + ]:         66 :           puts (tagname ?: "???");
    2000                 :         66 :           break;
    2001                 :            : 
    2002                 :          7 :         case DT_FLAGS:
    2003                 :          7 :           print_dt_flags (class, dyn->d_un.d_val);
    2004                 :            :           break;
    2005                 :            : 
    2006                 :         28 :         case DT_FLAGS_1:
    2007                 :         28 :           print_dt_flags_1 (class, dyn->d_un.d_val);
    2008                 :            :           break;
    2009                 :            : 
    2010                 :          1 :         case DT_FEATURE_1:
    2011                 :          1 :           print_dt_feature_1 (class, dyn->d_un.d_val);
    2012                 :            :           break;
    2013                 :            : 
    2014                 :          1 :         case DT_POSFLAG_1:
    2015                 :          1 :           print_dt_posflag_1 (class, dyn->d_un.d_val);
    2016                 :            :           break;
    2017                 :            : 
    2018                 :        947 :         default:
    2019         [ +  + ]:       2934 :           printf ("%#0*" PRIx64 "\n",
    2020                 :            :                   class == ELFCLASS32 ? 10 : 18, dyn->d_un.d_val);
    2021                 :            :           break;
    2022                 :            :         }
    2023                 :            :     }
    2024                 :            : }
    2025                 :            : 
    2026                 :            : 
    2027                 :            : /* Print the dynamic segment.  */
    2028                 :            : static void
    2029                 :        113 : print_dynamic (Ebl *ebl)
    2030                 :            : {
    2031         [ +  + ]:        638 :   for (size_t i = 0; i < phnum; ++i)
    2032                 :            :     {
    2033                 :        632 :       GElf_Phdr phdr_mem;
    2034                 :        632 :       GElf_Phdr *phdr = gelf_getphdr (ebl->elf, i, &phdr_mem);
    2035                 :            : 
    2036   [ +  -  +  + ]:        632 :       if (phdr != NULL && phdr->p_type == PT_DYNAMIC)
    2037                 :            :         {
    2038                 :        107 :           Elf_Scn *scn = gelf_offscn (ebl->elf, phdr->p_offset);
    2039                 :        107 :           GElf_Shdr shdr_mem;
    2040                 :        107 :           GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
    2041         [ +  + ]:        107 :           if ((use_dynamic_segment && phdr != NULL)
    2042   [ +  +  +  + ]:        106 :               || (shdr != NULL && shdr->sh_type == SHT_DYNAMIC))
    2043                 :         80 :             handle_dynamic (ebl, scn, shdr, phdr);
    2044                 :        107 :           break;
    2045                 :            :         }
    2046                 :            :     }
    2047                 :        113 : }
    2048                 :            : 
    2049                 :            : 
    2050                 :            : /* Print relocations.  */
    2051                 :            : static void
    2052                 :        111 : print_relocs (Ebl *ebl, GElf_Ehdr *ehdr)
    2053                 :            : {
    2054                 :            :   /* Find all relocation sections and handle them.  */
    2055                 :        111 :   Elf_Scn *scn = NULL;
    2056                 :            : 
    2057         [ +  + ]:       3607 :   while ((scn = elf_nextscn (ebl->elf, scn)) != NULL)
    2058                 :            :     {
    2059                 :            :        /* Handle the section if it is a symbol table.  */
    2060                 :       3496 :       GElf_Shdr shdr_mem;
    2061                 :       3496 :       GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
    2062                 :            : 
    2063         [ +  - ]:       3496 :       if (likely (shdr != NULL))
    2064                 :            :         {
    2065         [ +  + ]:       3496 :           if (shdr->sh_type == SHT_REL)
    2066                 :         50 :             handle_relocs_rel (ebl, ehdr, scn, shdr);
    2067         [ +  + ]:       3446 :           else if (shdr->sh_type == SHT_RELA)
    2068                 :        153 :             handle_relocs_rela (ebl, ehdr, scn, shdr);
    2069                 :            :         }
    2070                 :            :     }
    2071                 :        111 : }
    2072                 :            : 
    2073                 :            : 
    2074                 :            : /* Handle a relocation section.  */
    2075                 :            : static void
    2076                 :         50 : handle_relocs_rel (Ebl *ebl, GElf_Ehdr *ehdr, Elf_Scn *scn, GElf_Shdr *shdr)
    2077                 :            : {
    2078                 :         50 :   int class = gelf_getclass (ebl->elf);
    2079                 :         50 :   size_t sh_entsize = gelf_fsize (ebl->elf, ELF_T_REL, 1, EV_CURRENT);
    2080                 :         50 :   int nentries = shdr->sh_size / sh_entsize;
    2081                 :            : 
    2082                 :            :   /* Get the data of the section.  */
    2083                 :         50 :   Elf_Data *data = elf_getdata (scn, NULL);
    2084         [ +  - ]:         50 :   if (data == NULL)
    2085                 :          0 :     return;
    2086                 :            : 
    2087                 :            :   /* Get the symbol table information.  */
    2088                 :         50 :   Elf_Scn *symscn = elf_getscn (ebl->elf, shdr->sh_link);
    2089                 :         50 :   GElf_Shdr symshdr_mem;
    2090                 :         50 :   GElf_Shdr *symshdr = gelf_getshdr (symscn, &symshdr_mem);
    2091                 :         50 :   Elf_Data *symdata = elf_getdata (symscn, NULL);
    2092                 :            : 
    2093                 :            :   /* Get the section header of the section the relocations are for.  */
    2094                 :         50 :   GElf_Shdr destshdr_mem;
    2095                 :         50 :   GElf_Shdr *destshdr = gelf_getshdr (elf_getscn (ebl->elf, shdr->sh_info),
    2096                 :            :                                       &destshdr_mem);
    2097                 :            : 
    2098   [ +  -  -  + ]:         50 :   if (unlikely (symshdr == NULL || symdata == NULL || destshdr == NULL))
    2099                 :            :     {
    2100                 :          0 :       printf (_("\nInvalid symbol table at offset %#0" PRIx64 "\n"),
    2101                 :            :               shdr->sh_offset);
    2102                 :          0 :       return;
    2103                 :            :     }
    2104                 :            : 
    2105                 :            :   /* Search for the optional extended section index table.  */
    2106                 :         50 :   Elf_Data *xndxdata = NULL;
    2107                 :         50 :   int xndxscnidx = elf_scnshndx (scn);
    2108         [ -  + ]:         50 :   if (unlikely (xndxscnidx > 0))
    2109                 :          0 :     xndxdata = elf_getdata (elf_getscn (ebl->elf, xndxscnidx), NULL);
    2110                 :            : 
    2111                 :            :   /* Get the section header string table index.  */
    2112                 :         50 :   size_t shstrndx;
    2113         [ -  + ]:         50 :   if (unlikely (elf_getshdrstrndx (ebl->elf, &shstrndx) < 0))
    2114                 :          0 :     error_exit (0, _("cannot get section header string table index"));
    2115                 :            : 
    2116         [ +  + ]:         50 :   if (shdr->sh_info != 0)
    2117                 :         40 :     printf (ngettext ("\
    2118                 :            : \nRelocation section [%2zu] '%s' for section [%2u] '%s' at offset %#0" PRIx64 " contains %d entry:\n",
    2119                 :            :                     "\
    2120                 :            : \nRelocation section [%2zu] '%s' for section [%2u] '%s' at offset %#0" PRIx64 " contains %d entries:\n",
    2121                 :            :                       nentries),
    2122                 :            :             elf_ndxscn (scn),
    2123                 :         40 :             elf_strptr (ebl->elf, shstrndx, shdr->sh_name),
    2124                 :         40 :             (unsigned int) shdr->sh_info,
    2125                 :         40 :             elf_strptr (ebl->elf, shstrndx, destshdr->sh_name),
    2126                 :            :             shdr->sh_offset,
    2127                 :            :             nentries);
    2128                 :            :   else
    2129                 :            :     /* The .rel.dyn section does not refer to a specific section but
    2130                 :            :        instead of section index zero.  Do not try to print a section
    2131                 :            :        name.  */
    2132                 :         10 :     printf (ngettext ("\
    2133                 :            : \nRelocation section [%2u] '%s' at offset %#0" PRIx64 " contains %d entry:\n",
    2134                 :            :                     "\
    2135                 :            : \nRelocation section [%2u] '%s' at offset %#0" PRIx64 " contains %d entries:\n",
    2136                 :            :                       nentries),
    2137                 :         10 :             (unsigned int) elf_ndxscn (scn),
    2138                 :         10 :             elf_strptr (ebl->elf, shstrndx, shdr->sh_name),
    2139                 :            :             shdr->sh_offset,
    2140                 :            :             nentries);
    2141         [ +  - ]:         50 :   fputs_unlocked (class == ELFCLASS32
    2142                 :         50 :                   ? _("\
    2143                 :            :   Offset      Type                 Value       Name\n")
    2144                 :          0 :                   : _("\
    2145                 :            :   Offset              Type                 Value               Name\n"),
    2146                 :            :          stdout);
    2147                 :            : 
    2148                 :         50 :   int is_statically_linked = 0;
    2149         [ +  + ]:      12983 :   for (int cnt = 0; cnt < nentries; ++cnt)
    2150                 :            :     {
    2151                 :      12933 :       GElf_Rel relmem;
    2152                 :      12933 :       GElf_Rel *rel = gelf_getrel (data, cnt, &relmem);
    2153         [ +  - ]:      12933 :       if (likely (rel != NULL))
    2154                 :            :         {
    2155                 :      12933 :           char buf[128];
    2156                 :      12933 :           GElf_Sym symmem;
    2157                 :      12933 :           Elf32_Word xndx;
    2158                 :      25866 :           GElf_Sym *sym = gelf_getsymshndx (symdata, xndxdata,
    2159                 :      12933 :                                             GELF_R_SYM (rel->r_info),
    2160                 :            :                                             &symmem, &xndx);
    2161         [ -  + ]:      12933 :           if (unlikely (sym == NULL))
    2162                 :            :             {
    2163                 :            :               /* As a special case we have to handle relocations in static
    2164                 :            :                  executables.  This only happens for IRELATIVE relocations
    2165                 :            :                  (so far).  There is no symbol table.  */
    2166         [ #  # ]:          0 :               if (is_statically_linked == 0)
    2167                 :            :                 {
    2168                 :            :                   /* Find the program header and look for a PT_INTERP entry. */
    2169                 :          0 :                   is_statically_linked = -1;
    2170         [ #  # ]:          0 :                   if (ehdr->e_type == ET_EXEC)
    2171                 :            :                     {
    2172                 :          0 :                       is_statically_linked = 1;
    2173                 :            : 
    2174         [ #  # ]:          0 :                       for (size_t inner = 0; inner < phnum; ++inner)
    2175                 :            :                         {
    2176                 :          0 :                           GElf_Phdr phdr_mem;
    2177                 :          0 :                           GElf_Phdr *phdr = gelf_getphdr (ebl->elf, inner,
    2178                 :            :                                                           &phdr_mem);
    2179   [ #  #  #  # ]:          0 :                           if (phdr != NULL && phdr->p_type == PT_INTERP)
    2180                 :            :                             {
    2181                 :          0 :                               is_statically_linked = -1;
    2182                 :          0 :                               break;
    2183                 :            :                             }
    2184                 :            :                         }
    2185                 :            :                     }
    2186                 :            :                 }
    2187                 :            : 
    2188   [ #  #  #  # ]:          0 :               if (is_statically_linked > 0 && shdr->sh_link == 0)
    2189   [ #  #  #  # ]:          0 :                 printf ("\
    2190                 :            :   %#0*" PRIx64 "  %-20s %*s  %s\n",
    2191                 :            :                         class == ELFCLASS32 ? 10 : 18, rel->r_offset,
    2192                 :          0 :                         ebl_reloc_type_check (ebl, GELF_R_TYPE (rel->r_info))
    2193                 :            :                         /* Avoid the leading R_ which isn't carrying any
    2194                 :            :                            information.  */
    2195                 :          0 :                         ? ebl_reloc_type_name (ebl, GELF_R_TYPE (rel->r_info),
    2196                 :            :                                                buf, sizeof (buf)) + 2
    2197                 :          0 :                         : _("<INVALID RELOC>"),
    2198                 :            :                         class == ELFCLASS32 ? 10 : 18, "",
    2199                 :          0 :                         elf_strptr (ebl->elf, shstrndx, destshdr->sh_name));
    2200                 :            :               else
    2201   [ #  #  #  # ]:          0 :                 printf ("  %#0*" PRIx64 "  %-20s <%s %ld>\n",
    2202                 :            :                         class == ELFCLASS32 ? 10 : 18, rel->r_offset,
    2203                 :          0 :                         ebl_reloc_type_check (ebl, GELF_R_TYPE (rel->r_info))
    2204                 :            :                         /* Avoid the leading R_ which isn't carrying any
    2205                 :            :                            information.  */
    2206                 :          0 :                         ? ebl_reloc_type_name (ebl, GELF_R_TYPE (rel->r_info),
    2207                 :            :                                                buf, sizeof (buf)) + 2
    2208                 :          0 :                         : _("<INVALID RELOC>"),
    2209                 :            :                         _("INVALID SYMBOL"),
    2210                 :          0 :                         (long int) GELF_R_SYM (rel->r_info));
    2211                 :            :             }
    2212         [ +  + ]:      12933 :           else if (GELF_ST_TYPE (sym->st_info) != STT_SECTION)
    2213         [ -  + ]:      13079 :             printf ("  %#0*" PRIx64 "  %-20s %#0*" PRIx64 "  %s\n",
    2214                 :            :                     class == ELFCLASS32 ? 10 : 18, rel->r_offset,
    2215         [ +  - ]:         73 :                     likely (ebl_reloc_type_check (ebl,
    2216                 :            :                                                   GELF_R_TYPE (rel->r_info)))
    2217                 :            :                     /* Avoid the leading R_ which isn't carrying any
    2218                 :            :                        information.  */
    2219                 :         73 :                     ? ebl_reloc_type_name (ebl, GELF_R_TYPE (rel->r_info),
    2220                 :            :                                            buf, sizeof (buf)) + 2
    2221                 :          0 :                     : _("<INVALID RELOC>"),
    2222                 :            :                     class == ELFCLASS32 ? 10 : 18, sym->st_value,
    2223                 :         73 :                     elf_strptr (ebl->elf, symshdr->sh_link, sym->st_name));
    2224                 :            :           else
    2225                 :            :             {
    2226                 :            :               /* This is a relocation against a STT_SECTION symbol.  */
    2227                 :      12860 :               GElf_Shdr secshdr_mem;
    2228                 :      12860 :               GElf_Shdr *secshdr;
    2229                 :      12860 :               secshdr = gelf_getshdr (elf_getscn (ebl->elf,
    2230         [ +  - ]:      12860 :                                                   sym->st_shndx == SHN_XINDEX
    2231                 :          0 :                                                   ? xndx : sym->st_shndx),
    2232                 :            :                                       &secshdr_mem);
    2233                 :            : 
    2234         [ -  + ]:      12860 :               if (unlikely (secshdr == NULL))
    2235   [ #  #  #  # ]:          0 :                 printf ("  %#0*" PRIx64 "  %-20s <%s %ld>\n",
    2236                 :            :                         class == ELFCLASS32 ? 10 : 18, rel->r_offset,
    2237                 :          0 :                         ebl_reloc_type_check (ebl, GELF_R_TYPE (rel->r_info))
    2238                 :            :                         /* Avoid the leading R_ which isn't carrying any
    2239                 :            :                            information.  */
    2240                 :          0 :                         ? ebl_reloc_type_name (ebl, GELF_R_TYPE (rel->r_info),
    2241                 :            :                                                buf, sizeof (buf)) + 2
    2242                 :          0 :                         : _("<INVALID RELOC>"),
    2243                 :            :                         _("INVALID SECTION"),
    2244         [ #  # ]:          0 :                         (long int) (sym->st_shndx == SHN_XINDEX
    2245                 :          0 :                                     ? xndx : sym->st_shndx));
    2246                 :            :               else
    2247   [ -  +  +  - ]:      38580 :                 printf ("  %#0*" PRIx64 "  %-20s %#0*" PRIx64 "  %s\n",
    2248                 :            :                         class == ELFCLASS32 ? 10 : 18, rel->r_offset,
    2249                 :      12860 :                         ebl_reloc_type_check (ebl, GELF_R_TYPE (rel->r_info))
    2250                 :            :                         /* Avoid the leading R_ which isn't carrying any
    2251                 :            :                            information.  */
    2252                 :      12860 :                         ? ebl_reloc_type_name (ebl, GELF_R_TYPE (rel->r_info),
    2253                 :            :                                                buf, sizeof (buf)) + 2
    2254                 :          0 :                         : _("<INVALID RELOC>"),
    2255                 :            :                         class == ELFCLASS32 ? 10 : 18, sym->st_value,
    2256                 :      12860 :                         elf_strptr (ebl->elf, shstrndx, secshdr->sh_name));
    2257                 :            :             }
    2258                 :            :         }
    2259                 :            :     }
    2260                 :            : }
    2261                 :            : 
    2262                 :            : 
    2263                 :            : /* Handle a relocation section.  */
    2264                 :            : static void
    2265                 :        153 : handle_relocs_rela (Ebl *ebl, GElf_Ehdr *ehdr, Elf_Scn *scn, GElf_Shdr *shdr)
    2266                 :            : {
    2267                 :        153 :   int class = gelf_getclass (ebl->elf);
    2268                 :        153 :   size_t sh_entsize = gelf_fsize (ebl->elf, ELF_T_RELA, 1, EV_CURRENT);
    2269                 :        153 :   int nentries = shdr->sh_size / sh_entsize;
    2270                 :            : 
    2271                 :            :   /* Get the data of the section.  */
    2272                 :        153 :   Elf_Data *data = elf_getdata (scn, NULL);
    2273         [ +  - ]:        153 :   if (data == NULL)
    2274                 :          0 :     return;
    2275                 :            : 
    2276                 :            :   /* Get the symbol table information.  */
    2277                 :        153 :   Elf_Scn *symscn = elf_getscn (ebl->elf, shdr->sh_link);
    2278                 :        153 :   GElf_Shdr symshdr_mem;
    2279                 :        153 :   GElf_Shdr *symshdr = gelf_getshdr (symscn, &symshdr_mem);
    2280                 :        153 :   Elf_Data *symdata = elf_getdata (symscn, NULL);
    2281                 :            : 
    2282                 :            :   /* Get the section header of the section the relocations are for.  */
    2283                 :        153 :   GElf_Shdr destshdr_mem;
    2284                 :        153 :   GElf_Shdr *destshdr = gelf_getshdr (elf_getscn (ebl->elf, shdr->sh_info),
    2285                 :            :                                       &destshdr_mem);
    2286                 :            : 
    2287   [ +  -  -  + ]:        153 :   if (unlikely (symshdr == NULL || symdata == NULL || destshdr == NULL))
    2288                 :            :     {
    2289                 :          0 :       printf (_("\nInvalid symbol table at offset %#0" PRIx64 "\n"),
    2290                 :            :               shdr->sh_offset);
    2291                 :          0 :       return;
    2292                 :            :     }
    2293                 :            : 
    2294                 :            :   /* Search for the optional extended section index table.  */
    2295                 :        153 :   Elf_Data *xndxdata = NULL;
    2296                 :        153 :   int xndxscnidx = elf_scnshndx (scn);
    2297         [ -  + ]:        153 :   if (unlikely (xndxscnidx > 0))
    2298                 :          0 :     xndxdata = elf_getdata (elf_getscn (ebl->elf, xndxscnidx), NULL);
    2299                 :            : 
    2300                 :            :   /* Get the section header string table index.  */
    2301                 :        153 :   size_t shstrndx;
    2302         [ -  + ]:        153 :   if (unlikely (elf_getshdrstrndx (ebl->elf, &shstrndx) < 0))
    2303                 :          0 :     error_exit (0, _("cannot get section header string table index"));
    2304                 :            : 
    2305         [ +  + ]:        153 :   if (shdr->sh_info != 0)
    2306                 :         86 :     printf (ngettext ("\
    2307                 :            : \nRelocation section [%2zu] '%s' for section [%2u] '%s' at offset %#0" PRIx64 " contains %d entry:\n",
    2308                 :            :                     "\
    2309                 :            : \nRelocation section [%2zu] '%s' for section [%2u] '%s' at offset %#0" PRIx64 " contains %d entries:\n",
    2310                 :            :                     nentries),
    2311                 :            :           elf_ndxscn (scn),
    2312                 :         86 :           elf_strptr (ebl->elf, shstrndx, shdr->sh_name),
    2313                 :         86 :           (unsigned int) shdr->sh_info,
    2314                 :         86 :           elf_strptr (ebl->elf, shstrndx, destshdr->sh_name),
    2315                 :            :           shdr->sh_offset,
    2316                 :            :           nentries);
    2317                 :            :   else
    2318                 :            :     /* The .rela.dyn section does not refer to a specific section but
    2319                 :            :        instead of section index zero.  Do not try to print a section
    2320                 :            :        name.  */
    2321                 :         67 :     printf (ngettext ("\
    2322                 :            : \nRelocation section [%2u] '%s' at offset %#0" PRIx64 " contains %d entry:\n",
    2323                 :            :                     "\
    2324                 :            : \nRelocation section [%2u] '%s' at offset %#0" PRIx64 " contains %d entries:\n",
    2325                 :            :                       nentries),
    2326                 :         67 :             (unsigned int) elf_ndxscn (scn),
    2327                 :         67 :             elf_strptr (ebl->elf, shstrndx, shdr->sh_name),
    2328                 :            :             shdr->sh_offset,
    2329                 :            :             nentries);
    2330         [ -  + ]:        153 :   fputs_unlocked (class == ELFCLASS32
    2331                 :          0 :                   ? _("\
    2332                 :            :   Offset      Type            Value       Addend Name\n")
    2333                 :        153 :                   : _("\
    2334                 :            :   Offset              Type            Value               Addend Name\n"),
    2335                 :            :                   stdout);
    2336                 :            : 
    2337                 :        153 :   int is_statically_linked = 0;
    2338         [ +  + ]:      56450 :   for (int cnt = 0; cnt < nentries; ++cnt)
    2339                 :            :     {
    2340                 :      56297 :       GElf_Rela relmem;
    2341                 :      56297 :       GElf_Rela *rel = gelf_getrela (data, cnt, &relmem);
    2342         [ +  - ]:      56297 :       if (likely (rel != NULL))
    2343                 :            :         {
    2344                 :      56297 :           char buf[64];
    2345                 :      56297 :           GElf_Sym symmem;
    2346                 :      56297 :           Elf32_Word xndx;
    2347                 :     112594 :           GElf_Sym *sym = gelf_getsymshndx (symdata, xndxdata,
    2348                 :      56297 :                                             GELF_R_SYM (rel->r_info),
    2349                 :            :                                             &symmem, &xndx);
    2350                 :            : 
    2351         [ -  + ]:      56297 :           if (unlikely (sym == NULL))
    2352                 :            :             {
    2353                 :            :               /* As a special case we have to handle relocations in static
    2354                 :            :                  executables.  This only happens for IRELATIVE relocations
    2355                 :            :                  (so far).  There is no symbol table.  */
    2356         [ #  # ]:          0 :               if (is_statically_linked == 0)
    2357                 :            :                 {
    2358                 :            :                   /* Find the program header and look for a PT_INTERP entry. */
    2359                 :          0 :                   is_statically_linked = -1;
    2360         [ #  # ]:          0 :                   if (ehdr->e_type == ET_EXEC)
    2361                 :            :                     {
    2362                 :          0 :                       is_statically_linked = 1;
    2363                 :            : 
    2364         [ #  # ]:          0 :                       for (size_t inner = 0; inner < phnum; ++inner)
    2365                 :            :                         {
    2366                 :          0 :                           GElf_Phdr phdr_mem;
    2367                 :          0 :                           GElf_Phdr *phdr = gelf_getphdr (ebl->elf, inner,
    2368                 :            :                                                           &phdr_mem);
    2369   [ #  #  #  # ]:          0 :                           if (phdr != NULL && phdr->p_type == PT_INTERP)
    2370                 :            :                             {
    2371                 :          0 :                               is_statically_linked = -1;
    2372                 :          0 :                               break;
    2373                 :            :                             }
    2374                 :            :                         }
    2375                 :            :                     }
    2376                 :            :                 }
    2377                 :            : 
    2378   [ #  #  #  # ]:          0 :               if (is_statically_linked > 0 && shdr->sh_link == 0)
    2379   [ #  #  #  # ]:          0 :                 printf ("\
    2380                 :            :   %#0*" PRIx64 "  %-15s %*s  %#6" PRIx64 " %s\n",
    2381                 :            :                         class == ELFCLASS32 ? 10 : 18, rel->r_offset,
    2382                 :          0 :                         ebl_reloc_type_check (ebl, GELF_R_TYPE (rel->r_info))
    2383                 :            :                         /* Avoid the leading R_ which isn't carrying any
    2384                 :            :                            information.  */
    2385                 :          0 :                         ? ebl_reloc_type_name (ebl, GELF_R_TYPE (rel->r_info),
    2386                 :            :                                                buf, sizeof (buf)) + 2
    2387                 :          0 :                         : _("<INVALID RELOC>"),
    2388                 :            :                         class == ELFCLASS32 ? 10 : 18, "",
    2389                 :            :                         rel->r_addend,
    2390                 :          0 :                         elf_strptr (ebl->elf, shstrndx, destshdr->sh_name));
    2391                 :            :               else
    2392   [ #  #  #  # ]:          0 :                 printf ("  %#0*" PRIx64 "  %-15s <%s %ld>\n",
    2393                 :            :                         class == ELFCLASS32 ? 10 : 18, rel->r_offset,
    2394                 :          0 :                         ebl_reloc_type_check (ebl, GELF_R_TYPE (rel->r_info))
    2395                 :            :                         /* Avoid the leading R_ which isn't carrying any
    2396                 :            :                            information.  */
    2397                 :          0 :                         ? ebl_reloc_type_name (ebl, GELF_R_TYPE (rel->r_info),
    2398                 :            :                                                buf, sizeof (buf)) + 2
    2399                 :          0 :                         : _("<INVALID RELOC>"),
    2400                 :            :                         _("INVALID SYMBOL"),
    2401                 :          0 :                         (long int) GELF_R_SYM (rel->r_info));
    2402                 :            :             }
    2403         [ +  + ]:      56297 :           else if (GELF_ST_TYPE (sym->st_info) != STT_SECTION)
    2404         [ +  - ]:     155445 :             printf ("\
    2405                 :            :   %#0*" PRIx64 "  %-15s %#0*" PRIx64 "  %+6" PRId64 " %s\n",
    2406                 :            :                     class == ELFCLASS32 ? 10 : 18, rel->r_offset,
    2407         [ +  - ]:      49574 :                     likely (ebl_reloc_type_check (ebl,
    2408                 :            :                                                   GELF_R_TYPE (rel->r_info)))
    2409                 :            :                     /* Avoid the leading R_ which isn't carrying any
    2410                 :            :                        information.  */
    2411                 :      49574 :                     ? ebl_reloc_type_name (ebl, GELF_R_TYPE (rel->r_info),
    2412                 :            :                                            buf, sizeof (buf)) + 2
    2413                 :          0 :                     : _("<INVALID RELOC>"),
    2414                 :            :                     class == ELFCLASS32 ? 10 : 18, sym->st_value,
    2415                 :            :                     rel->r_addend,
    2416                 :      49574 :                     elf_strptr (ebl->elf, symshdr->sh_link, sym->st_name));
    2417                 :            :           else
    2418                 :            :             {
    2419                 :            :               /* This is a relocation against a STT_SECTION symbol.  */
    2420                 :       6723 :               GElf_Shdr secshdr_mem;
    2421                 :       6723 :               GElf_Shdr *secshdr;
    2422                 :       6723 :               secshdr = gelf_getshdr (elf_getscn (ebl->elf,
    2423         [ +  - ]:       6723 :                                                   sym->st_shndx == SHN_XINDEX
    2424                 :          0 :                                                   ? xndx : sym->st_shndx),
    2425                 :            :                                       &secshdr_mem);
    2426                 :            : 
    2427         [ -  + ]:       6723 :               if (unlikely (secshdr == NULL))
    2428   [ #  #  #  # ]:          0 :                 printf ("  %#0*" PRIx64 "  %-15s <%s %ld>\n",
    2429                 :            :                         class == ELFCLASS32 ? 10 : 18, rel->r_offset,
    2430                 :          0 :                         ebl_reloc_type_check (ebl, GELF_R_TYPE (rel->r_info))
    2431                 :            :                         /* Avoid the leading R_ which isn't carrying any
    2432                 :            :                            information.  */
    2433                 :          0 :                         ? ebl_reloc_type_name (ebl, GELF_R_TYPE (rel->r_info),
    2434                 :            :                                                buf, sizeof (buf)) + 2
    2435                 :          0 :                         : _("<INVALID RELOC>"),
    2436                 :            :                         _("INVALID SECTION"),
    2437         [ #  # ]:          0 :                         (long int) (sym->st_shndx == SHN_XINDEX
    2438                 :          0 :                                     ? xndx : sym->st_shndx));
    2439                 :            :               else
    2440   [ +  -  +  - ]:      20169 :                 printf ("\
    2441                 :            :   %#0*" PRIx64 "  %-15s %#0*" PRIx64 "  %+6" PRId64 " %s\n",
    2442                 :            :                         class == ELFCLASS32 ? 10 : 18, rel->r_offset,
    2443                 :       6723 :                         ebl_reloc_type_check (ebl, GELF_R_TYPE (rel->r_info))
    2444                 :            :                         /* Avoid the leading R_ which isn't carrying any
    2445                 :            :                            information.  */
    2446                 :       6723 :                         ? ebl_reloc_type_name (ebl, GELF_R_TYPE (rel->r_info),
    2447                 :            :                                                buf, sizeof (buf)) + 2
    2448                 :          0 :                         : _("<INVALID RELOC>"),
    2449                 :            :                         class == ELFCLASS32 ? 10 : 18, sym->st_value,
    2450                 :            :                         rel->r_addend,
    2451                 :       6723 :                         elf_strptr (ebl->elf, shstrndx, secshdr->sh_name));
    2452                 :            :             }
    2453                 :            :         }
    2454                 :            :     }
    2455                 :            : }
    2456                 :            : 
    2457                 :            : 
    2458                 :            : /* Print the program header.  Return true if a symtab is printed,
    2459                 :            :    false otherwise.  */
    2460                 :            : static bool
    2461                 :        255 : print_symtab (Ebl *ebl, int type)
    2462                 :            : {
    2463                 :            :   /* Use the dynamic section info to display symbol tables.  */
    2464   [ -  +  -  - ]:        255 :   if (use_dynamic_segment && type == SHT_DYNSYM)
    2465                 :          0 :     return handle_dynamic_symtab(ebl);
    2466                 :            : 
    2467                 :            :   /* Find the symbol table(s).  For this we have to search through the
    2468                 :            :      section table.  */
    2469                 :            :   Elf_Scn *scn = NULL;
    2470                 :            :   bool symtab_printed = false;
    2471                 :            : 
    2472         [ +  + ]:       8168 :   while ((scn = elf_nextscn (ebl->elf, scn)) != NULL)
    2473                 :            :     {
    2474                 :            :       /* Handle the section if it is a symbol table.  */
    2475                 :       7913 :       GElf_Shdr shdr_mem;
    2476                 :       7913 :       GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
    2477                 :            : 
    2478   [ +  -  +  + ]:       7913 :       if (shdr != NULL && shdr->sh_type == (GElf_Word) type)
    2479                 :            :         {
    2480         [ +  + ]:        155 :           if (symbol_table_section != NULL)
    2481                 :            :             {
    2482                 :            :               /* Get the section header string table index.  */
    2483                 :          7 :               size_t shstrndx;
    2484                 :          7 :               const char *sname;
    2485         [ -  + ]:          7 :               if (unlikely (elf_getshdrstrndx (ebl->elf, &shstrndx) < 0))
    2486                 :          0 :                 error_exit (0,
    2487                 :            :                             _("cannot get section header string table index"));
    2488                 :          7 :               sname = elf_strptr (ebl->elf, shstrndx, shdr->sh_name);
    2489   [ +  -  +  + ]:          7 :               if (sname == NULL || strcmp (sname, symbol_table_section) != 0)
    2490                 :          4 :                 continue;
    2491                 :            :             }
    2492                 :            : 
    2493         [ -  + ]:        151 :           if ((shdr->sh_flags & SHF_COMPRESSED) != 0)
    2494                 :            :             {
    2495         [ #  # ]:          0 :               if (elf_compress (scn, 0, 0) < 0)
    2496                 :          0 :                 printf ("WARNING: %s [%zd]\n",
    2497                 :            :                         _("Couldn't uncompress section"),
    2498                 :            :                         elf_ndxscn (scn));
    2499                 :          0 :               shdr = gelf_getshdr (scn, &shdr_mem);
    2500         [ #  # ]:          0 :               if (unlikely (shdr == NULL))
    2501                 :          0 :                 error_exit (0,
    2502                 :            :                             _("cannot get section [%zd] header: %s"),
    2503                 :            :                             elf_ndxscn (scn), elf_errmsg (-1));
    2504                 :            :             }
    2505                 :        151 :           symtab_printed = handle_symtab (ebl, scn, shdr);
    2506                 :            :         }
    2507                 :            :     }
    2508                 :            : 
    2509                 :            :   return symtab_printed;
    2510                 :            : }
    2511                 :            : 
    2512                 :            : 
    2513                 :            : static void
    2514                 :        151 : process_symtab (Ebl *ebl, unsigned int nsyms, Elf64_Word idx,
    2515                 :            :                 Elf32_Word verneed_stridx, Elf32_Word verdef_stridx,
    2516                 :            :                 Elf_Data *symdata, Elf_Data *versym_data,
    2517                 :            :                 Elf_Data *symstr_data, Elf_Data *verneed_data,
    2518                 :            :                 Elf_Data *verdef_data, Elf_Data *xndx_data)
    2519                 :            : {
    2520         [ +  + ]:      37509 :   for (unsigned int cnt = 0; cnt < nsyms; ++cnt)
    2521                 :            :     {
    2522                 :      37358 :       char typebuf[64];
    2523                 :      37358 :       char bindbuf[64];
    2524                 :      37358 :       char scnbuf[64];
    2525                 :      37358 :       Elf32_Word xndx;
    2526                 :      37358 :       GElf_Sym sym_mem;
    2527                 :      37358 :       GElf_Sym *sym
    2528                 :      37358 :           = gelf_getsymshndx (symdata, xndx_data, cnt, &sym_mem, &xndx);
    2529                 :            : 
    2530         [ -  + ]:      37358 :       if (unlikely (sym == NULL))
    2531                 :          0 :         continue;
    2532                 :            : 
    2533                 :            :       /* Determine the real section index.  */
    2534         [ +  - ]:      37358 :       if (likely (sym->st_shndx != SHN_XINDEX))
    2535                 :      37358 :         xndx = sym->st_shndx;
    2536                 :            : 
    2537         [ +  + ]:      74189 :       printf (_ ("\
    2538                 :            : %5u: %0*" PRIx64 " %6" PRId64 " %-7s %-6s %-9s %6s %s"),
    2539                 :      37358 :               cnt, gelf_getclass (ebl->elf) == ELFCLASS32 ? 8 : 16,
    2540                 :            :               sym->st_value, sym->st_size,
    2541                 :      37358 :               ebl_symbol_type_name (ebl, GELF_ST_TYPE (sym->st_info), typebuf,
    2542                 :            :                                     sizeof (typebuf)),
    2543                 :      37358 :               ebl_symbol_binding_name (ebl, GELF_ST_BIND (sym->st_info),
    2544                 :            :                                        bindbuf, sizeof (bindbuf)),
    2545                 :      37358 :               get_visibility_type (GELF_ST_VISIBILITY (sym->st_other)),
    2546                 :      37358 :               ebl_section_name (ebl, sym->st_shndx, xndx, scnbuf,
    2547                 :            :                                 sizeof (scnbuf), NULL, shnum),
    2548         [ -  + ]:      37358 :               use_dynamic_segment == true
    2549                 :          0 :                   ? (char *)symstr_data->d_buf + sym->st_name
    2550                 :      37358 :                   : elf_strptr (ebl->elf, idx, sym->st_name));
    2551                 :            : 
    2552         [ +  + ]:      37358 :       if (versym_data != NULL)
    2553                 :            :         {
    2554                 :            :           /* Get the version information.  */
    2555                 :       1739 :           GElf_Versym versym_mem;
    2556                 :       1739 :           GElf_Versym *versym = gelf_getversym (versym_data, cnt, &versym_mem);
    2557                 :            : 
    2558   [ +  -  +  + ]:       1739 :           if (versym != NULL && ((*versym & 0x8000) != 0 || *versym > 1))
    2559                 :            :             {
    2560                 :       1233 :               bool is_nobits = false;
    2561                 :       1233 :               bool check_def = xndx != SHN_UNDEF;
    2562                 :            : 
    2563   [ +  +  -  + ]:       1233 :               if (xndx < SHN_LORESERVE || sym->st_shndx == SHN_XINDEX)
    2564                 :            :                 {
    2565                 :       1223 :                   GElf_Shdr symshdr_mem;
    2566                 :       1223 :                   GElf_Shdr *symshdr = gelf_getshdr (
    2567                 :            :                       elf_getscn (ebl->elf, xndx), &symshdr_mem);
    2568                 :            : 
    2569                 :       1223 :                   is_nobits
    2570   [ +  -  +  + ]:       2434 :                       = (symshdr != NULL && symshdr->sh_type == SHT_NOBITS);
    2571                 :            :                 }
    2572                 :            : 
    2573         [ +  + ]:       1233 :               if (is_nobits || !check_def)
    2574                 :            :                 {
    2575                 :            :                   /* We must test both.  */
    2576                 :       1081 :                   GElf_Vernaux vernaux_mem;
    2577                 :       1081 :                   GElf_Vernaux *vernaux = NULL;
    2578                 :       1081 :                   size_t vn_offset = 0;
    2579                 :            : 
    2580                 :       1081 :                   GElf_Verneed verneed_mem;
    2581                 :       1081 :                   GElf_Verneed *verneed
    2582                 :       1081 :                       = gelf_getverneed (verneed_data, 0, &verneed_mem);
    2583         [ +  - ]:       3899 :                   while (verneed != NULL)
    2584                 :            :                     {
    2585                 :       3899 :                       size_t vna_offset = vn_offset;
    2586                 :            : 
    2587                 :       3899 :                       vernaux = gelf_getvernaux (verneed_data,
    2588                 :       3899 :                                                  vna_offset += verneed->vn_aux,
    2589                 :            :                                                  &vernaux_mem);
    2590         [ +  + ]:      13928 :                       while (vernaux != NULL && vernaux->vna_other != *versym
    2591         [ +  + ]:       8948 :                              && vernaux->vna_next != 0
    2592         [ +  - ]:      10029 :                              && (verneed_data->d_size - vna_offset
    2593         [ +  - ]:       6130 :                                  >= vernaux->vna_next))
    2594                 :            :                         {
    2595                 :            :                           /* Update the offset.  */
    2596                 :       6130 :                           vna_offset += vernaux->vna_next;
    2597                 :            : 
    2598                 :       6130 :                           vernaux = (vernaux->vna_next == 0
    2599                 :            :                                          ? NULL
    2600                 :       6130 :                                          : gelf_getvernaux (verneed_data,
    2601                 :            :                                                             vna_offset,
    2602                 :            :                                                             &vernaux_mem));
    2603                 :            :                         }
    2604                 :            : 
    2605                 :            :                       /* Check whether we found the version.  */
    2606   [ +  -  +  + ]:       3899 :                       if (vernaux != NULL && vernaux->vna_other == *versym)
    2607                 :            :                         /* Found it.  */
    2608                 :            :                         break;
    2609                 :            : 
    2610         [ +  - ]:       2818 :                       if (verneed_data->d_size - vn_offset < verneed->vn_next)
    2611                 :            :                         break;
    2612                 :            : 
    2613                 :       2818 :                       vn_offset += verneed->vn_next;
    2614                 :       2818 :                       verneed
    2615                 :            :                           = (verneed->vn_next == 0
    2616                 :            :                                  ? NULL
    2617         [ +  - ]:       2818 :                                  : gelf_getverneed (verneed_data, vn_offset,
    2618                 :            :                                                     &verneed_mem));
    2619                 :            :                     }
    2620                 :            : 
    2621   [ +  -  +  - ]:       1081 :                   if (vernaux != NULL && vernaux->vna_other == *versym)
    2622                 :            :                     {
    2623                 :       2162 :                       printf ("@%s (%u)",
    2624         [ -  + ]:       1081 :                               use_dynamic_segment == true
    2625                 :          0 :                                   ? (char *)symstr_data->d_buf
    2626                 :          0 :                                         + vernaux->vna_name
    2627                 :       1081 :                                   : elf_strptr (ebl->elf, verneed_stridx,
    2628                 :       1081 :                                                 vernaux->vna_name),
    2629                 :            :                               (unsigned int)vernaux->vna_other);
    2630                 :       1081 :                       check_def = 0;
    2631                 :            :                     }
    2632         [ #  # ]:          0 :                   else if (unlikely (!is_nobits))
    2633                 :          0 :                     error (0, 0, _ ("bad dynamic symbol"));
    2634                 :            :                   else
    2635                 :            :                     check_def = 1;
    2636                 :            :                 }
    2637                 :            : 
    2638   [ +  -  +  - ]:       1233 :               if (check_def && *versym != 0x8001)
    2639                 :            :                 {
    2640                 :            :                   /* We must test both.  */
    2641                 :        152 :                   size_t vd_offset = 0;
    2642                 :            : 
    2643                 :        152 :                   GElf_Verdef verdef_mem;
    2644                 :        152 :                   GElf_Verdef *verdef
    2645                 :        152 :                       = gelf_getverdef (verdef_data, 0, &verdef_mem);
    2646         [ +  - ]:        433 :                   while (verdef != NULL)
    2647                 :            :                     {
    2648         [ +  + ]:        433 :                       if (verdef->vd_ndx == (*versym & 0x7fff))
    2649                 :            :                         /* Found the definition.  */
    2650                 :            :                         break;
    2651                 :            : 
    2652         [ +  - ]:        281 :                       if (verdef_data->d_size - vd_offset < verdef->vd_next)
    2653                 :            :                         break;
    2654                 :            : 
    2655                 :        281 :                       vd_offset += verdef->vd_next;
    2656                 :        281 :                       verdef = (verdef->vd_next == 0
    2657                 :            :                                     ? NULL
    2658         [ +  - ]:        281 :                                     : gelf_getverdef (verdef_data, vd_offset,
    2659                 :            :                                                       &verdef_mem));
    2660                 :            :                     }
    2661                 :            : 
    2662         [ +  - ]:        152 :                   if (verdef != NULL)
    2663                 :            :                     {
    2664                 :        152 :                       GElf_Verdaux verdaux_mem;
    2665                 :        304 :                       GElf_Verdaux *verdaux = gelf_getverdaux (
    2666                 :        152 :                           verdef_data, vd_offset + verdef->vd_aux,
    2667                 :            :                           &verdaux_mem);
    2668                 :            : 
    2669         [ +  - ]:        152 :                       if (verdaux != NULL)
    2670         [ +  - ]:        304 :                         printf ((*versym & 0x8000) ? "@%s" : "@@%s",
    2671         [ -  + ]:        152 :                                 use_dynamic_segment == true
    2672                 :          0 :                                     ? (char *)symstr_data->d_buf
    2673                 :          0 :                                           + verdaux->vda_name
    2674                 :        152 :                                     : elf_strptr (ebl->elf, verdef_stridx,
    2675                 :        152 :                                                   verdaux->vda_name));
    2676                 :            :                     }
    2677                 :            :                 }
    2678                 :            :             }
    2679                 :            :         }
    2680                 :            : 
    2681         [ +  + ]:      74716 :       putchar_unlocked ('\n');
    2682                 :            :     }
    2683                 :        151 : }
    2684                 :            : 
    2685                 :            : 
    2686                 :            : static bool
    2687                 :        151 : handle_symtab (Ebl *ebl, Elf_Scn *scn, GElf_Shdr *shdr)
    2688                 :            : {
    2689                 :        151 :   Elf_Data *versym_data = NULL;
    2690                 :        151 :   Elf_Data *verneed_data = NULL;
    2691                 :        151 :   Elf_Data *verdef_data = NULL;
    2692                 :        151 :   Elf_Data *xndx_data = NULL;
    2693                 :        151 :   int class = gelf_getclass (ebl->elf);
    2694                 :        151 :   Elf32_Word verneed_stridx = 0;
    2695                 :        151 :   Elf32_Word verdef_stridx = 0;
    2696                 :            : 
    2697                 :            :   /* Get the data of the section.  */
    2698                 :        151 :   Elf_Data *data = elf_getdata (scn, NULL);
    2699         [ +  - ]:        151 :   if (data == NULL)
    2700                 :            :     return false;
    2701                 :            : 
    2702                 :            :   /* Find out whether we have other sections we might need.  */
    2703                 :            :   Elf_Scn *runscn = NULL;
    2704         [ +  + ]:       4962 :   while ((runscn = elf_nextscn (ebl->elf, runscn)) != NULL)
    2705                 :            :     {
    2706                 :       4811 :       GElf_Shdr runshdr_mem;
    2707                 :       4811 :       GElf_Shdr *runshdr = gelf_getshdr (runscn, &runshdr_mem);
    2708                 :            : 
    2709         [ +  - ]:       4811 :       if (likely (runshdr != NULL))
    2710                 :            :         {
    2711         [ +  + ]:       4811 :           if (runshdr->sh_type == SHT_GNU_versym
    2712         [ +  + ]:        113 :               && runshdr->sh_link == elf_ndxscn (scn))
    2713                 :            :             /* Bingo, found the version information.  Now get the data.  */
    2714                 :         87 :             versym_data = elf_getdata (runscn, NULL);
    2715         [ +  + ]:       4724 :           else if (runshdr->sh_type == SHT_GNU_verneed)
    2716                 :            :             {
    2717                 :            :               /* This is the information about the needed versions.  */
    2718                 :        113 :               verneed_data = elf_getdata (runscn, NULL);
    2719                 :        113 :               verneed_stridx = runshdr->sh_link;
    2720                 :            :             }
    2721         [ +  + ]:       4611 :           else if (runshdr->sh_type == SHT_GNU_verdef)
    2722                 :            :             {
    2723                 :            :               /* This is the information about the defined versions.  */
    2724                 :          4 :               verdef_data = elf_getdata (runscn, NULL);
    2725                 :          4 :               verdef_stridx = runshdr->sh_link;
    2726                 :            :             }
    2727         [ +  - ]:       4607 :           else if (runshdr->sh_type == SHT_SYMTAB_SHNDX
    2728         [ #  # ]:          0 :               && runshdr->sh_link == elf_ndxscn (scn))
    2729                 :            :             /* Extended section index.  */
    2730                 :          0 :             xndx_data = elf_getdata (runscn, NULL);
    2731                 :            :         }
    2732                 :            :     }
    2733                 :            : 
    2734                 :            :   /* Get the section header string table index.  */
    2735                 :        151 :   size_t shstrndx;
    2736         [ -  + ]:        151 :   if (unlikely (elf_getshdrstrndx (ebl->elf, &shstrndx) < 0))
    2737                 :          0 :     error_exit (0, _("cannot get section header string table index"));
    2738                 :            : 
    2739                 :        151 :   GElf_Shdr glink_mem;
    2740                 :        151 :   GElf_Shdr *glink = gelf_getshdr (elf_getscn (ebl->elf, shdr->sh_link),
    2741                 :            :                                    &glink_mem);
    2742         [ -  + ]:        151 :   if (glink == NULL)
    2743                 :          0 :     error_exit (0, _("invalid sh_link value in section %zu"),
    2744                 :            :                 elf_ndxscn (scn));
    2745                 :            : 
    2746                 :            :   /* Now we can compute the number of entries in the section.  */
    2747                 :        302 :   unsigned int nsyms = data->d_size / (class == ELFCLASS32
    2748                 :            :                                        ? sizeof (Elf32_Sym)
    2749         [ +  + ]:        151 :                                        : sizeof (Elf64_Sym));
    2750                 :            : 
    2751                 :        151 :   printf (ngettext ("\nSymbol table [%2u] '%s' contains %u entry:\n",
    2752                 :            :                     "\nSymbol table [%2u] '%s' contains %u entries:\n",
    2753                 :            :                     nsyms),
    2754                 :        151 :           (unsigned int) elf_ndxscn (scn),
    2755                 :        151 :           elf_strptr (ebl->elf, shstrndx, shdr->sh_name), nsyms);
    2756                 :        151 :   printf (ngettext (" %lu local symbol  String table: [%2u] '%s'\n",
    2757                 :            :                     " %lu local symbols  String table: [%2u] '%s'\n",
    2758                 :            :                     shdr->sh_info),
    2759                 :        151 :           (unsigned long int) shdr->sh_info,
    2760                 :        151 :           (unsigned int) shdr->sh_link,
    2761                 :        151 :           elf_strptr (ebl->elf, shstrndx, glink->sh_name));
    2762                 :            : 
    2763         [ +  + ]:        302 :   fputs_unlocked (class == ELFCLASS32
    2764                 :         19 :                   ? _("\
    2765                 :            :   Num:    Value   Size Type    Bind   Vis          Ndx Name\n")
    2766                 :        132 :                   : _("\
    2767                 :            :   Num:            Value   Size Type    Bind   Vis          Ndx Name\n"),
    2768                 :            :                   stdout);
    2769                 :            : 
    2770                 :        151 :         process_symtab(ebl, nsyms, shdr->sh_link, verneed_stridx, verdef_stridx,
    2771                 :            :         data, versym_data, NULL, verneed_data, verdef_data, xndx_data);
    2772                 :        151 :     return true;
    2773                 :            : }
    2774                 :            : 
    2775                 :            : 
    2776                 :            : static bool
    2777                 :          0 : handle_dynamic_symtab (Ebl *ebl)
    2778                 :            : {
    2779                 :          0 :   GElf_Phdr phdr_mem;
    2780                 :          0 :   GElf_Phdr *phdr = NULL;
    2781                 :            :   /* phnum is a static variable which was already fetched in function
    2782                 :            :      process_elf_file.  */
    2783         [ #  # ]:          0 :   for (size_t i = 0; i < phnum; ++i)
    2784                 :            :     {
    2785                 :          0 :       phdr = gelf_getphdr (ebl->elf, i, &phdr_mem);
    2786         [ #  # ]:          0 :       if (phdr->p_type == PT_DYNAMIC)
    2787                 :            :         break;
    2788                 :            :     }
    2789         [ #  # ]:          0 :   if (phdr == NULL)
    2790                 :            :     return false;
    2791                 :            : 
    2792                 :          0 :   GElf_Addr addrs[i_max] = {
    2793                 :            :     0,
    2794                 :            :   };
    2795                 :          0 :   GElf_Off offs[i_max] = {
    2796                 :            :     0,
    2797                 :            :   };
    2798                 :          0 :   get_dynscn_addrs (ebl->elf, phdr, addrs);
    2799                 :          0 :   find_offsets (ebl->elf, 0, i_max, addrs, offs);
    2800                 :            : 
    2801                 :          0 :   size_t syments = 0;
    2802                 :            : 
    2803                 :          0 :   GElf_Ehdr ehdr_mem;
    2804                 :          0 :   GElf_Ehdr *ehdr = gelf_getehdr (ebl->elf, &ehdr_mem);
    2805                 :            : 
    2806         [ #  # ]:          0 :   if (offs[i_hash] != 0)
    2807                 :            :     {
    2808                 :            :       /* In the original format, .hash says the size of .dynsym.  */
    2809                 :            : 
    2810   [ #  #  #  #  :          0 :       size_t entsz = SH_ENTSIZE_HASH (ehdr);
                   #  # ]
    2811                 :            :       Elf_Data *data
    2812                 :          0 :           = elf_getdata_rawchunk (ebl->elf, offs[i_hash] + entsz, entsz,
    2813                 :            :                                   (entsz == 4 ? ELF_T_WORD : ELF_T_XWORD));
    2814         [ #  # ]:          0 :       if (data != NULL)
    2815                 :          0 :         syments = (entsz == 4 ? *(const GElf_Word *)data->d_buf
    2816         [ #  # ]:          0 :                               : *(const GElf_Xword *)data->d_buf);
    2817                 :            :     }
    2818   [ #  #  #  # ]:          0 :   if (offs[i_gnu_hash] != 0 && syments == 0)
    2819                 :            :     {
    2820                 :            :       /* In the new format, we can derive it with some work.  */
    2821                 :            : 
    2822                 :          0 :       const struct
    2823                 :            :       {
    2824                 :            :         Elf32_Word nbuckets;
    2825                 :            :         Elf32_Word symndx;
    2826                 :            :         Elf32_Word maskwords;
    2827                 :            :         Elf32_Word shift2;
    2828                 :            :       } * header;
    2829                 :            : 
    2830                 :          0 :       Elf_Data *data = elf_getdata_rawchunk (ebl->elf, offs[i_gnu_hash],
    2831                 :            :                                              sizeof *header, ELF_T_WORD);
    2832         [ #  # ]:          0 :       if (data != NULL)
    2833                 :            :         {
    2834                 :          0 :           header = data->d_buf;
    2835                 :          0 :           Elf32_Word nbuckets = header->nbuckets;
    2836                 :          0 :           Elf32_Word symndx = header->symndx;
    2837                 :          0 :           GElf_Off buckets_at
    2838                 :            :               = (offs[i_gnu_hash] + sizeof *header
    2839                 :          0 :                  + (gelf_getclass (ebl->elf) * sizeof (Elf32_Word)
    2840                 :          0 :                     * header->maskwords));
    2841                 :            : 
    2842                 :            :           // elf_getdata_rawchunk takes a size_t, make sure it
    2843                 :            :           // doesn't overflow.
    2844                 :            : #if SIZE_MAX <= UINT32_MAX
    2845                 :            :           if (nbuckets > SIZE_MAX / sizeof (Elf32_Word))
    2846                 :            :             data = NULL;
    2847                 :            :           else
    2848                 :            : #endif
    2849                 :          0 :             data = elf_getdata_rawchunk (ebl->elf, buckets_at,
    2850                 :            :                                          nbuckets * sizeof (Elf32_Word),
    2851                 :            :                                          ELF_T_WORD);
    2852         [ #  # ]:          0 :           if (data != NULL && symndx < nbuckets)
    2853                 :            :             {
    2854                 :          0 :               const Elf32_Word *const buckets = data->d_buf;
    2855                 :          0 :               Elf32_Word maxndx = symndx;
    2856         [ #  # ]:          0 :               for (Elf32_Word bucket = 0; bucket < nbuckets; ++bucket)
    2857                 :          0 :                 if (buckets[bucket] > maxndx)
    2858                 :            :                   maxndx = buckets[bucket];
    2859                 :            : 
    2860                 :          0 :               GElf_Off hasharr_at
    2861                 :            :                   = (buckets_at + nbuckets * sizeof (Elf32_Word));
    2862                 :          0 :               hasharr_at += (maxndx - symndx) * sizeof (Elf32_Word);
    2863                 :          0 :               do
    2864                 :            :                 {
    2865                 :          0 :                   data = elf_getdata_rawchunk (
    2866                 :            :                       ebl->elf, hasharr_at, sizeof (Elf32_Word), ELF_T_WORD);
    2867   [ #  #  #  # ]:          0 :                   if (data != NULL && (*(const Elf32_Word *)data->d_buf & 1u))
    2868                 :            :                     {
    2869                 :          0 :                       syments = maxndx + 1;
    2870                 :          0 :                       break;
    2871                 :            :                     }
    2872                 :          0 :                   ++maxndx;
    2873                 :          0 :                   hasharr_at += sizeof (Elf32_Word);
    2874                 :            :                 }
    2875         [ #  # ]:          0 :               while (data != NULL);
    2876                 :            :             }
    2877                 :            :         }
    2878                 :            :     }
    2879   [ #  #  #  # ]:          0 :   if (offs[i_strtab] > offs[i_symtab] && syments == 0)
    2880                 :          0 :     syments = ((offs[i_strtab] - offs[i_symtab])
    2881                 :          0 :                / gelf_fsize (ebl->elf, ELF_T_SYM, 1, EV_CURRENT));
    2882                 :            : 
    2883   [ #  #  #  #  :          0 :   if (syments <= 0 || offs[i_strtab] == 0 || offs[i_symtab] == 0)
                   #  # ]
    2884                 :            :     {
    2885                 :          0 :       error_exit (0, _ ("Dynamic symbol information is not available for "
    2886                 :            :                         "displaying symbols."));
    2887                 :            :     }
    2888                 :            : 
    2889                 :            :   /* All the data chunk initializaion.  */
    2890                 :          0 :   Elf_Data *symdata = NULL;
    2891                 :          0 :   Elf_Data *symstrdata = NULL;
    2892                 :          0 :   Elf_Data *versym_data = NULL;
    2893                 :          0 :   Elf_Data *verdef_data = NULL;
    2894                 :          0 :   Elf_Data *verneed_data = NULL;
    2895                 :            : 
    2896                 :          0 :   symdata = elf_getdata_rawchunk (
    2897                 :            :       ebl->elf, offs[i_symtab],
    2898                 :            :       gelf_fsize (ebl->elf, ELF_T_SYM, syments, EV_CURRENT), ELF_T_SYM);
    2899                 :          0 :   symstrdata = elf_getdata_rawchunk (ebl->elf, offs[i_strtab], addrs[i_strsz],
    2900                 :            :                                      ELF_T_BYTE);
    2901                 :          0 :   versym_data = elf_getdata_rawchunk (
    2902                 :          0 :       ebl->elf, offs[i_versym], syments * sizeof (Elf64_Half), ELF_T_HALF);
    2903                 :            : 
    2904                 :            :   /* Get the verneed_data without vernaux.  */
    2905                 :          0 :   verneed_data = elf_getdata_rawchunk (
    2906                 :          0 :       ebl->elf, offs[i_verneed], addrs[i_verneednum] * sizeof (Elf64_Verneed),
    2907                 :            :       ELF_T_VNEED);
    2908                 :          0 :   size_t vernauxnum = 0;
    2909                 :          0 :   size_t vn_next_offset = 0;
    2910                 :            : 
    2911         [ #  # ]:          0 :   for (size_t i = 0; i < addrs[i_verneednum]; i++)
    2912                 :            :     {
    2913                 :          0 :       GElf_Verneed *verneed
    2914                 :          0 :           = (GElf_Verneed *)(verneed_data->d_buf + vn_next_offset);
    2915                 :          0 :       vernauxnum += verneed->vn_cnt;
    2916                 :          0 :       vn_next_offset += verneed->vn_next;
    2917                 :            :     }
    2918                 :            : 
    2919                 :            :   /* Update the verneed_data to include the vernaux.  */
    2920                 :          0 :   verneed_data = elf_getdata_rawchunk (
    2921                 :            :       ebl->elf, offs[i_verneed],
    2922                 :          0 :       (addrs[i_verneednum] + vernauxnum) * sizeof (GElf_Verneed), ELF_T_VNEED);
    2923                 :            : 
    2924                 :            :   /* Get the verdef_data without verdaux.  */
    2925                 :          0 :   verdef_data = elf_getdata_rawchunk (
    2926                 :          0 :       ebl->elf, offs[i_verdef], addrs[i_verdefnum] * sizeof (Elf64_Verdef),
    2927                 :            :       ELF_T_VDEF);
    2928                 :          0 :   size_t verdauxnum = 0;
    2929                 :          0 :   size_t vd_next_offset = 0;
    2930                 :            : 
    2931         [ #  # ]:          0 :   for (size_t i = 0; i < addrs[i_verdefnum]; i++)
    2932                 :            :     {
    2933                 :          0 :       GElf_Verdef *verdef
    2934                 :          0 :           = (GElf_Verdef *)(verdef_data->d_buf + vd_next_offset);
    2935                 :          0 :       verdauxnum += verdef->vd_cnt;
    2936                 :          0 :       vd_next_offset += verdef->vd_next;
    2937                 :            :     }
    2938                 :            : 
    2939                 :            :   /* Update the verdef_data to include the verdaux.  */
    2940                 :          0 :   verdef_data = elf_getdata_rawchunk (
    2941                 :            :       ebl->elf, offs[i_verdef],
    2942                 :          0 :       (addrs[i_verdefnum] + verdauxnum) * sizeof (GElf_Verdef), ELF_T_VDEF);
    2943                 :            : 
    2944                 :          0 :   unsigned int nsyms = (unsigned int)syments;
    2945                 :          0 :   process_symtab (ebl, nsyms, 0, 0, 0, symdata, versym_data, symstrdata,
    2946                 :            :                   verneed_data, verdef_data, NULL);
    2947                 :          0 :   return true;
    2948                 :            : }
    2949                 :            : 
    2950                 :            : 
    2951                 :            : /* Print version information.  */
    2952                 :            : static void
    2953                 :        110 : print_verinfo (Ebl *ebl)
    2954                 :            : {
    2955                 :            :   /* Find the version information sections.  For this we have to
    2956                 :            :      search through the section table.  */
    2957                 :        110 :   Elf_Scn *scn = NULL;
    2958                 :            : 
    2959         [ +  + ]:       3572 :   while ((scn = elf_nextscn (ebl->elf, scn)) != NULL)
    2960                 :            :     {
    2961                 :            :       /* Handle the section if it is part of the versioning handling.  */
    2962                 :       3462 :       GElf_Shdr shdr_mem;
    2963                 :       3462 :       GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
    2964                 :            : 
    2965         [ +  - ]:       3462 :       if (likely (shdr != NULL))
    2966                 :            :         {
    2967         [ +  + ]:       3462 :           if (shdr->sh_type == SHT_GNU_verneed)
    2968                 :         77 :             handle_verneed (ebl, scn, shdr);
    2969         [ +  + ]:       3385 :           else if (shdr->sh_type == SHT_GNU_verdef)
    2970                 :          2 :             handle_verdef (ebl, scn, shdr);
    2971         [ +  + ]:       3383 :           else if (shdr->sh_type == SHT_GNU_versym)
    2972                 :         77 :             handle_versym (ebl, scn, shdr);
    2973                 :            :         }
    2974                 :            :     }
    2975                 :        110 : }
    2976                 :            : 
    2977                 :            : 
    2978                 :            : static const char *
    2979                 :        199 : get_ver_flags (unsigned int flags)
    2980                 :            : {
    2981                 :        199 :   static char buf[32];
    2982                 :        199 :   char *endp;
    2983                 :            : 
    2984         [ +  + ]:        199 :   if (flags == 0)
    2985                 :        197 :     return _("none");
    2986                 :            : 
    2987         [ +  - ]:          2 :   if (flags & VER_FLG_BASE)
    2988                 :          2 :     endp = stpcpy (buf, "BASE ");
    2989                 :            :   else
    2990                 :            :     endp = buf;
    2991                 :            : 
    2992         [ -  + ]:          2 :   if (flags & VER_FLG_WEAK)
    2993                 :            :     {
    2994         [ #  # ]:          0 :       if (endp != buf)
    2995                 :          0 :         endp = stpcpy (endp, "| ");
    2996                 :            : 
    2997                 :          0 :       endp = stpcpy (endp, "WEAK ");
    2998                 :            :     }
    2999                 :            : 
    3000         [ -  + ]:          2 :   if (unlikely (flags & ~(VER_FLG_BASE | VER_FLG_WEAK)))
    3001                 :            :     {
    3002                 :          0 :       strncpy (endp, _("| <unknown>"), buf + sizeof (buf) - endp);
    3003                 :          0 :       buf[sizeof (buf) - 1] = '\0';
    3004                 :            :     }
    3005                 :            : 
    3006                 :            :   return buf;
    3007                 :            : }
    3008                 :            : 
    3009                 :            : 
    3010                 :            : static void
    3011                 :         77 : handle_verneed (Ebl *ebl, Elf_Scn *scn, GElf_Shdr *shdr)
    3012                 :            : {
    3013                 :         77 :   int class = gelf_getclass (ebl->elf);
    3014                 :            : 
    3015                 :            :   /* Get the data of the section.  */
    3016                 :         77 :   Elf_Data *data = elf_getdata (scn, NULL);
    3017         [ -  + ]:         77 :   if (data == NULL)
    3018                 :          0 :     return;
    3019                 :            : 
    3020                 :            :   /* Get the section header string table index.  */
    3021                 :         77 :   size_t shstrndx;
    3022         [ -  + ]:         77 :   if (unlikely (elf_getshdrstrndx (ebl->elf, &shstrndx) < 0))
    3023                 :          0 :     error_exit (0, _("cannot get section header string table index"));
    3024                 :            : 
    3025                 :         77 :   GElf_Shdr glink_mem;
    3026                 :         77 :   GElf_Shdr *glink = gelf_getshdr (elf_getscn (ebl->elf, shdr->sh_link),
    3027                 :            :                                    &glink_mem);
    3028         [ -  + ]:         77 :   if (glink == NULL)
    3029                 :          0 :     error_exit (0, _("invalid sh_link value in section %zu"),
    3030                 :            :                 elf_ndxscn (scn));
    3031                 :            : 
    3032                 :         77 :   printf (ngettext ("\
    3033                 :            : \nVersion needs section [%2u] '%s' contains %d entry:\n Addr: %#0*" PRIx64 "  Offset: %#08" PRIx64 "  Link to section: [%2u] '%s'\n",
    3034                 :            :                     "\
    3035                 :            : \nVersion needs section [%2u] '%s' contains %d entries:\n Addr: %#0*" PRIx64 "  Offset: %#08" PRIx64 "  Link to section: [%2u] '%s'\n",
    3036                 :            :                     shdr->sh_info),
    3037                 :         77 :           (unsigned int) elf_ndxscn (scn),
    3038                 :         77 :           elf_strptr (ebl->elf, shstrndx, shdr->sh_name), shdr->sh_info,
    3039                 :            :           class == ELFCLASS32 ? 10 : 18, shdr->sh_addr,
    3040                 :            :           shdr->sh_offset,
    3041         [ +  + ]:         77 :           (unsigned int) shdr->sh_link,
    3042                 :         77 :           elf_strptr (ebl->elf, shstrndx, glink->sh_name));
    3043                 :            : 
    3044                 :         77 :   unsigned int offset = 0;
    3045         [ +  - ]:        104 :   for (int cnt = shdr->sh_info; --cnt >= 0; )
    3046                 :            :     {
    3047                 :            :       /* Get the data at the next offset.  */
    3048                 :        104 :       GElf_Verneed needmem;
    3049                 :        104 :       GElf_Verneed *need = gelf_getverneed (data, offset, &needmem);
    3050         [ +  - ]:        104 :       if (unlikely (need == NULL))
    3051                 :            :         break;
    3052                 :            : 
    3053                 :        312 :       printf (_("  %#06x: Version: %hu  File: %s  Cnt: %hu\n"),
    3054                 :        104 :               offset, (unsigned short int) need->vn_version,
    3055                 :        104 :               elf_strptr (ebl->elf, shdr->sh_link, need->vn_file),
    3056                 :        104 :               (unsigned short int) need->vn_cnt);
    3057                 :            : 
    3058                 :        104 :       unsigned int auxoffset = offset + need->vn_aux;
    3059         [ +  - ]:        187 :       for (int cnt2 = need->vn_cnt; --cnt2 >= 0; )
    3060                 :            :         {
    3061                 :        187 :           GElf_Vernaux auxmem;
    3062                 :        187 :           GElf_Vernaux *aux = gelf_getvernaux (data, auxoffset, &auxmem);
    3063         [ +  - ]:        187 :           if (unlikely (aux == NULL))
    3064                 :            :             break;
    3065                 :            : 
    3066                 :        187 :           printf (_("  %#06x: Name: %s  Flags: %s  Version: %hu\n"),
    3067                 :            :                   auxoffset,
    3068                 :        187 :                   elf_strptr (ebl->elf, shdr->sh_link, aux->vna_name),
    3069                 :        187 :                   get_ver_flags (aux->vna_flags),
    3070                 :        187 :                   (unsigned short int) aux->vna_other);
    3071                 :            : 
    3072         [ +  + ]:        187 :           if (aux->vna_next == 0)
    3073                 :            :             break;
    3074                 :            : 
    3075                 :         83 :           auxoffset += aux->vna_next;
    3076                 :            :         }
    3077                 :            : 
    3078                 :            :       /* Find the next offset.  */
    3079         [ +  + ]:        104 :       if (need->vn_next == 0)
    3080                 :            :         break;
    3081                 :            : 
    3082                 :         27 :       offset += need->vn_next;
    3083                 :            :     }
    3084                 :            : }
    3085                 :            : 
    3086                 :            : 
    3087                 :            : static void
    3088                 :          2 : handle_verdef (Ebl *ebl, Elf_Scn *scn, GElf_Shdr *shdr)
    3089                 :            : {
    3090                 :            :   /* Get the data of the section.  */
    3091                 :          2 :   Elf_Data *data = elf_getdata (scn, NULL);
    3092         [ -  + ]:          2 :   if (data == NULL)
    3093                 :          0 :     return;
    3094                 :            : 
    3095                 :            :   /* Get the section header string table index.  */
    3096                 :          2 :   size_t shstrndx;
    3097         [ -  + ]:          2 :   if (unlikely (elf_getshdrstrndx (ebl->elf, &shstrndx) < 0))
    3098                 :          0 :     error_exit (0, _("cannot get section header string table index"));
    3099                 :            : 
    3100                 :          2 :   GElf_Shdr glink_mem;
    3101                 :          2 :   GElf_Shdr *glink = gelf_getshdr (elf_getscn (ebl->elf, shdr->sh_link),
    3102                 :            :                                    &glink_mem);
    3103         [ -  + ]:          2 :   if (glink == NULL)
    3104                 :          0 :     error_exit (0, _("invalid sh_link value in section %zu"),
    3105                 :            :                 elf_ndxscn (scn));
    3106                 :            : 
    3107                 :          2 :   int class = gelf_getclass (ebl->elf);
    3108                 :          2 :   printf (ngettext ("\
    3109                 :            : \nVersion definition section [%2u] '%s' contains %d entry:\n Addr: %#0*" PRIx64 "  Offset: %#08" PRIx64 "  Link to section: [%2u] '%s'\n",
    3110                 :            :                     "\
    3111                 :            : \nVersion definition section [%2u] '%s' contains %d entries:\n Addr: %#0*" PRIx64 "  Offset: %#08" PRIx64 "  Link to section: [%2u] '%s'\n",
    3112                 :            :                     shdr->sh_info),
    3113                 :          2 :           (unsigned int) elf_ndxscn (scn),
    3114                 :          2 :           elf_strptr (ebl->elf, shstrndx, shdr->sh_name),
    3115                 :            :           shdr->sh_info,
    3116                 :            :           class == ELFCLASS32 ? 10 : 18, shdr->sh_addr,
    3117                 :            :           shdr->sh_offset,
    3118         [ +  - ]:          2 :           (unsigned int) shdr->sh_link,
    3119                 :          2 :           elf_strptr (ebl->elf, shstrndx, glink->sh_name));
    3120                 :            : 
    3121                 :          2 :   unsigned int offset = 0;
    3122         [ +  - ]:         12 :   for (int cnt = shdr->sh_info; --cnt >= 0; )
    3123                 :            :     {
    3124                 :            :       /* Get the data at the next offset.  */
    3125                 :         12 :       GElf_Verdef defmem;
    3126                 :         12 :       GElf_Verdef *def = gelf_getverdef (data, offset, &defmem);
    3127         [ +  - ]:         12 :       if (unlikely (def == NULL))
    3128                 :            :         break;
    3129                 :            : 
    3130                 :         12 :       unsigned int auxoffset = offset + def->vd_aux;
    3131                 :         12 :       GElf_Verdaux auxmem;
    3132                 :         12 :       GElf_Verdaux *aux = gelf_getverdaux (data, auxoffset, &auxmem);
    3133         [ +  - ]:         12 :       if (unlikely (aux == NULL))
    3134                 :            :         break;
    3135                 :            : 
    3136                 :         48 :       printf (_("\
    3137                 :            :   %#06x: Version: %hd  Flags: %s  Index: %hd  Cnt: %hd  Name: %s\n"),
    3138                 :         12 :               offset, def->vd_version,
    3139                 :         12 :               get_ver_flags (def->vd_flags),
    3140                 :         12 :               def->vd_ndx,
    3141                 :         12 :               def->vd_cnt,
    3142                 :         12 :               elf_strptr (ebl->elf, shdr->sh_link, aux->vda_name));
    3143                 :            : 
    3144                 :         12 :       auxoffset += aux->vda_next;
    3145         [ +  + ]:         12 :       for (int cnt2 = 1; cnt2 < def->vd_cnt; ++cnt2)
    3146                 :            :         {
    3147                 :          8 :           aux = gelf_getverdaux (data, auxoffset, &auxmem);
    3148         [ +  - ]:          8 :           if (unlikely (aux == NULL))
    3149                 :            :             break;
    3150                 :            : 
    3151                 :          8 :           printf (_("  %#06x: Parent %d: %s\n"),
    3152                 :            :                   auxoffset, cnt2,
    3153                 :          8 :                   elf_strptr (ebl->elf, shdr->sh_link, aux->vda_name));
    3154                 :            : 
    3155         [ -  + ]:          8 :           if (aux->vda_next == 0)
    3156                 :            :             break;
    3157                 :            : 
    3158                 :          0 :           auxoffset += aux->vda_next;
    3159                 :            :         }
    3160                 :            : 
    3161                 :            :       /* Find the next offset.  */
    3162         [ +  + ]:         12 :       if (def->vd_next == 0)
    3163                 :            :         break;
    3164                 :         10 :       offset += def->vd_next;
    3165                 :            :     }
    3166                 :            : }
    3167                 :            : 
    3168                 :            : 
    3169                 :            : static void
    3170                 :         77 : handle_versym (Ebl *ebl, Elf_Scn *scn, GElf_Shdr *shdr)
    3171                 :            : {
    3172                 :         77 :   int class = gelf_getclass (ebl->elf);
    3173                 :         77 :   const char **vername;
    3174                 :         77 :   const char **filename;
    3175                 :            : 
    3176                 :            :   /* Get the data of the section.  */
    3177                 :         77 :   Elf_Data *data = elf_getdata (scn, NULL);
    3178         [ +  - ]:         77 :   if (data == NULL)
    3179                 :          0 :     return;
    3180                 :            : 
    3181                 :            :   /* Get the section header string table index.  */
    3182                 :         77 :   size_t shstrndx;
    3183         [ -  + ]:         77 :   if (unlikely (elf_getshdrstrndx (ebl->elf, &shstrndx) < 0))
    3184                 :          0 :     error_exit (0, _("cannot get section header string table index"));
    3185                 :            : 
    3186                 :            :   /* We have to find the version definition section and extract the
    3187                 :            :      version names.  */
    3188                 :            :   Elf_Scn *defscn = NULL;
    3189                 :            :   Elf_Scn *needscn = NULL;
    3190                 :            : 
    3191                 :            :   Elf_Scn *verscn = NULL;
    3192         [ +  + ]:       2369 :   while ((verscn = elf_nextscn (ebl->elf, verscn)) != NULL)
    3193                 :            :     {
    3194                 :       2292 :       GElf_Shdr vershdr_mem;
    3195                 :       2292 :       GElf_Shdr *vershdr = gelf_getshdr (verscn, &vershdr_mem);
    3196                 :            : 
    3197         [ -  + ]:       2292 :       if (likely (vershdr != NULL))
    3198                 :            :         {
    3199         [ +  + ]:       2292 :           if (vershdr->sh_type == SHT_GNU_verdef)
    3200                 :            :             defscn = verscn;
    3201         [ +  + ]:       2290 :           else if (vershdr->sh_type == SHT_GNU_verneed)
    3202                 :       2292 :             needscn = verscn;
    3203                 :            :         }
    3204                 :            :     }
    3205                 :            : 
    3206                 :         77 :   size_t nvername;
    3207         [ +  - ]:         77 :   if (defscn != NULL || needscn != NULL)
    3208                 :            :     {
    3209                 :            :       /* We have a version information (better should have).  Now get
    3210                 :            :          the version names.  First find the maximum version number.  */
    3211                 :         77 :       nvername = 0;
    3212         [ +  + ]:         77 :       if (defscn != NULL)
    3213                 :            :         {
    3214                 :            :           /* Run through the version definitions and find the highest
    3215                 :            :              index.  */
    3216                 :          2 :           unsigned int offset = 0;
    3217                 :          2 :           Elf_Data *defdata;
    3218                 :          2 :           GElf_Shdr defshdrmem;
    3219                 :          2 :           GElf_Shdr *defshdr;
    3220                 :            : 
    3221                 :          2 :           defdata = elf_getdata (defscn, NULL);
    3222         [ +  - ]:          2 :           if (unlikely (defdata == NULL))
    3223                 :          0 :             return;
    3224                 :            : 
    3225                 :          2 :           defshdr = gelf_getshdr (defscn, &defshdrmem);
    3226         [ +  - ]:          2 :           if (unlikely (defshdr == NULL))
    3227                 :            :             return;
    3228                 :            : 
    3229         [ +  - ]:         12 :           for (unsigned int cnt = 0; cnt < defshdr->sh_info; ++cnt)
    3230                 :            :             {
    3231                 :         12 :               GElf_Verdef defmem;
    3232                 :         12 :               GElf_Verdef *def;
    3233                 :            : 
    3234                 :            :               /* Get the data at the next offset.  */
    3235                 :         12 :               def = gelf_getverdef (defdata, offset, &defmem);
    3236         [ +  - ]:         12 :               if (unlikely (def == NULL))
    3237                 :            :                 break;
    3238                 :            : 
    3239                 :         12 :               nvername = MAX (nvername, (size_t) (def->vd_ndx & 0x7fff));
    3240                 :            : 
    3241         [ +  + ]:         12 :               if (def->vd_next == 0)
    3242                 :            :                 break;
    3243                 :         10 :               offset += def->vd_next;
    3244                 :            :             }
    3245                 :            :         }
    3246         [ +  - ]:         77 :       if (needscn != NULL)
    3247                 :            :         {
    3248                 :         77 :           unsigned int offset = 0;
    3249                 :         77 :           Elf_Data *needdata;
    3250                 :         77 :           GElf_Shdr needshdrmem;
    3251                 :         77 :           GElf_Shdr *needshdr;
    3252                 :            : 
    3253                 :         77 :           needdata = elf_getdata (needscn, NULL);
    3254         [ +  - ]:         77 :           if (unlikely (needdata == NULL))
    3255                 :          0 :             return;
    3256                 :            : 
    3257                 :         77 :           needshdr = gelf_getshdr (needscn, &needshdrmem);
    3258         [ +  - ]:         77 :           if (unlikely (needshdr == NULL))
    3259                 :            :             return;
    3260                 :            : 
    3261         [ +  - ]:        104 :           for (unsigned int cnt = 0; cnt < needshdr->sh_info; ++cnt)
    3262                 :            :             {
    3263                 :        104 :               GElf_Verneed needmem;
    3264                 :        104 :               GElf_Verneed *need;
    3265                 :        104 :               unsigned int auxoffset;
    3266                 :        104 :               int cnt2;
    3267                 :            : 
    3268                 :            :               /* Get the data at the next offset.  */
    3269                 :        104 :               need = gelf_getverneed (needdata, offset, &needmem);
    3270         [ +  - ]:        104 :               if (unlikely (need == NULL))
    3271                 :            :                 break;
    3272                 :            : 
    3273                 :            :               /* Run through the auxiliary entries.  */
    3274                 :        104 :               auxoffset = offset + need->vn_aux;
    3275         [ +  - ]:        187 :               for (cnt2 = need->vn_cnt; --cnt2 >= 0; )
    3276                 :            :                 {
    3277                 :        187 :                   GElf_Vernaux auxmem;
    3278                 :        187 :                   GElf_Vernaux *aux;
    3279                 :            : 
    3280                 :        187 :                   aux = gelf_getvernaux (needdata, auxoffset, &auxmem);
    3281         [ +  - ]:        187 :                   if (unlikely (aux == NULL))
    3282                 :            :                     break;
    3283                 :            : 
    3284                 :        187 :                   nvername = MAX (nvername,
    3285                 :            :                                   (size_t) (aux->vna_other & 0x7fff));
    3286                 :            : 
    3287         [ +  + ]:        187 :                   if (aux->vna_next == 0)
    3288                 :            :                     break;
    3289                 :         83 :                   auxoffset += aux->vna_next;
    3290                 :            :                 }
    3291                 :            : 
    3292         [ +  + ]:        104 :               if (need->vn_next == 0)
    3293                 :            :                 break;
    3294                 :         27 :               offset += need->vn_next;
    3295                 :            :             }
    3296                 :            :         }
    3297                 :            : 
    3298                 :            :       /* This is the number of versions we know about.  */
    3299                 :         77 :       ++nvername;
    3300                 :            : 
    3301                 :            :       /* Allocate the array.  */
    3302                 :         77 :       vername = (const char **) alloca (nvername * sizeof (const char *));
    3303         [ +  + ]:         77 :       memset(vername, 0, nvername * sizeof (const char *));
    3304                 :         77 :       filename = (const char **) alloca (nvername * sizeof (const char *));
    3305                 :         77 :       memset(filename, 0, nvername * sizeof (const char *));
    3306                 :            : 
    3307                 :            :       /* Run through the data structures again and collect the strings.  */
    3308         [ +  + ]:         77 :       if (defscn != NULL)
    3309                 :            :         {
    3310                 :            :           /* Run through the version definitions and find the highest
    3311                 :            :              index.  */
    3312                 :          2 :           unsigned int offset = 0;
    3313                 :          2 :           Elf_Data *defdata;
    3314                 :          2 :           GElf_Shdr defshdrmem;
    3315                 :          2 :           GElf_Shdr *defshdr;
    3316                 :            : 
    3317                 :          2 :           defdata = elf_getdata (defscn, NULL);
    3318         [ +  - ]:          2 :           if (unlikely (defdata == NULL))
    3319                 :          0 :             return;
    3320                 :            : 
    3321                 :          2 :           defshdr = gelf_getshdr (defscn, &defshdrmem);
    3322         [ +  - ]:          2 :           if (unlikely (defshdr == NULL))
    3323                 :            :             return;
    3324                 :            : 
    3325         [ +  - ]:         12 :           for (unsigned int cnt = 0; cnt < defshdr->sh_info; ++cnt)
    3326                 :            :             {
    3327                 :            : 
    3328                 :            :               /* Get the data at the next offset.  */
    3329                 :         12 :               GElf_Verdef defmem;
    3330                 :         12 :               GElf_Verdef *def = gelf_getverdef (defdata, offset, &defmem);
    3331         [ +  - ]:         12 :               if (unlikely (def == NULL))
    3332                 :            :                 break;
    3333                 :            : 
    3334                 :         12 :               GElf_Verdaux auxmem;
    3335                 :         24 :               GElf_Verdaux *aux = gelf_getverdaux (defdata,
    3336                 :         12 :                                                    offset + def->vd_aux,
    3337                 :            :                                                    &auxmem);
    3338         [ +  - ]:         12 :               if (unlikely (aux == NULL))
    3339                 :            :                 break;
    3340                 :            : 
    3341                 :         12 :               vername[def->vd_ndx & 0x7fff]
    3342                 :         12 :                 = elf_strptr (ebl->elf, defshdr->sh_link, aux->vda_name);
    3343                 :         12 :               filename[def->vd_ndx & 0x7fff] = NULL;
    3344                 :            : 
    3345         [ +  + ]:         12 :               if (def->vd_next == 0)
    3346                 :            :                 break;
    3347                 :         10 :               offset += def->vd_next;
    3348                 :            :             }
    3349                 :            :         }
    3350         [ +  - ]:         77 :       if (needscn != NULL)
    3351                 :            :         {
    3352                 :         77 :           unsigned int offset = 0;
    3353                 :            : 
    3354                 :         77 :           Elf_Data *needdata = elf_getdata (needscn, NULL);
    3355                 :         77 :           GElf_Shdr needshdrmem;
    3356                 :         77 :           GElf_Shdr *needshdr = gelf_getshdr (needscn, &needshdrmem);
    3357         [ -  + ]:         77 :           if (unlikely (needdata == NULL || needshdr == NULL))
    3358                 :          0 :             return;
    3359                 :            : 
    3360         [ +  - ]:        104 :           for (unsigned int cnt = 0; cnt < needshdr->sh_info; ++cnt)
    3361                 :            :             {
    3362                 :            :               /* Get the data at the next offset.  */
    3363                 :        104 :               GElf_Verneed needmem;
    3364                 :        104 :               GElf_Verneed *need = gelf_getverneed (needdata, offset,
    3365                 :            :                                                     &needmem);
    3366         [ +  - ]:        104 :               if (unlikely (need == NULL))
    3367                 :            :                 break;
    3368                 :            : 
    3369                 :            :               /* Run through the auxiliary entries.  */
    3370                 :        104 :               unsigned int auxoffset = offset + need->vn_aux;
    3371         [ +  - ]:        187 :               for (int cnt2 = need->vn_cnt; --cnt2 >= 0; )
    3372                 :            :                 {
    3373                 :        187 :                   GElf_Vernaux auxmem;
    3374                 :        187 :                   GElf_Vernaux *aux = gelf_getvernaux (needdata, auxoffset,
    3375                 :            :                                                        &auxmem);
    3376         [ +  - ]:        187 :                   if (unlikely (aux == NULL))
    3377                 :            :                     break;
    3378                 :            : 
    3379                 :        187 :                   vername[aux->vna_other & 0x7fff]
    3380                 :        187 :                     = elf_strptr (ebl->elf, needshdr->sh_link, aux->vna_name);
    3381                 :        187 :                   filename[aux->vna_other & 0x7fff]
    3382                 :        187 :                     = elf_strptr (ebl->elf, needshdr->sh_link, need->vn_file);
    3383                 :            : 
    3384         [ +  + ]:        187 :                   if (aux->vna_next == 0)
    3385                 :            :                     break;
    3386                 :         83 :                   auxoffset += aux->vna_next;
    3387                 :            :                 }
    3388                 :            : 
    3389         [ +  + ]:        104 :               if (need->vn_next == 0)
    3390                 :            :                 break;
    3391                 :         27 :               offset += need->vn_next;
    3392                 :            :             }
    3393                 :            :         }
    3394                 :            :     }
    3395                 :            :   else
    3396                 :            :     {
    3397                 :            :       vername = NULL;
    3398                 :            :       nvername = 1;
    3399                 :            :       filename = NULL;
    3400                 :            :     }
    3401                 :            : 
    3402                 :         77 :   GElf_Shdr glink_mem;
    3403                 :         77 :   GElf_Shdr *glink = gelf_getshdr (elf_getscn (ebl->elf, shdr->sh_link),
    3404                 :            :                                    &glink_mem);
    3405                 :         77 :   size_t sh_entsize = gelf_fsize (ebl->elf, ELF_T_HALF, 1, EV_CURRENT);
    3406         [ -  + ]:         77 :   if (glink == NULL)
    3407                 :          0 :     error_exit (0, _("invalid sh_link value in section %zu"),
    3408                 :            :                 elf_ndxscn (scn));
    3409                 :            : 
    3410                 :            :   /* Print the header.  */
    3411                 :         77 :   printf (ngettext ("\
    3412                 :            : \nVersion symbols section [%2u] '%s' contains %d entry:\n Addr: %#0*" PRIx64 "  Offset: %#08" PRIx64 "  Link to section: [%2u] '%s'",
    3413                 :            :                     "\
    3414                 :            : \nVersion symbols section [%2u] '%s' contains %d entries:\n Addr: %#0*" PRIx64 "  Offset: %#08" PRIx64 "  Link to section: [%2u] '%s'",
    3415                 :            :                     shdr->sh_size / sh_entsize),
    3416                 :         77 :           (unsigned int) elf_ndxscn (scn),
    3417                 :         77 :           elf_strptr (ebl->elf, shstrndx, shdr->sh_name),
    3418                 :         77 :           (int) (shdr->sh_size / sh_entsize),
    3419                 :            :           class == ELFCLASS32 ? 10 : 18, shdr->sh_addr,
    3420                 :            :           shdr->sh_offset,
    3421         [ +  + ]:         77 :           (unsigned int) shdr->sh_link,
    3422                 :         77 :           elf_strptr (ebl->elf, shstrndx, glink->sh_name));
    3423                 :            : 
    3424                 :            :   /* Now we can finally look at the actual contents of this section.  */
    3425         [ +  + ]:       1687 :   for (unsigned int cnt = 0; cnt < shdr->sh_size / sh_entsize; ++cnt)
    3426                 :            :     {
    3427         [ +  + ]:       1610 :       if (cnt % 2 == 0)
    3428                 :        815 :         printf ("\n %4d:", cnt);
    3429                 :            : 
    3430                 :       1610 :       GElf_Versym symmem;
    3431                 :       1610 :       GElf_Versym *sym = gelf_getversym (data, cnt, &symmem);
    3432         [ +  - ]:       1610 :       if (sym == NULL)
    3433                 :            :         break;
    3434                 :            : 
    3435      [ +  +  + ]:       1610 :       switch (*sym)
    3436                 :            :         {
    3437                 :        143 :           ssize_t n;
    3438                 :        143 :         case 0:
    3439                 :        143 :           fputs_unlocked (_("   0 *local*                     "),
    3440                 :            :                           stdout);
    3441                 :        143 :           break;
    3442                 :            : 
    3443                 :        253 :         case 1:
    3444                 :        253 :           fputs_unlocked (_("   1 *global*                    "),
    3445                 :            :                           stdout);
    3446                 :        253 :           break;
    3447                 :            : 
    3448                 :       1214 :         default:
    3449         [ +  - ]:       2428 :           n = printf ("%4d%c%s",
    3450         [ +  - ]:       1214 :                       *sym & 0x7fff, *sym & 0x8000 ? 'h' : ' ',
    3451                 :            :                       (vername != NULL
    3452         [ +  - ]:       1214 :                        && (unsigned int) (*sym & 0x7fff) < nvername)
    3453                 :       1214 :                       ? vername[*sym & 0x7fff] : "???");
    3454         [ +  - ]:       1214 :           if ((unsigned int) (*sym & 0x7fff) < nvername
    3455   [ +  -  +  + ]:       1214 :               && filename != NULL && filename[*sym & 0x7fff] != NULL)
    3456                 :       1062 :             n += printf ("(%s)", filename[*sym & 0x7fff]);
    3457                 :       1610 :           printf ("%*s", MAX (0, 33 - (int) n), " ");
    3458                 :            :           break;
    3459                 :            :         }
    3460                 :            :     }
    3461         [ -  + ]:        154 :   putchar_unlocked ('\n');
    3462                 :            : }
    3463                 :            : 
    3464                 :            : 
    3465                 :            : static void
    3466                 :         77 : print_hash_info (Ebl *ebl, Elf_Scn *scn, GElf_Shdr *shdr, size_t shstrndx,
    3467                 :            :                  uint_fast32_t maxlength, Elf32_Word nbucket,
    3468                 :            :                  uint_fast32_t nsyms, uint32_t *lengths, const char *extrastr)
    3469                 :            : {
    3470                 :         77 :   uint32_t *counts = xcalloc (maxlength + 1, sizeof (uint32_t));
    3471                 :            : 
    3472         [ +  + ]:        301 :   for (Elf32_Word cnt = 0; cnt < nbucket; ++cnt)
    3473                 :        224 :     ++counts[lengths[cnt]];
    3474                 :            : 
    3475                 :         77 :   GElf_Shdr glink_mem;
    3476                 :         77 :   GElf_Shdr *glink = gelf_getshdr (elf_getscn (ebl->elf,
    3477                 :         77 :                                                shdr->sh_link),
    3478                 :            :                                    &glink_mem);
    3479         [ -  + ]:         77 :   if (glink == NULL)
    3480                 :            :     {
    3481                 :          0 :       error (0, 0, _("invalid sh_link value in section %zu"),
    3482                 :            :              elf_ndxscn (scn));
    3483                 :          0 :       return;
    3484                 :            :     }
    3485                 :            : 
    3486         [ +  + ]:        154 :   printf (ngettext ("\
    3487                 :            : \nHistogram for bucket list length in section [%2u] '%s' (total of %d bucket):\n Addr: %#0*" PRIx64 "  Offset: %#08" PRIx64 "  Link to section: [%2u] '%s'\n",
    3488                 :            :                     "\
    3489                 :            : \nHistogram for bucket list length in section [%2u] '%s' (total of %d buckets):\n Addr: %#0*" PRIx64 "  Offset: %#08" PRIx64 "  Link to section: [%2u] '%s'\n",
    3490                 :            :                     nbucket),
    3491                 :         77 :           (unsigned int) elf_ndxscn (scn),
    3492                 :         77 :           elf_strptr (ebl->elf, shstrndx, shdr->sh_name),
    3493                 :            :           (int) nbucket,
    3494                 :         77 :           gelf_getclass (ebl->elf) == ELFCLASS32 ? 10 : 18,
    3495                 :            :           shdr->sh_addr,
    3496                 :            :           shdr->sh_offset,
    3497                 :         77 :           (unsigned int) shdr->sh_link,
    3498                 :         77 :           elf_strptr (ebl->elf, shstrndx, glink->sh_name));
    3499                 :            : 
    3500         [ +  - ]:         77 :   if (extrastr != NULL)
    3501                 :         77 :     fputs (extrastr, stdout);
    3502                 :            : 
    3503         [ +  - ]:         77 :   if (likely (nbucket > 0))
    3504                 :            :     {
    3505                 :         77 :       uint64_t success = 0;
    3506                 :            : 
    3507                 :            :       /* xgettext:no-c-format */
    3508                 :         77 :       fputs_unlocked (_("\
    3509                 :            :  Length  Number  % of total  Coverage\n"), stdout);
    3510                 :         77 :       printf (_("      0  %6" PRIu32 "      %5.1f%%\n"),
    3511                 :         77 :               counts[0], (counts[0] * 100.0) / nbucket);
    3512                 :            : 
    3513                 :         77 :       uint64_t nzero_counts = 0;
    3514         [ +  + ]:        128 :       for (Elf32_Word cnt = 1; cnt <= maxlength; ++cnt)
    3515                 :            :         {
    3516                 :         51 :           nzero_counts += counts[cnt] * cnt;
    3517                 :         51 :           printf (_("\
    3518                 :            : %7d  %6" PRIu32 "      %5.1f%%    %5.1f%%\n"),
    3519                 :         51 :                   (int) cnt, counts[cnt], (counts[cnt] * 100.0) / nbucket,
    3520                 :         51 :                   (nzero_counts * 100.0) / nsyms);
    3521                 :            :         }
    3522                 :            : 
    3523                 :            :       Elf32_Word acc = 0;
    3524         [ +  + ]:        128 :       for (Elf32_Word cnt = 1; cnt <= maxlength; ++cnt)
    3525                 :            :         {
    3526                 :         51 :           acc += cnt;
    3527                 :         51 :           success += counts[cnt] * acc;
    3528                 :            :         }
    3529                 :            : 
    3530                 :        154 :       printf (_("\
    3531                 :            :  Average number of tests:   successful lookup: %f\n\
    3532                 :            :                           unsuccessful lookup: %f\n"),
    3533                 :         77 :               (double) success / (double) nzero_counts,
    3534                 :         77 :               (double) nzero_counts / (double) nbucket);
    3535                 :            :     }
    3536                 :            : 
    3537                 :         77 :   free (counts);
    3538                 :            : }
    3539                 :            : 
    3540                 :            : 
    3541                 :            : /* This function handles the traditional System V-style hash table format.  */
    3542                 :            : static void
    3543                 :          0 : handle_sysv_hash (Ebl *ebl, Elf_Scn *scn, GElf_Shdr *shdr, size_t shstrndx)
    3544                 :            : {
    3545                 :          0 :   Elf_Data *data = elf_getdata (scn, NULL);
    3546         [ #  # ]:          0 :   if (unlikely (data == NULL))
    3547                 :            :     {
    3548                 :          0 :       error (0, 0, _("cannot get data for section %d: %s"),
    3549                 :          0 :              (int) elf_ndxscn (scn), elf_errmsg (-1));
    3550                 :          0 :       return;
    3551                 :            :     }
    3552                 :            : 
    3553         [ #  # ]:          0 :   if (unlikely (data->d_size < 2 * sizeof (Elf32_Word)))
    3554                 :            :     {
    3555                 :          0 :     invalid_data:
    3556                 :          0 :       error (0, 0, _("invalid data in sysv.hash section %d"),
    3557                 :          0 :              (int) elf_ndxscn (scn));
    3558                 :          0 :       return;
    3559                 :            :     }
    3560                 :            : 
    3561                 :          0 :   Elf32_Word nbucket = ((Elf32_Word *) data->d_buf)[0];
    3562                 :          0 :   Elf32_Word nchain = ((Elf32_Word *) data->d_buf)[1];
    3563                 :            : 
    3564                 :          0 :   uint64_t used_buf = (2ULL + nchain + nbucket) * sizeof (Elf32_Word);
    3565         [ #  # ]:          0 :   if (used_buf > data->d_size)
    3566                 :          0 :     goto invalid_data;
    3567                 :            : 
    3568                 :          0 :   Elf32_Word *bucket = &((Elf32_Word *) data->d_buf)[2];
    3569                 :          0 :   Elf32_Word *chain = &((Elf32_Word *) data->d_buf)[2 + nbucket];
    3570                 :            : 
    3571                 :          0 :   uint32_t *lengths = xcalloc (nbucket, sizeof (uint32_t));
    3572                 :            : 
    3573                 :          0 :   uint_fast32_t maxlength = 0;
    3574                 :          0 :   uint_fast32_t nsyms = 0;
    3575         [ #  # ]:          0 :   for (Elf32_Word cnt = 0; cnt < nbucket; ++cnt)
    3576                 :            :     {
    3577                 :          0 :       Elf32_Word inner = bucket[cnt];
    3578                 :          0 :       Elf32_Word chain_len = 0;
    3579         [ #  # ]:          0 :       while (inner > 0 && inner < nchain)
    3580                 :            :         {
    3581                 :          0 :           ++nsyms;
    3582                 :          0 :           ++chain_len;
    3583         [ #  # ]:          0 :           if (chain_len > nchain)
    3584                 :            :             {
    3585                 :          0 :               error (0, 0, _("invalid chain in sysv.hash section %d"),
    3586                 :          0 :                      (int) elf_ndxscn (scn));
    3587                 :          0 :               free (lengths);
    3588                 :          0 :               return;
    3589                 :            :             }
    3590         [ #  # ]:          0 :           if (maxlength < ++lengths[cnt])
    3591                 :          0 :             ++maxlength;
    3592                 :            : 
    3593                 :          0 :           inner = chain[inner];
    3594                 :            :         }
    3595                 :            :     }
    3596                 :            : 
    3597                 :          0 :   print_hash_info (ebl, scn, shdr, shstrndx, maxlength, nbucket, nsyms,
    3598                 :            :                    lengths, NULL);
    3599                 :            : 
    3600                 :          0 :   free (lengths);
    3601                 :            : }
    3602                 :            : 
    3603                 :            : 
    3604                 :            : /* This function handles the incorrect, System V-style hash table
    3605                 :            :    format some 64-bit architectures use.  */
    3606                 :            : static void
    3607                 :          0 : handle_sysv_hash64 (Ebl *ebl, Elf_Scn *scn, GElf_Shdr *shdr, size_t shstrndx)
    3608                 :            : {
    3609                 :          0 :   Elf_Data *data = elf_getdata (scn, NULL);
    3610         [ #  # ]:          0 :   if (unlikely (data == NULL))
    3611                 :            :     {
    3612                 :          0 :       error (0, 0, _("cannot get data for section %d: %s"),
    3613                 :          0 :              (int) elf_ndxscn (scn), elf_errmsg (-1));
    3614                 :          0 :       return;
    3615                 :            :     }
    3616                 :            : 
    3617         [ #  # ]:          0 :   if (unlikely (data->d_size < 2 * sizeof (Elf64_Xword)))
    3618                 :            :     {
    3619                 :          0 :     invalid_data:
    3620                 :          0 :       error (0, 0, _("invalid data in sysv.hash64 section %d"),
    3621                 :          0 :              (int) elf_ndxscn (scn));
    3622                 :          0 :       return;
    3623                 :            :     }
    3624                 :            : 
    3625                 :          0 :   Elf64_Xword nbucket = ((Elf64_Xword *) data->d_buf)[0];
    3626                 :          0 :   Elf64_Xword nchain = ((Elf64_Xword *) data->d_buf)[1];
    3627                 :            : 
    3628                 :          0 :   uint64_t maxwords = data->d_size / sizeof (Elf64_Xword);
    3629         [ #  # ]:          0 :   if (maxwords < 2
    3630         [ #  # ]:          0 :       || maxwords - 2 < nbucket
    3631         [ #  # ]:          0 :       || maxwords - 2 - nbucket < nchain)
    3632                 :          0 :     goto invalid_data;
    3633                 :            : 
    3634                 :          0 :   Elf64_Xword *bucket = &((Elf64_Xword *) data->d_buf)[2];
    3635                 :          0 :   Elf64_Xword *chain = &((Elf64_Xword *) data->d_buf)[2 + nbucket];
    3636                 :            : 
    3637                 :          0 :   uint32_t *lengths = xcalloc (nbucket, sizeof (uint32_t));
    3638                 :            : 
    3639                 :          0 :   uint_fast32_t maxlength = 0;
    3640                 :          0 :   uint_fast32_t nsyms = 0;
    3641         [ #  # ]:          0 :   for (Elf64_Xword cnt = 0; cnt < nbucket; ++cnt)
    3642                 :            :     {
    3643                 :          0 :       Elf64_Xword inner = bucket[cnt];
    3644                 :          0 :       Elf64_Xword chain_len = 0;
    3645         [ #  # ]:          0 :       while (inner > 0 && inner < nchain)
    3646                 :            :         {
    3647                 :          0 :           ++nsyms;
    3648                 :          0 :           ++chain_len;
    3649         [ #  # ]:          0 :           if (chain_len > nchain)
    3650                 :            :             {
    3651                 :          0 :               error (0, 0, _("invalid chain in sysv.hash64 section %d"),
    3652                 :          0 :                      (int) elf_ndxscn (scn));
    3653                 :          0 :               free (lengths);
    3654                 :          0 :               return;
    3655                 :            :             }
    3656         [ #  # ]:          0 :           if (maxlength < ++lengths[cnt])
    3657                 :          0 :             ++maxlength;
    3658                 :            : 
    3659                 :          0 :           inner = chain[inner];
    3660                 :            :         }
    3661                 :            :     }
    3662                 :            : 
    3663                 :          0 :   print_hash_info (ebl, scn, shdr, shstrndx, maxlength, nbucket, nsyms,
    3664                 :            :                    lengths, NULL);
    3665                 :            : 
    3666                 :          0 :   free (lengths);
    3667                 :            : }
    3668                 :            : 
    3669                 :            : 
    3670                 :            : /* This function handles the GNU-style hash table format.  */
    3671                 :            : static void
    3672                 :         77 : handle_gnu_hash (Ebl *ebl, Elf_Scn *scn, GElf_Shdr *shdr, size_t shstrndx)
    3673                 :            : {
    3674                 :         77 :   uint32_t *lengths = NULL;
    3675                 :         77 :   Elf_Data *data = elf_getdata (scn, NULL);
    3676         [ -  + ]:         77 :   if (unlikely (data == NULL))
    3677                 :            :     {
    3678                 :          0 :       error (0, 0, _("cannot get data for section %d: %s"),
    3679                 :          0 :              (int) elf_ndxscn (scn), elf_errmsg (-1));
    3680                 :          0 :       return;
    3681                 :            :     }
    3682                 :            : 
    3683         [ -  + ]:         77 :   if (unlikely (data->d_size < 4 * sizeof (Elf32_Word)))
    3684                 :            :     {
    3685                 :          0 :     invalid_data:
    3686                 :          0 :       free (lengths);
    3687                 :          0 :       error (0, 0, _("invalid data in gnu.hash section %d"),
    3688                 :          0 :              (int) elf_ndxscn (scn));
    3689                 :          0 :       return;
    3690                 :            :     }
    3691                 :            : 
    3692                 :         77 :   Elf32_Word nbucket = ((Elf32_Word *) data->d_buf)[0];
    3693                 :         77 :   Elf32_Word symbias = ((Elf32_Word *) data->d_buf)[1];
    3694                 :            : 
    3695                 :            :   /* Next comes the size of the bitmap.  It's measured in words for
    3696                 :            :      the architecture.  It's 32 bits for 32 bit archs, and 64 bits for
    3697                 :            :      64 bit archs.  There is always a bloom filter present, so zero is
    3698                 :            :      an invalid value.  */
    3699                 :         77 :   Elf32_Word bitmask_words = ((Elf32_Word *) data->d_buf)[2];
    3700         [ +  + ]:         77 :   if (gelf_getclass (ebl->elf) == ELFCLASS64)
    3701                 :         67 :     bitmask_words *= 2;
    3702                 :            : 
    3703         [ -  + ]:         77 :   if (bitmask_words == 0)
    3704                 :          0 :     goto invalid_data;
    3705                 :            : 
    3706                 :         77 :   Elf32_Word shift = ((Elf32_Word *) data->d_buf)[3];
    3707                 :            : 
    3708                 :            :   /* Is there still room for the sym chain?
    3709                 :            :      Use uint64_t calculation to prevent 32bit overflow.  */
    3710                 :         77 :   uint64_t used_buf = (4ULL + bitmask_words + nbucket) * sizeof (Elf32_Word);
    3711                 :         77 :   uint32_t max_nsyms = (data->d_size - used_buf) / sizeof (Elf32_Word);
    3712         [ -  + ]:         77 :   if (used_buf > data->d_size)
    3713                 :          0 :     goto invalid_data;
    3714                 :            : 
    3715                 :         77 :   lengths = xcalloc (nbucket, sizeof (uint32_t));
    3716                 :            : 
    3717                 :         77 :   Elf32_Word *bitmask = &((Elf32_Word *) data->d_buf)[4];
    3718                 :         77 :   Elf32_Word *bucket = &((Elf32_Word *) data->d_buf)[4 + bitmask_words];
    3719                 :         77 :   Elf32_Word *chain = &((Elf32_Word *) data->d_buf)[4 + bitmask_words
    3720                 :         77 :                                                     + nbucket];
    3721                 :            : 
    3722                 :            :   /* Compute distribution of chain lengths.  */
    3723                 :         77 :   uint_fast32_t maxlength = 0;
    3724                 :         77 :   uint_fast32_t nsyms = 0;
    3725         [ +  + ]:        301 :   for (Elf32_Word cnt = 0; cnt < nbucket; ++cnt)
    3726         [ +  + ]:        224 :     if (bucket[cnt] != 0)
    3727                 :            :       {
    3728                 :        118 :         Elf32_Word inner = bucket[cnt] - symbias;
    3729                 :        209 :         do
    3730                 :            :           {
    3731                 :        209 :             ++nsyms;
    3732         [ +  + ]:        209 :             if (maxlength < ++lengths[cnt])
    3733                 :         51 :               ++maxlength;
    3734         [ -  + ]:        209 :             if (inner >= max_nsyms)
    3735                 :          0 :               goto invalid_data;
    3736                 :            :           }
    3737         [ +  + ]:        209 :         while ((chain[inner++] & 1) == 0);
    3738                 :            :       }
    3739                 :            : 
    3740                 :            :   /* Count bits in bitmask.  */
    3741                 :            :   uint_fast32_t nbits = 0;
    3742         [ +  + ]:        257 :   for (Elf32_Word cnt = 0; cnt < bitmask_words; ++cnt)
    3743                 :            :     {
    3744                 :        180 :       uint_fast32_t word = bitmask[cnt];
    3745                 :            : 
    3746                 :        180 :       word = (word & 0x55555555) + ((word >> 1) & 0x55555555);
    3747                 :        180 :       word = (word & 0x33333333) + ((word >> 2) & 0x33333333);
    3748                 :        180 :       word = (word & 0x0f0f0f0f) + ((word >> 4) & 0x0f0f0f0f);
    3749                 :        180 :       word = (word & 0x00ff00ff) + ((word >> 8) & 0x00ff00ff);
    3750                 :        180 :       nbits += (word & 0x0000ffff) + ((word >> 16) & 0x0000ffff);
    3751                 :            :     }
    3752                 :            : 
    3753                 :        154 :   char *str = xasprintf (_("\
    3754                 :            :  Symbol Bias: %u\n\
    3755                 :            :  Bitmask Size: %zu bytes  %" PRIuFAST32 "%% bits set  2nd hash shift: %u\n"),
    3756                 :            :                          (unsigned int) symbias,
    3757                 :            :                          bitmask_words * sizeof (Elf32_Word),
    3758                 :         77 :                          ((nbits * 100 + 50)
    3759                 :         77 :                           / (uint_fast32_t) (bitmask_words
    3760                 :            :                                               * sizeof (Elf32_Word) * 8)),
    3761                 :            :                           (unsigned int) shift);
    3762                 :            : 
    3763                 :         77 :   print_hash_info (ebl, scn, shdr, shstrndx, maxlength, nbucket, nsyms,
    3764                 :            :                    lengths, str);
    3765                 :            : 
    3766                 :         77 :   free (str);
    3767                 :         77 :   free (lengths);
    3768                 :            : }
    3769                 :            : 
    3770                 :            : 
    3771                 :            : /* Find the symbol table(s).  For this we have to search through the
    3772                 :            :    section table.  */
    3773                 :            : static void
    3774                 :        110 : handle_hash (Ebl *ebl)
    3775                 :            : {
    3776                 :            :   /* Get the section header string table index.  */
    3777                 :        110 :   size_t shstrndx;
    3778         [ -  + ]:        110 :   if (unlikely (elf_getshdrstrndx (ebl->elf, &shstrndx) < 0))
    3779                 :          0 :     error_exit (0, _("cannot get section header string table index"));
    3780                 :            : 
    3781                 :            :   Elf_Scn *scn = NULL;
    3782         [ +  + ]:       3572 :   while ((scn = elf_nextscn (ebl->elf, scn)) != NULL)
    3783                 :            :     {
    3784                 :            :       /* Handle the section if it is a symbol table.  */
    3785                 :       3462 :       GElf_Shdr shdr_mem;
    3786                 :       3462 :       GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
    3787                 :            : 
    3788         [ +  - ]:       3462 :       if (likely (shdr != NULL))
    3789                 :            :         {
    3790         [ +  + ]:       3462 :           if ((shdr->sh_type == SHT_HASH || shdr->sh_type == SHT_GNU_HASH)
    3791         [ -  + ]:         77 :               && (shdr->sh_flags & SHF_COMPRESSED) != 0)
    3792                 :            :             {
    3793         [ #  # ]:          0 :               if (elf_compress (scn, 0, 0) < 0)
    3794                 :          0 :                 printf ("WARNING: %s [%zd]\n",
    3795                 :            :                         _("Couldn't uncompress section"),
    3796                 :            :                         elf_ndxscn (scn));
    3797                 :          0 :               shdr = gelf_getshdr (scn, &shdr_mem);
    3798         [ #  # ]:          0 :               if (unlikely (shdr == NULL))
    3799                 :          0 :                 error_exit (0, _("cannot get section [%zd] header: %s"),
    3800                 :            :                             elf_ndxscn (scn), elf_errmsg (-1));
    3801                 :            :             }
    3802                 :            : 
    3803         [ -  + ]:       3462 :           if (shdr->sh_type == SHT_HASH)
    3804                 :            :             {
    3805         [ #  # ]:          0 :               if (ebl_sysvhash_entrysize (ebl) == sizeof (Elf64_Xword))
    3806                 :          0 :                 handle_sysv_hash64 (ebl, scn, shdr, shstrndx);
    3807                 :            :               else
    3808                 :          0 :                 handle_sysv_hash (ebl, scn, shdr, shstrndx);
    3809                 :            :             }
    3810         [ +  + ]:       3462 :           else if (shdr->sh_type == SHT_GNU_HASH)
    3811                 :         77 :             handle_gnu_hash (ebl, scn, shdr, shstrndx);
    3812                 :            :         }
    3813                 :            :     }
    3814                 :        110 : }
    3815                 :            : 
    3816                 :            : 
    3817                 :            : static void
    3818                 :        114 : print_liblist (Ebl *ebl)
    3819                 :            : {
    3820                 :            :   /* Find the library list sections.  For this we have to search
    3821                 :            :      through the section table.  */
    3822                 :        114 :   Elf_Scn *scn = NULL;
    3823                 :            : 
    3824                 :            :   /* Get the section header string table index.  */
    3825                 :        114 :   size_t shstrndx;
    3826         [ -  + ]:        114 :   if (unlikely (elf_getshdrstrndx (ebl->elf, &shstrndx) < 0))
    3827                 :          0 :     error_exit (0, _("cannot get section header string table index"));
    3828                 :            : 
    3829         [ +  + ]:       3635 :   while ((scn = elf_nextscn (ebl->elf, scn)) != NULL)
    3830                 :            :     {
    3831                 :       3521 :       GElf_Shdr shdr_mem;
    3832                 :       3521 :       GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
    3833                 :            : 
    3834   [ +  -  -  + ]:       3521 :       if (shdr != NULL && shdr->sh_type == SHT_GNU_LIBLIST)
    3835                 :            :         {
    3836                 :          0 :           size_t sh_entsize = gelf_fsize (ebl->elf, ELF_T_LIB, 1, EV_CURRENT);
    3837                 :          0 :           int nentries = shdr->sh_size / sh_entsize;
    3838                 :          0 :           printf (ngettext ("\
    3839                 :            : \nLibrary list section [%2zu] '%s' at offset %#0" PRIx64 " contains %d entry:\n",
    3840                 :            :                             "\
    3841                 :            : \nLibrary list section [%2zu] '%s' at offset %#0" PRIx64 " contains %d entries:\n",
    3842                 :            :                             nentries),
    3843                 :            :                   elf_ndxscn (scn),
    3844                 :          0 :                   elf_strptr (ebl->elf, shstrndx, shdr->sh_name),
    3845                 :            :                   shdr->sh_offset,
    3846                 :            :                   nentries);
    3847                 :            : 
    3848                 :          0 :           Elf_Data *data = elf_getdata (scn, NULL);
    3849         [ #  # ]:          0 :           if (data == NULL)
    3850                 :          0 :             return;
    3851                 :            : 
    3852                 :          0 :           puts (_("\
    3853                 :            :        Library                       Time Stamp          Checksum Version Flags"));
    3854                 :            : 
    3855         [ #  # ]:          0 :           for (int cnt = 0; cnt < nentries; ++cnt)
    3856                 :            :             {
    3857                 :          0 :               GElf_Lib lib_mem;
    3858                 :          0 :               GElf_Lib *lib = gelf_getlib (data, cnt, &lib_mem);
    3859         [ #  # ]:          0 :               if (unlikely (lib == NULL))
    3860                 :          0 :                 continue;
    3861                 :            : 
    3862                 :          0 :               time_t t = (time_t) lib->l_time_stamp;
    3863                 :          0 :               struct tm *tm = gmtime (&t);
    3864         [ #  # ]:          0 :               if (unlikely (tm == NULL))
    3865                 :          0 :                 continue;
    3866                 :            : 
    3867                 :          0 :               printf ("  [%2d] %-29s %04u-%02u-%02uT%02u:%02u:%02u %08x %-7u %u\n",
    3868                 :          0 :                       cnt, elf_strptr (ebl->elf, shdr->sh_link, lib->l_name),
    3869                 :          0 :                       tm->tm_year + 1900, tm->tm_mon + 1, tm->tm_mday,
    3870                 :            :                       tm->tm_hour, tm->tm_min, tm->tm_sec,
    3871                 :          0 :                       (unsigned int) lib->l_checksum,
    3872                 :          0 :                       (unsigned int) lib->l_version,
    3873                 :          0 :                       (unsigned int) lib->l_flags);
    3874                 :            :             }
    3875                 :            :         }
    3876                 :            :     }
    3877                 :            : }
    3878                 :            : 
    3879                 :            : static inline size_t
    3880                 :          8 : left (Elf_Data *data,
    3881                 :            :       const unsigned char *p)
    3882                 :            : {
    3883                 :          8 :   return (const unsigned char *) data->d_buf + data->d_size - p;
    3884                 :            : }
    3885                 :            : 
    3886                 :            : static void
    3887                 :        114 : print_attributes (Ebl *ebl, const GElf_Ehdr *ehdr)
    3888                 :            : {
    3889                 :            :   /* Find the object attributes sections.  For this we have to search
    3890                 :            :      through the section table.  */
    3891                 :        114 :   Elf_Scn *scn = NULL;
    3892                 :            : 
    3893                 :            :   /* Get the section header string table index.  */
    3894                 :        114 :   size_t shstrndx;
    3895         [ -  + ]:        114 :   if (unlikely (elf_getshdrstrndx (ebl->elf, &shstrndx) < 0))
    3896                 :          0 :     error_exit (0, _("cannot get section header string table index"));
    3897                 :            : 
    3898         [ +  + ]:       3635 :   while ((scn = elf_nextscn (ebl->elf, scn)) != NULL)
    3899                 :            :     {
    3900                 :       3521 :       GElf_Shdr shdr_mem;
    3901                 :       3521 :       GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
    3902                 :            : 
    3903   [ +  -  +  + ]:       3521 :       if (shdr == NULL || (shdr->sh_type != SHT_GNU_ATTRIBUTES
    3904         [ +  + ]:       3518 :                            && (shdr->sh_type != SHT_ARM_ATTRIBUTES
    3905         [ -  + ]:          1 :                                || ehdr->e_machine != EM_ARM)
    3906         [ +  + ]:       3517 :                            && (shdr->sh_type != SHT_CSKY_ATTRIBUTES
    3907         [ +  - ]:          1 :                                || ehdr->e_machine != EM_CSKY)
    3908         [ -  + ]:       3517 :                            && (shdr->sh_type != SHT_RISCV_ATTRIBUTES
    3909         [ #  # ]:          0 :                                || ehdr->e_machine != EM_RISCV)))
    3910                 :       3517 :         continue;
    3911                 :            : 
    3912                 :          4 :       printf (_("\
    3913                 :            : \nObject attributes section [%2zu] '%s' of %" PRIu64
    3914                 :            :                        " bytes at offset %#0" PRIx64 ":\n"),
    3915                 :            :               elf_ndxscn (scn),
    3916                 :          4 :               elf_strptr (ebl->elf, shstrndx, shdr->sh_name),
    3917                 :            :               shdr->sh_size, shdr->sh_offset);
    3918                 :            : 
    3919                 :          4 :       Elf_Data *data = elf_rawdata (scn, NULL);
    3920   [ +  -  +  - ]:          4 :       if (unlikely (data == NULL || data->d_size == 0))
    3921                 :          0 :         return;
    3922                 :            : 
    3923                 :          4 :       const unsigned char *p = data->d_buf;
    3924                 :            : 
    3925                 :            :       /* There is only one 'version', A.  */
    3926         [ +  - ]:          4 :       if (unlikely (*p++ != 'A'))
    3927                 :            :         return;
    3928                 :            : 
    3929                 :          4 :       fputs_unlocked (_("  Owner          Size\n"), stdout);
    3930                 :            : 
    3931                 :            :       /* Loop over the sections.  */
    3932         [ +  + ]:          8 :       while (left (data, p) >= 4)
    3933                 :            :         {
    3934                 :            :           /* Section length.  */
    3935                 :          4 :           uint32_t len;
    3936         [ +  + ]:          4 :           memcpy (&len, p, sizeof len);
    3937                 :            : 
    3938         [ +  + ]:          4 :           if (MY_ELFDATA != ehdr->e_ident[EI_DATA])
    3939                 :          2 :             CONVERT (len);
    3940                 :            : 
    3941         [ +  - ]:          4 :           if (unlikely (len > left (data, p)))
    3942                 :            :             break;
    3943                 :            : 
    3944                 :            :           /* Section vendor name.  */
    3945                 :          4 :           const unsigned char *name = p + sizeof len;
    3946                 :          4 :           p += len;
    3947                 :            : 
    3948                 :          4 :           unsigned const char *q = memchr (name, '\0', len);
    3949         [ +  - ]:          4 :           if (unlikely (q == NULL))
    3950                 :            :             break;
    3951                 :          4 :           ++q;
    3952                 :            : 
    3953                 :          4 :           printf (_("  %-13s  %4" PRIu32 "\n"), name, len);
    3954                 :            : 
    3955                 :          8 :           bool gnu_vendor = (q - name == sizeof "gnu"
    3956   [ +  +  -  + ]:          4 :                              && !memcmp (name, "gnu", sizeof "gnu"));
    3957                 :            : 
    3958                 :            :           /* Loop over subsections.  */
    3959         [ +  + ]:          4 :           if (shdr->sh_type != SHT_GNU_ATTRIBUTES
    3960         [ +  - ]:          3 :               || gnu_vendor)
    3961         [ +  + ]:          8 :             while (q < p)
    3962                 :            :               {
    3963                 :          4 :                 const unsigned char *const sub = q;
    3964                 :            : 
    3965                 :          4 :                 unsigned int subsection_tag;
    3966                 :          4 :                 get_uleb128 (subsection_tag, q, p);
    3967         [ +  - ]:          4 :                 if (unlikely (q >= p))
    3968                 :            :                   break;
    3969                 :            : 
    3970                 :          4 :                 uint32_t subsection_len;
    3971         [ +  - ]:          4 :                 if (unlikely (p - sub < (ptrdiff_t) sizeof subsection_len))
    3972                 :            :                   break;
    3973                 :            : 
    3974         [ +  + ]:          4 :                 memcpy (&subsection_len, q, sizeof subsection_len);
    3975                 :            : 
    3976         [ +  + ]:          4 :                 if (MY_ELFDATA != ehdr->e_ident[EI_DATA])
    3977                 :          2 :                   CONVERT (subsection_len);
    3978                 :            : 
    3979                 :            :                 /* Don't overflow, ptrdiff_t might be 32bits, but signed.  */
    3980   [ +  -  +  - ]:          4 :                 if (unlikely (subsection_len == 0
    3981                 :            :                               || subsection_len >= (uint32_t) PTRDIFF_MAX
    3982                 :            :                               || p - sub < (ptrdiff_t) subsection_len))
    3983                 :            :                   break;
    3984                 :            : 
    3985                 :          4 :                 const unsigned char *r = q + sizeof subsection_len;
    3986                 :          4 :                 q = sub + subsection_len;
    3987                 :            : 
    3988         [ -  + ]:          4 :                 switch (subsection_tag)
    3989                 :            :                   {
    3990                 :          0 :                   default:
    3991                 :            :                     /* Unknown subsection, print and skip.  */
    3992                 :          4 :                     printf (_("    %-4u %12" PRIu32 "\n"),
    3993                 :            :                             subsection_tag, subsection_len);
    3994                 :            :                     break;
    3995                 :            : 
    3996                 :          4 :                   case 1:       /* Tag_File */
    3997                 :          4 :                     printf (_("    File: %11" PRIu32 "\n"),
    3998                 :            :                             subsection_len);
    3999                 :            : 
    4000         [ +  + ]:         26 :                     while (r < q)
    4001                 :            :                       {
    4002                 :         22 :                         unsigned int tag;
    4003                 :         22 :                         get_uleb128 (tag, r, q);
    4004         [ +  - ]:         22 :                         if (unlikely (r >= q))
    4005                 :            :                           break;
    4006                 :            : 
    4007                 :            :                         /* GNU style tags have either a uleb128 value,
    4008                 :            :                            when lowest bit is not set, or a string
    4009                 :            :                            when the lowest bit is set.
    4010                 :            :                            "compatibility" (32) is special.  It has
    4011                 :            :                            both a string and a uleb128 value.  For
    4012                 :            :                            non-gnu we assume 6 till 31 only take ints.
    4013                 :            :                            XXX see arm backend, do we need a separate
    4014                 :            :                            hook?  */
    4015                 :         22 :                         uint64_t value = 0;
    4016                 :         22 :                         const char *string = NULL;
    4017   [ +  -  +  + ]:         22 :                         if (tag == 32 || (tag & 1) == 0
    4018   [ +  -  +  + ]:          8 :                             || (! gnu_vendor && (tag > 5 && tag < 32)))
    4019                 :            :                           {
    4020                 :            :                             // Note r >= q check above.
    4021                 :         21 :                             get_uleb128 (value, r, q);
    4022         [ +  - ]:         21 :                             if (r > q)
    4023                 :            :                               break;
    4024                 :            :                           }
    4025         [ +  - ]:         22 :                         if (tag == 32
    4026         [ +  + ]:         22 :                             || ((tag & 1) != 0
    4027         [ +  - ]:          8 :                                 && (gnu_vendor
    4028         [ +  - ]:          8 :                                     || (! gnu_vendor && tag > 32)))
    4029   [ +  +  +  + ]:         22 :                             || (! gnu_vendor && tag > 3 && tag < 6))
    4030                 :            :                           {
    4031                 :          1 :                             string = (const char *) r;
    4032                 :          1 :                             r = memchr (r, '\0', q - r);
    4033         [ +  - ]:          1 :                             if (r == NULL)
    4034                 :            :                               break;
    4035                 :          1 :                             ++r;
    4036                 :            :                           }
    4037                 :            : 
    4038                 :         22 :                         const char *tag_name = NULL;
    4039                 :         22 :                         const char *value_name = NULL;
    4040                 :         22 :                         ebl_check_object_attribute (ebl, (const char *) name,
    4041                 :            :                                                     tag, value,
    4042                 :            :                                                     &tag_name, &value_name);
    4043                 :            : 
    4044         [ +  - ]:         22 :                         if (tag_name != NULL)
    4045                 :            :                           {
    4046         [ -  + ]:         22 :                             if (tag == 32)
    4047                 :          0 :                               printf (_("      %s: %" PRId64 ", %s\n"),
    4048                 :            :                                       tag_name, value, string);
    4049   [ +  +  +  + ]:         22 :                             else if (string == NULL && value_name == NULL)
    4050                 :          1 :                               printf (_("      %s: %" PRId64 "\n"),
    4051                 :            :                                       tag_name, value);
    4052                 :            :                             else
    4053                 :         21 :                               printf (_("      %s: %s\n"),
    4054                 :            :                                       tag_name, string ?: value_name);
    4055                 :            :                           }
    4056                 :            :                         else
    4057                 :            :                           {
    4058                 :            :                             /* For "gnu" vendor 32 "compatibility" has
    4059                 :            :                                already been handled above.  */
    4060   [ #  #  #  # ]:          0 :                             assert (tag != 32
    4061                 :            :                                     || strcmp ((const char *) name, "gnu"));
    4062         [ #  # ]:          0 :                             if (string == NULL)
    4063                 :          0 :                               printf (_("      %u: %" PRId64 "\n"),
    4064                 :            :                                       tag, value);
    4065                 :            :                             else
    4066                 :         22 :                               printf (_("      %u: %s\n"),
    4067                 :            :                                       tag, string);
    4068                 :            :                           }
    4069                 :            :                       }
    4070                 :            :                   }
    4071                 :            :               }
    4072                 :            :         }
    4073                 :            :     }
    4074                 :            : }
    4075                 :            : 
    4076                 :            : /* Returns either the (relocated) data from the Dwarf, or tries to get
    4077                 :            :    the "raw" (uncompressed) data from the Elf section. Produces a
    4078                 :            :    warning if the data cannot be found (or decompressed).  */
    4079                 :            : static Elf_Data *
    4080                 :        387 : get_debug_elf_data (Dwarf *dbg, Ebl *ebl, int idx, Elf_Scn *scn)
    4081                 :            : {
    4082                 :            :   /* We prefer to get the section data from the Dwarf because that
    4083                 :            :      might have been relocated already.  Note this is subtly wrong if
    4084                 :            :      there are multiple sections with the same .debug name.  */
    4085         [ -  + ]:        387 :   if (dbg->sectiondata[idx] != NULL)
    4086                 :            :     return dbg->sectiondata[idx];
    4087                 :            : 
    4088                 :          0 :   GElf_Shdr shdr_mem;
    4089                 :          0 :   GElf_Shdr *shdr = gelf_getshdr (scn, &shdr_mem);
    4090   [ #  #  #  # ]:          0 :   if (shdr != NULL && (shdr->sh_flags & SHF_COMPRESSED) != 0)
    4091                 :            :     {
    4092         [ #  # ]:          0 :       if (elf_compress (scn, 0, 0) < 0)
    4093                 :            :         {
    4094                 :          0 :           error (0, 0, "%s [%zd] '%s'\n",
    4095                 :            :                  _("Couldn't uncompress section"),
    4096                 :            :                  elf_ndxscn (scn), section_name (ebl, shdr));
    4097                 :          0 :           return NULL;
    4098                 :            :         }
    4099                 :            :     }
    4100                 :            : 
    4101                 :          0 :   Elf_Data *data = elf_getdata (scn, NULL);
    4102         [ #  # ]:          0 :   if (data == NULL)
    4103                 :          0 :     error (0, 0, "%s [%zd] '%s': %s\n",
    4104                 :            :            _("Couldn't get data from section"),
    4105                 :            :            elf_ndxscn (scn), section_name (ebl, shdr), elf_errmsg (-1));
    4106                 :            : 
    4107                 :          0 :   return elf_getdata (scn, NULL);
    4108                 :            : }
    4109                 :            : 
    4110                 :            : void
    4111                 :    1040947 : print_dwarf_addr (Dwfl_Module *dwflmod,
    4112                 :            :                   int address_size, Dwarf_Addr address, Dwarf_Addr raw)
    4113                 :            : {
    4114                 :            :   /* See if there is a name we can give for this address.  */
    4115                 :    1040947 :   GElf_Sym sym;
    4116                 :    1040947 :   GElf_Off off = 0;
    4117         [ +  + ]:       6343 :   const char *name = (print_address_names && ! print_unresolved_addresses)
    4118                 :       6261 :     ? dwfl_module_addrinfo (dwflmod, address, &off, &sym, NULL, NULL, NULL)
    4119         [ +  + ]:    1040947 :     : NULL;
    4120                 :            : 
    4121                 :    1040947 :   const char *scn;
    4122         [ +  + ]:    1040947 :   if (print_unresolved_addresses)
    4123                 :            :     {
    4124                 :         84 :       address = raw;
    4125                 :         84 :       scn = NULL;
    4126                 :            :     }
    4127                 :            :   else
    4128                 :            :     {
    4129                 :            :       /* Relativize the address.  */
    4130                 :    1040863 :       int n = dwfl_module_relocations (dwflmod);
    4131         [ +  + ]:    1040863 :       int i = n < 1 ? -1 : dwfl_module_relocate_address (dwflmod, &address);
    4132                 :            : 
    4133                 :            :       /* In an ET_REL file there is a section name to refer to.  */
    4134                 :    1039451 :       scn = (i < 0 ? NULL
    4135         [ -  + ]:    1039451 :              : dwfl_module_relocation_info (dwflmod, i, NULL));
    4136                 :            :     }
    4137                 :            : 
    4138         [ -  + ]:    1040947 :   if ((name != NULL
    4139                 :       6041 :        ? (off != 0
    4140                 :            :           ? (scn != NULL
    4141                 :            :              ? (address_size == 0
    4142                 :          1 :                 ? printf ("%s+%#" PRIx64 " <%s+%#" PRIx64 ">",
    4143                 :            :                           scn, address, name, off)
    4144                 :          4 :                 : printf ("%s+%#0*" PRIx64 " <%s+%#" PRIx64 ">",
    4145                 :          2 :                           scn, 2 + address_size * 2, address,
    4146                 :            :                           name, off))
    4147                 :            :              : (address_size == 0
    4148                 :        182 :                 ? printf ("%#" PRIx64 " <%s+%#" PRIx64 ">",
    4149                 :            :                           address, name, off)
    4150                 :       1120 :                 : printf ("%#0*" PRIx64 " <%s+%#" PRIx64 ">",
    4151                 :        560 :                           2 + address_size * 2, address,
    4152                 :            :                           name, off)))
    4153                 :            :           : (scn != NULL
    4154                 :            :              ? (address_size == 0
    4155                 :          1 :                 ? printf ("%s+%#" PRIx64 " <%s>", scn, address, name)
    4156                 :       9592 :                 : printf ("%s+%#0*" PRIx64 " <%s>",
    4157                 :       4796 :                            scn, 2 + address_size * 2, address, name))
    4158                 :            :              : (address_size == 0
    4159                 :         80 :                 ? printf ("%#" PRIx64 " <%s>", address, name)
    4160                 :        838 :                 : printf ("%#0*" PRIx64 " <%s>",
    4161                 :        419 :                           2 + address_size * 2, address, name))))
    4162                 :            :        : (scn != NULL
    4163                 :            :           ? (address_size == 0
    4164                 :     377753 :              ? printf ("%s+%#" PRIx64, scn, address)
    4165                 :     656898 :              : printf ("%s+%#0*" PRIx64, scn, 2 + address_size * 2, address))
    4166                 :            :           : (address_size == 0
    4167                 :         35 :              ? printf ("%#" PRIx64, address)
    4168   [ +  +  +  +  :    2081674 :              : printf ("%#0*" PRIx64, 2 + address_size * 2, address)))) < 0)
          +  +  +  +  +  
          +  +  +  +  +  
          +  +  +  +  +  
                +  +  + ]
    4169                 :          0 :     error_exit (0, _("sprintf failure"));
    4170                 :    1040947 : }
    4171                 :            : 
    4172                 :            : 
    4173                 :            : static const char *
    4174                 :    1058137 : dwarf_tag_string (unsigned int tag)
    4175                 :            : {
    4176   [ -  +  +  -  :    1058137 :   switch (tag)
          -  -  -  -  +  
          +  +  +  +  -  
          -  -  -  -  -  
          +  -  +  -  +  
          -  -  +  +  -  
          +  -  -  -  -  
          -  -  -  +  -  
          +  -  +  +  +  
          -  -  -  -  -  
          -  +  -  -  +  
          -  -  -  +  -  
          +  +  +  +  -  
          -  -  -  -  +  
          +  +  +  -  +  
          +  +  +  -  -  
                      - ]
    4177                 :            :     {
    4178                 :            : #define DWARF_ONE_KNOWN_DW_TAG(NAME, CODE) case CODE: return #NAME;
    4179                 :    1058137 :       DWARF_ALL_KNOWN_DW_TAG
    4180                 :            : #undef DWARF_ONE_KNOWN_DW_TAG
    4181                 :          0 :     default:
    4182                 :          0 :       return NULL;
    4183                 :            :     }
    4184                 :            : }
    4185                 :            : 
    4186                 :            : 
    4187                 :            : static const char *
    4188                 :    4092674 : dwarf_attr_string (unsigned int attrnum)
    4189                 :            : {
    4190   [ +  -  +  -  :    4092674 :   switch (attrnum)
          -  -  -  +  -  
          -  +  +  +  -  
          -  -  -  +  +  
          -  +  -  -  +  
          -  +  -  +  -  
          -  -  -  -  -  
          -  -  -  -  -  
          -  -  -  -  -  
          -  -  -  +  -  
          +  -  +  -  +  
          -  -  -  +  +  
          -  -  -  +  -  
          +  -  +  +  -  
          -  +  +  +  +  
          -  +  +  +  -  
          +  -  -  +  -  
          +  -  +  +  -  
          +  -  -  +  +  
          +  +  -  -  -  
          -  -  +  +  +  
          +  -  +  -  +  
          -  -  -  -  +  
          +  -  +  -  +  
          +  -  +  +  +  
          +  +  -  -  +  
          -  -  -  +  -  
          +  -  -  -  -  
          +  +  -  +  -  
          -  -  -  +  -  
          -  -  +  +  -  
          +  -  -  -  -  
          +  -  -  -  -  
          -  -  +  +  -  
          -  -  -  -  -  
                   -  + ]
    4191                 :            :     {
    4192                 :            : #define DWARF_ONE_KNOWN_DW_AT(NAME, CODE) case CODE: return #NAME;
    4193                 :    4092673 :       DWARF_ALL_KNOWN_DW_AT
    4194                 :            : #undef DWARF_ONE_KNOWN_DW_AT
    4195                 :          0 :     default:
    4196                 :          0 :       return NULL;
    4197                 :            :     }
    4198                 :            : }
    4199                 :            : 
    4200                 :            : 
    4201                 :            : static const char *
    4202                 :    4097582 : dwarf_form_string (unsigned int form)
    4203                 :            : {
    4204   [ +  +  +  +  :    4097582 :   switch (form)
          +  -  -  -  -  
          -  +  -  -  +  
          -  +  +  +  +  
          +  +  +  -  +  
          +  -  -  +  -  
          -  +  -  -  +  
          +  +  +  +  +  
          -  +  -  -  -  
             -  +  -  + ]
    4205                 :            :     {
    4206                 :            : #define DWARF_ONE_KNOWN_DW_FORM(NAME, CODE) case CODE: return #NAME;
    4207                 :    4097580 :       DWARF_ALL_KNOWN_DW_FORM
    4208                 :            : #undef DWARF_ONE_KNOWN_DW_FORM
    4209                 :          0 :     default:
    4210                 :          0 :       return NULL;
    4211                 :            :     }
    4212                 :            : }
    4213                 :            : 
    4214                 :            : 
    4215                 :            : static const char *
    4216                 :       1765 : dwarf_lang_string (unsigned int lang)
    4217                 :            : {
    4218   [ +  -  -  +  :       1765 :   switch (lang)
          +  +  +  -  -  
          -  -  -  -  -  
          -  -  -  -  -  
          -  -  -  -  -  
          -  -  -  -  -  
          -  -  -  -  -  
             -  -  -  -  
                      - ]
    4219                 :            :     {
    4220                 :            : #define DWARF_ONE_KNOWN_DW_LANG(NAME, CODE) case CODE: return #NAME;
    4221                 :       1765 :       DWARF_ALL_KNOWN_DW_LANG
    4222                 :            : #undef DWARF_ONE_KNOWN_DW_LANG
    4223                 :          0 :     default:
    4224                 :          0 :       return NULL;
    4225                 :            :     }
    4226                 :            : }
    4227                 :            : 
    4228                 :            : 
    4229                 :            : static const char *
    4230                 :       3442 : dwarf_inline_string (unsigned int code)
    4231                 :            : {
    4232                 :       3442 :   static const char *const known[] =
    4233                 :            :     {
    4234                 :            : #define DWARF_ONE_KNOWN_DW_INL(NAME, CODE) [CODE] = #NAME,
    4235                 :            :       DWARF_ALL_KNOWN_DW_INL
    4236                 :            : #undef DWARF_ONE_KNOWN_DW_INL
    4237                 :            :     };
    4238                 :            : 
    4239                 :       3442 :   if (likely (code < sizeof (known) / sizeof (known[0])))
    4240                 :       3442 :     return known[code];
    4241                 :            : 
    4242                 :            :   return NULL;
    4243                 :            : }
    4244                 :            : 
    4245                 :            : 
    4246                 :            : static const char *
    4247                 :      25392 : dwarf_encoding_string (unsigned int code)
    4248                 :            : {
    4249                 :      25392 :   static const char *const known[] =
    4250                 :            :     {
    4251                 :            : #define DWARF_ONE_KNOWN_DW_ATE(NAME, CODE) [CODE] = #NAME,
    4252                 :            :       DWARF_ALL_KNOWN_DW_ATE
    4253                 :            : #undef DWARF_ONE_KNOWN_DW_ATE
    4254                 :            :     };
    4255                 :            : 
    4256                 :      25392 :   if (likely (code < sizeof (known) / sizeof (known[0])))
    4257                 :      25392 :     return known[code];
    4258                 :            : 
    4259                 :            :   return NULL;
    4260                 :            : }
    4261                 :            : 
    4262                 :            : 
    4263                 :            : static const char *
    4264                 :          0 : dwarf_access_string (unsigned int code)
    4265                 :            : {
    4266                 :          0 :   static const char *const known[] =
    4267                 :            :     {
    4268                 :            : #define DWARF_ONE_KNOWN_DW_ACCESS(NAME, CODE) [CODE] = #NAME,
    4269                 :            :       DWARF_ALL_KNOWN_DW_ACCESS
    4270                 :            : #undef DWARF_ONE_KNOWN_DW_ACCESS
    4271                 :            :     };
    4272                 :            : 
    4273                 :          0 :   if (likely (code < sizeof (known) / sizeof (known[0])))
    4274                 :          0 :     return known[code];
    4275                 :            : 
    4276                 :            :   return NULL;
    4277                 :            : }
    4278                 :            : 
    4279                 :            : 
    4280                 :            : static const char *
    4281                 :          0 : dwarf_defaulted_string (unsigned int code)
    4282                 :            : {
    4283                 :          0 :   static const char *const known[] =
    4284                 :            :     {
    4285                 :            : #define DWARF_ONE_KNOWN_DW_DEFAULTED(NAME, CODE) [CODE] = #NAME,
    4286                 :            :       DWARF_ALL_KNOWN_DW_DEFAULTED
    4287                 :            : #undef DWARF_ONE_KNOWN_DW_DEFAULTED
    4288                 :            :     };
    4289                 :            : 
    4290                 :          0 :   if (likely (code < sizeof (known) / sizeof (known[0])))
    4291                 :          0 :     return known[code];
    4292                 :            : 
    4293                 :            :   return NULL;
    4294                 :            : }
    4295                 :            : 
    4296                 :            : 
    4297                 :            : static const char *
    4298                 :          0 : dwarf_visibility_string (unsigned int code)
    4299                 :            : {
    4300                 :          0 :   static const char *const known[] =
    4301                 :            :     {
    4302                 :            : #define DWARF_ONE_KNOWN_DW_VIS(NAME, CODE) [CODE] = #NAME,
    4303                 :            :       DWARF_ALL_KNOWN_DW_VIS
    4304                 :            : #undef DWARF_ONE_KNOWN_DW_VIS
    4305                 :            :     };
    4306                 :            : 
    4307                 :          0 :   if (likely (code < sizeof (known) / sizeof (known[0])))
    4308                 :          0 :     return known[code];
    4309                 :            : 
    4310                 :            :   return NULL;
    4311                 :            : }
    4312                 :            : 
    4313                 :            : 
    4314                 :            : static const char *
    4315                 :          0 : dwarf_virtuality_string (unsigned int code)
    4316                 :            : {
    4317                 :          0 :   static const char *const known[] =
    4318                 :            :     {
    4319                 :            : #define DWARF_ONE_KNOWN_DW_VIRTUALITY(NAME, CODE) [CODE] = #NAME,
    4320                 :            :       DWARF_ALL_KNOWN_DW_VIRTUALITY
    4321                 :            : #undef DWARF_ONE_KNOWN_DW_VIRTUALITY
    4322                 :            :     };
    4323                 :            : 
    4324                 :          0 :   if (likely (code < sizeof (known) / sizeof (known[0])))
    4325                 :          0 :     return known[code];
    4326                 :            : 
    4327                 :            :   return NULL;
    4328                 :            : }
    4329                 :            : 
    4330                 :            : 
    4331                 :            : static const char *
    4332                 :          0 : dwarf_identifier_case_string (unsigned int code)
    4333                 :            : {
    4334                 :          0 :   static const char *const known[] =
    4335                 :            :     {
    4336                 :            : #define DWARF_ONE_KNOWN_DW_ID(NAME, CODE) [CODE] = #NAME,
    4337                 :            :       DWARF_ALL_KNOWN_DW_ID
    4338                 :            : #undef DWARF_ONE_KNOWN_DW_ID
    4339                 :            :     };
    4340                 :            : 
    4341                 :          0 :   if (likely (code < sizeof (known) / sizeof (known[0])))
    4342                 :          0 :     return known[code];
    4343                 :            : 
    4344                 :            :   return NULL;
    4345                 :            : }
    4346                 :            : 
    4347                 :            : 
    4348                 :            : static const char *
    4349                 :          0 : dwarf_calling_convention_string (unsigned int code)
    4350                 :            : {
    4351                 :          0 :   static const char *const known[] =
    4352                 :            :     {
    4353                 :            : #define DWARF_ONE_KNOWN_DW_CC(NAME, CODE) [CODE] = #NAME,
    4354                 :            :       DWARF_ALL_KNOWN_DW_CC
    4355                 :            : #undef DWARF_ONE_KNOWN_DW_CC
    4356                 :            :     };
    4357                 :            : 
    4358                 :          0 :   if (likely (code < sizeof (known) / sizeof (known[0])))
    4359                 :          0 :     return known[code];
    4360                 :            : 
    4361                 :            :   return NULL;
    4362                 :            : }
    4363                 :            : 
    4364                 :            : 
    4365                 :            : static const char *
    4366                 :          0 : dwarf_ordering_string (unsigned int code)
    4367                 :            : {
    4368                 :          0 :   static const char *const known[] =
    4369                 :            :     {
    4370                 :            : #define DWARF_ONE_KNOWN_DW_ORD(NAME, CODE) [CODE] = #NAME,
    4371                 :            :       DWARF_ALL_KNOWN_DW_ORD
    4372                 :            : #undef DWARF_ONE_KNOWN_DW_ORD
    4373                 :            :     };
    4374                 :            : 
    4375                 :          0 :   if (likely (code < sizeof (known) / sizeof (known[0])))
    4376                 :          0 :     return known[code];
    4377                 :            : 
    4378                 :            :   return NULL;
    4379                 :            : }
    4380                 :            : 
    4381                 :            : 
    4382                 :            : static const char *
    4383                 :          8 : dwarf_discr_list_string (unsigned int code)
    4384                 :            : {
    4385                 :          8 :   static const char *const known[] =
    4386                 :            :     {
    4387                 :            : #define DWARF_ONE_KNOWN_DW_DSC(NAME, CODE) [CODE] = #NAME,
    4388                 :            :       DWARF_ALL_KNOWN_DW_DSC
    4389                 :            : #undef DWARF_ONE_KNOWN_DW_DSC
    4390                 :            :     };
    4391                 :            : 
    4392                 :          8 :   if (likely (code < sizeof (known) / sizeof (known[0])))
    4393                 :          8 :     return known[code];
    4394                 :            : 
    4395                 :            :   return NULL;
    4396                 :            : }
    4397                 :            : 
    4398                 :            : 
    4399                 :            : static const char *
    4400                 :     540200 : dwarf_locexpr_opcode_string (unsigned int code)
    4401                 :            : {
    4402                 :     540200 :   static const char *const known[] =
    4403                 :            :     {
    4404                 :            :       /* Normally we can't afford building huge table of 64K entries,
    4405                 :            :          most of them zero, just because there are a couple defined
    4406                 :            :          values at the far end.  In case of opcodes, it's OK.  */
    4407                 :            : #define DWARF_ONE_KNOWN_DW_OP(NAME, CODE) [CODE] = #NAME,
    4408                 :            :       DWARF_ALL_KNOWN_DW_OP
    4409                 :            : #undef DWARF_ONE_KNOWN_DW_OP
    4410                 :            :     };
    4411                 :            : 
    4412                 :     540200 :   if (likely (code < sizeof (known) / sizeof (known[0])))
    4413                 :     540200 :     return known[code];
    4414                 :            : 
    4415                 :            :   return NULL;
    4416                 :            : }
    4417                 :            : 
    4418                 :            : 
    4419                 :            : static const char *
    4420                 :       1642 : dwarf_unit_string (unsigned int type)
    4421                 :            : {
    4422   [ -  +  -  -  :       1642 :   switch (type)
                -  -  + ]
    4423                 :            :     {
    4424                 :            : #define DWARF_ONE_KNOWN_DW_UT(NAME, CODE) case CODE: return #NAME;
    4425                 :          7 :       DWARF_ALL_KNOWN_DW_UT
    4426                 :            : #undef DWARF_ONE_KNOWN_DW_UT
    4427                 :          0 :     default:
    4428                 :          0 :       return NULL;
    4429                 :            :     }
    4430                 :            : }
    4431                 :            : 
    4432                 :            : 
    4433                 :            : static const char *
    4434                 :      64578 : dwarf_range_list_encoding_string (unsigned int kind)
    4435                 :            : {
    4436   [ -  +  +  -  :      64578 :   switch (kind)
             +  -  -  -  
                      + ]
    4437                 :            :     {
    4438                 :            : #define DWARF_ONE_KNOWN_DW_RLE(NAME, CODE) case CODE: return #NAME;
    4439                 :      60403 :       DWARF_ALL_KNOWN_DW_RLE
    4440                 :            : #undef DWARF_ONE_KNOWN_DW_RLE
    4441                 :          0 :     default:
    4442                 :          0 :       return NULL;
    4443                 :            :     }
    4444                 :            : }
    4445                 :            : 
    4446                 :            : 
    4447                 :            : static const char *
    4448                 :     300148 : dwarf_loc_list_encoding_string (unsigned int kind)
    4449                 :            : {
    4450   [ -  -  +  +  :     300148 :   switch (kind)
          -  +  -  +  -  
                   -  + ]
    4451                 :            :     {
    4452                 :            : #define DWARF_ONE_KNOWN_DW_LLE(NAME, CODE) case CODE: return #NAME;
    4453                 :     291142 :       DWARF_ALL_KNOWN_DW_LLE
    4454                 :            : #undef DWARF_ONE_KNOWN_DW_LLE
    4455                 :            :     /* DW_LLE_GNU_view_pair is special/incompatible with default codes.  */
    4456                 :          0 :     case DW_LLE_GNU_view_pair: return "GNU_view_pair";
    4457                 :          0 :     default:
    4458                 :          0 :       return NULL;
    4459                 :            :     }
    4460                 :            : }
    4461                 :            : 
    4462                 :            : 
    4463                 :            : static const char *
    4464                 :       4908 : dwarf_line_content_description_string (unsigned int kind)
    4465                 :            : {
    4466   [ +  +  -  -  :       4908 :   switch (kind)
                   -  - ]
    4467                 :            :     {
    4468                 :            : #define DWARF_ONE_KNOWN_DW_LNCT(NAME, CODE) case CODE: return #NAME;
    4469                 :       4908 :       DWARF_ALL_KNOWN_DW_LNCT
    4470                 :            : #undef DWARF_ONE_KNOWN_DW_LNCT
    4471                 :          0 :     default:
    4472                 :          0 :       return NULL;
    4473                 :            :     }
    4474                 :            : }
    4475                 :            : 
    4476                 :            : 
    4477                 :            : /* Used by all dwarf_foo_name functions.  */
    4478                 :            : static const char *
    4479                 :    9650276 : string_or_unknown (const char *known, unsigned int code,
    4480                 :            :                    unsigned int lo_user, unsigned int hi_user,
    4481                 :            :                    bool print_unknown_num)
    4482                 :            : {
    4483                 :    9650276 :   static char unknown_buf[20];
    4484                 :            : 
    4485         [ -  + ]:    9650276 :   if (likely (known != NULL))
    4486                 :            :     return known;
    4487                 :            : 
    4488   [ #  #  #  # ]:          0 :   if (lo_user != 0 && code >= lo_user && code <= hi_user)
    4489                 :            :     {
    4490                 :          0 :       snprintf (unknown_buf, sizeof unknown_buf, "lo_user+%#x",
    4491                 :            :                 code - lo_user);
    4492                 :          0 :       return unknown_buf;
    4493                 :            :     }
    4494                 :            : 
    4495         [ #  # ]:          0 :   if (print_unknown_num)
    4496                 :            :     {
    4497                 :          0 :       snprintf (unknown_buf, sizeof unknown_buf, "??? (%#x)", code);
    4498                 :          0 :       return unknown_buf;
    4499                 :            :     }
    4500                 :            : 
    4501                 :            :   return "???";
    4502                 :            : }
    4503                 :            : 
    4504                 :            : 
    4505                 :            : static const char *
    4506                 :    1058137 : dwarf_tag_name (unsigned int tag)
    4507                 :            : {
    4508                 :    1058137 :   const char *ret = dwarf_tag_string (tag);
    4509                 :    1058137 :   return string_or_unknown (ret, tag, DW_TAG_lo_user, DW_TAG_hi_user, true);
    4510                 :            : }
    4511                 :            : 
    4512                 :            : static const char *
    4513                 :    4092674 : dwarf_attr_name (unsigned int attr)
    4514                 :            : {
    4515                 :    4092674 :   const char *ret = dwarf_attr_string (attr);
    4516                 :    4092674 :   return string_or_unknown (ret, attr, DW_AT_lo_user, DW_AT_hi_user, true);
    4517                 :            : }
    4518                 :            : 
    4519                 :            : 
    4520                 :            : static const char *
    4521                 :    4097582 : dwarf_form_name (unsigned int form)
    4522                 :            : {
    4523                 :    4097582 :   const char *ret = dwarf_form_string (form);
    4524                 :    4097582 :   return string_or_unknown (ret, form, 0, 0, true);
    4525                 :            : }
    4526                 :            : 
    4527                 :            : 
    4528                 :            : static const char *
    4529                 :       1765 : dwarf_lang_name (unsigned int lang)
    4530                 :            : {
    4531                 :       1765 :   const char *ret = dwarf_lang_string (lang);
    4532                 :       1765 :   return string_or_unknown (ret, lang, DW_LANG_lo_user, DW_LANG_hi_user, false);
    4533                 :            : }
    4534                 :            : 
    4535                 :            : 
    4536                 :            : static const char *
    4537                 :       3442 : dwarf_inline_name (unsigned int code)
    4538                 :            : {
    4539         [ +  - ]:       3442 :   const char *ret = dwarf_inline_string (code);
    4540                 :       3442 :   return string_or_unknown (ret, code, 0, 0, false);
    4541                 :            : }
    4542                 :            : 
    4543                 :            : 
    4544                 :            : static const char *
    4545                 :      25392 : dwarf_encoding_name (unsigned int code)
    4546                 :            : {
    4547         [ +  - ]:      25392 :   const char *ret = dwarf_encoding_string (code);
    4548                 :      25392 :   return string_or_unknown (ret, code, DW_ATE_lo_user, DW_ATE_hi_user, false);
    4549                 :            : }
    4550                 :            : 
    4551                 :            : 
    4552                 :            : static const char *
    4553                 :          0 : dwarf_access_name (unsigned int code)
    4554                 :            : {
    4555         [ #  # ]:          0 :   const char *ret = dwarf_access_string (code);
    4556                 :          0 :   return string_or_unknown (ret, code, 0, 0, false);
    4557                 :            : }
    4558                 :            : 
    4559                 :            : 
    4560                 :            : static const char *
    4561                 :          0 : dwarf_defaulted_name (unsigned int code)
    4562                 :            : {
    4563         [ #  # ]:          0 :   const char *ret = dwarf_defaulted_string (code);
    4564                 :          0 :   return string_or_unknown (ret, code, 0, 0, false);
    4565                 :            : }
    4566                 :            : 
    4567                 :            : 
    4568                 :            : static const char *
    4569                 :          0 : dwarf_visibility_name (unsigned int code)
    4570                 :            : {
    4571         [ #  # ]:          0 :   const char *ret = dwarf_visibility_string (code);
    4572                 :          0 :   return string_or_unknown (ret, code, 0, 0, false);
    4573                 :            : }
    4574                 :            : 
    4575                 :            : 
    4576                 :            : static const char *
    4577                 :          0 : dwarf_virtuality_name (unsigned int code)
    4578                 :            : {
    4579         [ #  # ]:          0 :   const char *ret = dwarf_virtuality_string (code);
    4580                 :          0 :   return string_or_unknown (ret, code, 0, 0, false);
    4581                 :            : }
    4582                 :            : 
    4583                 :            : 
    4584                 :            : static const char *
    4585                 :          0 : dwarf_identifier_case_name (unsigned int code)
    4586                 :            : {
    4587         [ #  # ]:          0 :   const char *ret = dwarf_identifier_case_string (code);
    4588                 :          0 :   return string_or_unknown (ret, code, 0, 0, false);
    4589                 :            : }
    4590                 :            : 
    4591                 :            : 
    4592                 :            : static const char *
    4593                 :          0 : dwarf_calling_convention_name (unsigned int code)
    4594                 :            : {
    4595         [ #  # ]:          0 :   const char *ret = dwarf_calling_convention_string (code);
    4596                 :          0 :   return string_or_unknown (ret, code, DW_CC_lo_user, DW_CC_hi_user, false);
    4597                 :            : }
    4598                 :            : 
    4599                 :            : 
    4600                 :            : static const char *
    4601                 :          0 : dwarf_ordering_name (unsigned int code)
    4602                 :            : {
    4603         [ #  # ]:          0 :   const char *ret = dwarf_ordering_string (code);
    4604                 :          0 :   return string_or_unknown (ret, code, 0, 0, false);
    4605                 :            : }
    4606                 :            : 
    4607                 :            : 
    4608                 :            : static const char *
    4609                 :          8 : dwarf_discr_list_name (unsigned int code)
    4610                 :            : {
    4611         [ +  - ]:          8 :   const char *ret = dwarf_discr_list_string (code);
    4612                 :          8 :   return string_or_unknown (ret, code, 0, 0, false);
    4613                 :            : }
    4614                 :            : 
    4615                 :            : 
    4616                 :            : static const char *
    4617                 :       1642 : dwarf_unit_name (unsigned int type)
    4618                 :            : {
    4619                 :       1642 :   const char *ret = dwarf_unit_string (type);
    4620                 :       1642 :   return string_or_unknown (ret, type, DW_UT_lo_user, DW_UT_hi_user, true);
    4621                 :            : }
    4622                 :            : 
    4623                 :            : 
    4624                 :            : static const char *
    4625                 :      64578 : dwarf_range_list_encoding_name (unsigned int kind)
    4626                 :            : {
    4627                 :      64578 :   const char *ret = dwarf_range_list_encoding_string (kind);
    4628                 :      64578 :   return string_or_unknown (ret, kind, 0, 0, false);
    4629                 :            : }
    4630                 :            : 
    4631                 :            : 
    4632                 :            : static const char *
    4633                 :     300148 : dwarf_loc_list_encoding_name (unsigned int kind)
    4634                 :            : {
    4635                 :     300148 :   const char *ret = dwarf_loc_list_encoding_string (kind);
    4636                 :     300148 :   return string_or_unknown (ret, kind, 0, 0, false);
    4637                 :            : }
    4638                 :            : 
    4639                 :            : 
    4640                 :            : static const char *
    4641                 :       4908 : dwarf_line_content_description_name (unsigned int kind)
    4642                 :            : {
    4643                 :       4908 :   const char *ret = dwarf_line_content_description_string (kind);
    4644                 :       4908 :   return string_or_unknown (ret, kind, DW_LNCT_lo_user, DW_LNCT_hi_user,
    4645                 :            :                             false);
    4646                 :            : }
    4647                 :            : 
    4648                 :            : 
    4649                 :            : static void
    4650                 :        255 : print_block (size_t n, const void *block)
    4651                 :            : {
    4652         [ -  + ]:        255 :   if (n == 0)
    4653                 :          0 :     puts (_("empty block"));
    4654                 :            :   else
    4655                 :            :     {
    4656                 :        255 :       printf (_("%zu byte block:"), n);
    4657                 :        255 :       const unsigned char *data = block;
    4658                 :       1125 :       do
    4659                 :       1125 :         printf (" %02x", *data++);
    4660         [ +  + ]:       1125 :       while (--n > 0);
    4661                 :        255 :       putchar ('\n');
    4662                 :            :     }
    4663                 :        255 : }
    4664                 :            : 
    4665                 :            : static void
    4666                 :          0 : print_bytes (size_t n, const unsigned char *bytes)
    4667                 :            : {
    4668                 :          0 :   while (n-- > 0)
    4669                 :            :     {
    4670                 :          0 :       printf ("%02x", *bytes++);
    4671         [ #  # ]:          0 :       if (n > 0)
    4672         [ #  # ]:          0 :         printf (" ");
    4673                 :            :     }
    4674                 :          0 : }
    4675                 :            : 
    4676                 :            : static int
    4677                 :         68 : get_indexed_addr (Dwarf_CU *cu, Dwarf_Word idx, Dwarf_Addr *addr)
    4678                 :            : {
    4679         [ -  + ]:         68 :   if (cu == NULL)
    4680                 :            :     return -1;
    4681                 :            : 
    4682                 :         68 :   Elf_Data *debug_addr = cu->dbg->sectiondata[IDX_debug_addr];
    4683         [ -  + ]:         68 :   if (debug_addr == NULL)
    4684                 :            :     return -1;
    4685                 :            : 
    4686                 :         68 :   Dwarf_Off base = __libdw_cu_addr_base (cu);
    4687                 :         68 :   Dwarf_Word off = idx * cu->address_size;
    4688         [ -  + ]:         68 :   if (base > debug_addr->d_size
    4689         [ -  + ]:         68 :       || off > debug_addr->d_size - base
    4690         [ -  + ]:         68 :       || cu->address_size > debug_addr->d_size - base - off)
    4691                 :            :     return -1;
    4692                 :            : 
    4693                 :         68 :   const unsigned char *addrp = debug_addr->d_buf + base + off;
    4694         [ -  + ]:         68 :   if (cu->address_size == 4)
    4695         [ #  # ]:          0 :     *addr = read_4ubyte_unaligned (cu->dbg, addrp);
    4696                 :            :   else
    4697         [ -  + ]:         68 :     *addr = read_8ubyte_unaligned (cu->dbg, addrp);
    4698                 :            : 
    4699                 :            :   return 0;
    4700                 :            : }
    4701                 :            : 
    4702                 :            : static void
    4703                 :     374798 : print_ops (Dwfl_Module *dwflmod, Dwarf *dbg, int indent, int indentrest,
    4704                 :            :            unsigned int vers, unsigned int addrsize, unsigned int offset_size,
    4705                 :            :            struct Dwarf_CU *cu, Dwarf_Word len, const unsigned char *data)
    4706                 :            : {
    4707         [ +  + ]:     374798 :   const unsigned int ref_size = vers < 3 ? addrsize : offset_size;
    4708                 :            : 
    4709         [ -  + ]:     374798 :   if (len == 0)
    4710                 :            :     {
    4711                 :          0 :       printf ("%*s(empty)\n", indent, "");
    4712                 :          0 :       return;
    4713                 :            :     }
    4714                 :            : 
    4715                 :            : #define NEED(n)         if (len < (Dwarf_Word) (n)) goto invalid
    4716                 :            : #define CONSUME(n)      NEED (n); else len -= (n)
    4717                 :            : 
    4718                 :            :   Dwarf_Word offset = 0;
    4719         [ +  + ]:     914998 :   while (len-- > 0)
    4720                 :     540200 :     {
    4721                 :     540200 :       uint_fast8_t op = *data++;
    4722                 :            : 
    4723         [ +  - ]:     540200 :       const char *op_name = dwarf_locexpr_opcode_string (op);
    4724         [ -  + ]:     540200 :       if (unlikely (op_name == NULL))
    4725                 :            :         {
    4726                 :          0 :           static char buf[20];
    4727         [ #  # ]:          0 :           if (op >= DW_OP_lo_user)
    4728                 :          0 :             snprintf (buf, sizeof buf, "lo_user+%#x", op - DW_OP_lo_user);
    4729                 :            :           else
    4730                 :          0 :             snprintf (buf, sizeof buf, "??? (%#x)", op);
    4731                 :            :           op_name = buf;
    4732                 :            :         }
    4733                 :            : 
    4734   [ +  -  +  +  :     540200 :       switch (op)
          +  +  +  +  -  
          -  +  +  -  +  
          -  -  +  +  +  
          +  +  -  -  -  
             -  +  +  + ]
    4735                 :            :         {
    4736                 :      12677 :         case DW_OP_addr:;
    4737                 :            :           /* Address operand.  */
    4738                 :      12677 :           Dwarf_Word addr;
    4739         [ -  + ]:      12677 :           NEED (addrsize);
    4740         [ +  + ]:      12677 :           if (addrsize == 4)
    4741         [ +  + ]:         42 :             addr = read_4ubyte_unaligned (dbg, data);
    4742         [ +  - ]:      12635 :           else if (addrsize == 8)
    4743         [ +  + ]:      12635 :             addr = read_8ubyte_unaligned (dbg, data);
    4744                 :            :           else
    4745                 :          0 :             goto invalid;
    4746                 :      12677 :           data += addrsize;
    4747                 :      12677 :           CONSUME (addrsize);
    4748                 :            : 
    4749                 :      12677 :           printf ("%*s[%2" PRIuMAX "] %s ",
    4750                 :            :                   indent, "", (uintmax_t) offset, op_name);
    4751                 :      12677 :           print_dwarf_addr (dwflmod, 0, addr, addr);
    4752                 :      12677 :           printf ("\n");
    4753                 :            : 
    4754                 :      12677 :           offset += 1 + addrsize;
    4755                 :      12677 :           break;
    4756                 :            : 
    4757                 :          0 :         case DW_OP_call_ref:
    4758                 :            :         case DW_OP_GNU_variable_value:
    4759                 :            :           /* Offset operand.  */
    4760         [ #  # ]:          0 :           if (ref_size != 4 && ref_size != 8)
    4761                 :          0 :             goto invalid; /* Cannot be used in CFA.  */
    4762         [ #  # ]:          0 :           NEED (ref_size);
    4763         [ #  # ]:          0 :           if (ref_size == 4)
    4764         [ #  # ]:          0 :             addr = read_4ubyte_unaligned (dbg, data);
    4765                 :            :           else
    4766         [ #  # ]:          0 :             addr = read_8ubyte_unaligned (dbg, data);
    4767                 :          0 :           data += ref_size;
    4768                 :          0 :           CONSUME (ref_size);
    4769                 :            :           /* addr is a DIE offset, so format it as one.  */
    4770                 :          0 :           printf ("%*s[%2" PRIuMAX "] %s [%6" PRIxMAX "]\n",
    4771                 :            :                   indent, "", (uintmax_t) offset,
    4772                 :            :                   op_name, (uintmax_t) addr);
    4773                 :          0 :           offset += 1 + ref_size;
    4774                 :          0 :           break;
    4775                 :            : 
    4776                 :      12884 :         case DW_OP_deref_size:
    4777                 :            :         case DW_OP_xderef_size:
    4778                 :            :         case DW_OP_pick:
    4779                 :            :         case DW_OP_const1u:
    4780                 :            :           // XXX value might be modified by relocation
    4781         [ -  + ]:      12884 :           NEED (1);
    4782                 :      25768 :           printf ("%*s[%2" PRIuMAX "] %s %" PRIu8 "\n",
    4783                 :            :                   indent, "", (uintmax_t) offset,
    4784                 :      12884 :                   op_name, *((uint8_t *) data));
    4785                 :      12884 :           ++data;
    4786                 :      12884 :           --len;
    4787                 :      12884 :           offset += 2;
    4788                 :      12884 :           break;
    4789                 :            : 
    4790                 :       1574 :         case DW_OP_const2u:
    4791         [ -  + ]:       1574 :           NEED (2);
    4792                 :            :           // XXX value might be modified by relocation
    4793                 :          0 :           printf ("%*s[%2" PRIuMAX "] %s %" PRIu16 "\n",
    4794                 :            :                   indent, "", (uintmax_t) offset,
    4795         [ -  + ]:       1574 :                   op_name, read_2ubyte_unaligned (dbg, data));
    4796                 :       1574 :           CONSUME (2);
    4797                 :       1574 :           data += 2;
    4798                 :       1574 :           offset += 3;
    4799                 :       1574 :           break;
    4800                 :            : 
    4801                 :       1147 :         case DW_OP_const4u:
    4802         [ -  + ]:       1147 :           NEED (4);
    4803                 :            :           // XXX value might be modified by relocation
    4804                 :       1147 :           printf ("%*s[%2" PRIuMAX "] %s %" PRIu32 "\n",
    4805                 :            :                   indent, "", (uintmax_t) offset,
    4806         [ -  + ]:       1147 :                   op_name, read_4ubyte_unaligned (dbg, data));
    4807                 :       1147 :           CONSUME (4);
    4808                 :       1147 :           data += 4;
    4809                 :       1147 :           offset += 5;
    4810                 :       1147 :           break;
    4811                 :            : 
    4812                 :         56 :         case DW_OP_const8u:
    4813         [ -  + ]:         56 :           NEED (8);
    4814                 :            :           // XXX value might be modified by relocation
    4815                 :         56 :           printf ("%*s[%2" PRIuMAX "] %s %" PRIu64 "\n",
    4816                 :            :                   indent, "", (uintmax_t) offset,
    4817         [ -  + ]:         56 :                   op_name, (uint64_t) read_8ubyte_unaligned (dbg, data));
    4818                 :         56 :           CONSUME (8);
    4819                 :         56 :           data += 8;
    4820                 :         56 :           offset += 9;
    4821                 :         56 :           break;
    4822                 :            : 
    4823                 :       2375 :         case DW_OP_const1s:
    4824         [ -  + ]:       2375 :           NEED (1);
    4825                 :            :           // XXX value might be modified by relocation
    4826                 :       4750 :           printf ("%*s[%2" PRIuMAX "] %s %" PRId8 "\n",
    4827                 :            :                   indent, "", (uintmax_t) offset,
    4828                 :       2375 :                   op_name, *((int8_t *) data));
    4829                 :       2375 :           ++data;
    4830                 :       2375 :           --len;
    4831                 :       2375 :           offset += 2;
    4832                 :       2375 :           break;
    4833                 :            : 
    4834                 :          5 :         case DW_OP_const2s:
    4835         [ -  + ]:          5 :           NEED (2);
    4836                 :            :           // XXX value might be modified by relocation
    4837                 :          0 :           printf ("%*s[%2" PRIuMAX "] %s %" PRId16 "\n",
    4838                 :            :                   indent, "", (uintmax_t) offset,
    4839         [ -  + ]:          5 :                   op_name, read_2sbyte_unaligned (dbg, data));
    4840                 :          5 :           CONSUME (2);
    4841                 :          5 :           data += 2;
    4842                 :          5 :           offset += 3;
    4843                 :          5 :           break;
    4844                 :            : 
    4845                 :          0 :         case DW_OP_const4s:
    4846         [ #  # ]:          0 :           NEED (4);
    4847                 :            :           // XXX value might be modified by relocation
    4848                 :          0 :           printf ("%*s[%2" PRIuMAX "] %s %" PRId32 "\n",
    4849                 :            :                   indent, "", (uintmax_t) offset,
    4850         [ #  # ]:          0 :                   op_name, read_4sbyte_unaligned (dbg, data));
    4851                 :          0 :           CONSUME (4);
    4852                 :          0 :           data += 4;
    4853                 :          0 :           offset += 5;
    4854                 :          0 :           break;
    4855                 :            : 
    4856                 :          0 :         case DW_OP_const8s:
    4857         [ #  # ]:          0 :           NEED (8);
    4858                 :            :           // XXX value might be modified by relocation
    4859                 :          0 :           printf ("%*s[%2" PRIuMAX "] %s %" PRId64 "\n",
    4860                 :            :                   indent, "", (uintmax_t) offset,
    4861         [ #  # ]:          0 :                   op_name, read_8sbyte_unaligned (dbg, data));
    4862                 :          0 :           CONSUME (8);
    4863                 :          0 :           data += 8;
    4864                 :          0 :           offset += 9;
    4865                 :          0 :           break;
    4866                 :            : 
    4867                 :       8354 :         case DW_OP_piece:
    4868                 :            :         case DW_OP_regx:
    4869                 :            :         case DW_OP_plus_uconst:
    4870                 :       8354 :         case DW_OP_constu:;
    4871                 :       8354 :           const unsigned char *start = data;
    4872                 :       8354 :           uint64_t uleb;
    4873         [ -  + ]:       8354 :           NEED (1);
    4874                 :       8354 :           get_uleb128 (uleb, data, data + len);
    4875                 :       8354 :           printf ("%*s[%2" PRIuMAX "] %s %" PRIu64 "\n",
    4876                 :            :                   indent, "", (uintmax_t) offset, op_name, uleb);
    4877         [ -  + ]:       8354 :           CONSUME (data - start);
    4878                 :       8354 :           offset += 1 + (data - start);
    4879                 :       8354 :           break;
    4880                 :            : 
    4881                 :          2 :         case DW_OP_addrx:
    4882                 :            :         case DW_OP_GNU_addr_index:
    4883                 :            :         case DW_OP_constx:
    4884                 :          2 :         case DW_OP_GNU_const_index:;
    4885                 :          2 :           start = data;
    4886         [ -  + ]:          2 :           NEED (1);
    4887                 :          2 :           get_uleb128 (uleb, data, data + len);
    4888                 :          2 :           printf ("%*s[%2" PRIuMAX "] %s [%" PRIu64 "] ",
    4889                 :            :                   indent, "", (uintmax_t) offset, op_name, uleb);
    4890         [ -  + ]:          2 :           CONSUME (data - start);
    4891                 :          2 :           offset += 1 + (data - start);
    4892         [ -  + ]:          2 :           if (get_indexed_addr (cu, uleb, &addr) != 0)
    4893                 :          0 :             printf ("???\n");
    4894                 :            :           else
    4895                 :            :             {
    4896                 :          2 :               print_dwarf_addr (dwflmod, 0, addr, addr);
    4897                 :          2 :               printf ("\n");
    4898                 :            :             }
    4899                 :            :           break;
    4900                 :            : 
    4901                 :          0 :         case DW_OP_bit_piece:
    4902                 :          0 :           start = data;
    4903                 :          0 :           uint64_t uleb2;
    4904         [ #  # ]:          0 :           NEED (1);
    4905                 :          0 :           get_uleb128 (uleb, data, data + len);
    4906                 :          0 :           NEED (1);
    4907                 :          0 :           get_uleb128 (uleb2, data, data + len);
    4908                 :          0 :           printf ("%*s[%2" PRIuMAX "] %s %" PRIu64 ", %" PRIu64 "\n",
    4909                 :            :                   indent, "", (uintmax_t) offset, op_name, uleb, uleb2);
    4910         [ #  # ]:          0 :           CONSUME (data - start);
    4911                 :          0 :           offset += 1 + (data - start);
    4912                 :          0 :           break;
    4913                 :            : 
    4914                 :      94401 :         case DW_OP_fbreg:
    4915                 :            :         case DW_OP_breg0 ... DW_OP_breg31:
    4916                 :            :         case DW_OP_consts:
    4917                 :      94401 :           start = data;
    4918                 :      94401 :           int64_t sleb;
    4919         [ -  + ]:      94401 :           NEED (1);
    4920                 :      94401 :           get_sleb128 (sleb, data, data + len);
    4921                 :      94401 :           printf ("%*s[%2" PRIuMAX "] %s %" PRId64 "\n",
    4922                 :            :                   indent, "", (uintmax_t) offset, op_name, sleb);
    4923         [ -  + ]:      94401 :           CONSUME (data - start);
    4924                 :      94401 :           offset += 1 + (data - start);
    4925                 :      94401 :           break;
    4926                 :            : 
    4927                 :          0 :         case DW_OP_bregx:
    4928                 :          0 :           start = data;
    4929         [ #  # ]:          0 :           NEED (1);
    4930                 :          0 :           get_uleb128 (uleb, data, data + len);
    4931                 :          0 :           NEED (1);
    4932                 :          0 :           get_sleb128 (sleb, data, data + len);
    4933                 :          0 :           printf ("%*s[%2" PRIuMAX "] %s %" PRIu64 " %" PRId64 "\n",
    4934                 :            :                   indent, "", (uintmax_t) offset, op_name, uleb, sleb);
    4935         [ #  # ]:          0 :           CONSUME (data - start);
    4936                 :          0 :           offset += 1 + (data - start);
    4937                 :          0 :           break;
    4938                 :            : 
    4939                 :          0 :         case DW_OP_call2:
    4940         [ #  # ]:          0 :           NEED (2);
    4941                 :          0 :           printf ("%*s[%2" PRIuMAX "] %s [%6" PRIx16 "]\n",
    4942                 :            :                   indent, "", (uintmax_t) offset, op_name,
    4943         [ #  # ]:          0 :                   read_2ubyte_unaligned (dbg, data));
    4944                 :          0 :           CONSUME (2);
    4945                 :          0 :           data += 2;
    4946                 :          0 :           offset += 3;
    4947                 :          0 :           break;
    4948                 :            : 
    4949                 :          4 :         case DW_OP_call4:
    4950         [ -  + ]:          4 :           NEED (4);
    4951                 :          4 :           printf ("%*s[%2" PRIuMAX "] %s [%6" PRIx32 "]\n",
    4952                 :            :                   indent, "", (uintmax_t) offset, op_name,
    4953         [ -  + ]:          4 :                   read_4ubyte_unaligned (dbg, data));
    4954                 :          4 :           CONSUME (4);
    4955                 :          4 :           data += 4;
    4956                 :          4 :           offset += 5;
    4957                 :          4 :           break;
    4958                 :            : 
    4959                 :        548 :         case DW_OP_skip:
    4960                 :            :         case DW_OP_bra:
    4961         [ -  + ]:        548 :           NEED (2);
    4962                 :       1096 :           printf ("%*s[%2" PRIuMAX "] %s %" PRIuMAX "\n",
    4963                 :            :                   indent, "", (uintmax_t) offset, op_name,
    4964         [ -  + ]:        548 :                   (uintmax_t) (offset + read_2sbyte_unaligned (dbg, data) + 3));
    4965                 :        548 :           CONSUME (2);
    4966                 :        548 :           data += 2;
    4967                 :        548 :           offset += 3;
    4968                 :        548 :           break;
    4969                 :            : 
    4970                 :        255 :         case DW_OP_implicit_value:
    4971                 :        255 :           start = data;
    4972         [ -  + ]:        255 :           NEED (1);
    4973                 :        255 :           get_uleb128 (uleb, data, data + len);
    4974                 :        255 :           printf ("%*s[%2" PRIuMAX "] %s: ",
    4975                 :            :                   indent, "", (uintmax_t) offset, op_name);
    4976         [ -  + ]:        255 :           NEED (uleb);
    4977                 :        255 :           print_block (uleb, data);
    4978                 :        255 :           data += uleb;
    4979         [ -  + ]:        255 :           CONSUME (data - start);
    4980                 :        255 :           offset += 1 + (data - start);
    4981                 :        255 :           break;
    4982                 :            : 
    4983                 :       2509 :         case DW_OP_implicit_pointer:
    4984                 :            :         case DW_OP_GNU_implicit_pointer:
    4985                 :            :           /* DIE offset operand.  */
    4986                 :       2509 :           start = data;
    4987         [ -  + ]:       2509 :           NEED (ref_size);
    4988         [ -  + ]:       2509 :           if (ref_size != 4 && ref_size != 8)
    4989                 :          0 :             goto invalid; /* Cannot be used in CFA.  */
    4990         [ +  - ]:       2509 :           if (ref_size == 4)
    4991         [ -  + ]:       2509 :             addr = read_4ubyte_unaligned (dbg, data);
    4992                 :            :           else
    4993         [ #  # ]:          0 :             addr = read_8ubyte_unaligned (dbg, data);
    4994                 :       2509 :           data += ref_size;
    4995                 :            :           /* Byte offset operand.  */
    4996         [ -  + ]:       2509 :           NEED (1);
    4997                 :       2509 :           get_sleb128 (sleb, data, data + len);
    4998                 :            : 
    4999                 :       2509 :           printf ("%*s[%2" PRIuMAX "] %s [%6" PRIxMAX "] %+" PRId64 "\n",
    5000                 :            :                   indent, "", (intmax_t) offset,
    5001                 :            :                   op_name, (uintmax_t) addr, sleb);
    5002         [ -  + ]:       2509 :           CONSUME (data - start);
    5003                 :       2509 :           offset += 1 + (data - start);
    5004                 :       2509 :           break;
    5005                 :            : 
    5006                 :      30544 :         case DW_OP_entry_value:
    5007                 :            :         case DW_OP_GNU_entry_value:
    5008                 :            :           /* Size plus expression block.  */
    5009                 :      30544 :           start = data;
    5010         [ -  + ]:      30544 :           NEED (1);
    5011                 :      30544 :           get_uleb128 (uleb, data, data + len);
    5012                 :      30544 :           printf ("%*s[%2" PRIuMAX "] %s:\n",
    5013                 :            :                   indent, "", (uintmax_t) offset, op_name);
    5014         [ -  + ]:      30544 :           NEED (uleb);
    5015                 :      30544 :           print_ops (dwflmod, dbg, indent + 5, indent + 5, vers,
    5016                 :            :                      addrsize, offset_size, cu, uleb, data);
    5017                 :      30544 :           data += uleb;
    5018         [ -  + ]:      30544 :           CONSUME (data - start);
    5019                 :      30544 :           offset += 1 + (data - start);
    5020                 :      30544 :           break;
    5021                 :            : 
    5022                 :          0 :         case DW_OP_const_type:
    5023                 :            :         case DW_OP_GNU_const_type:
    5024                 :            :           /* uleb128 CU relative DW_TAG_base_type DIE offset, 1-byte
    5025                 :            :              unsigned size plus block.  */
    5026                 :          0 :           start = data;
    5027         [ #  # ]:          0 :           NEED (1);
    5028                 :          0 :           get_uleb128 (uleb, data, data + len);
    5029   [ #  #  #  # ]:          0 :           if (! print_unresolved_addresses && cu != NULL)
    5030                 :          0 :             uleb += cu->start;
    5031                 :          0 :           NEED (1);
    5032                 :          0 :           uint8_t usize = *(uint8_t *) data++;
    5033         [ #  # ]:          0 :           NEED (usize);
    5034                 :          0 :           printf ("%*s[%2" PRIuMAX "] %s [%6" PRIxMAX "] ",
    5035                 :            :                   indent, "", (uintmax_t) offset, op_name, uleb);
    5036                 :          0 :           print_block (usize, data);
    5037                 :          0 :           data += usize;
    5038         [ #  # ]:          0 :           CONSUME (data - start);
    5039                 :          0 :           offset += 1 + (data - start);
    5040                 :          0 :           break;
    5041                 :            : 
    5042                 :          0 :         case DW_OP_regval_type:
    5043                 :            :         case DW_OP_GNU_regval_type:
    5044                 :            :           /* uleb128 register number, uleb128 CU relative
    5045                 :            :              DW_TAG_base_type DIE offset.  */
    5046                 :          0 :           start = data;
    5047         [ #  # ]:          0 :           NEED (1);
    5048                 :          0 :           get_uleb128 (uleb, data, data + len);
    5049                 :          0 :           NEED (1);
    5050                 :          0 :           get_uleb128 (uleb2, data, data + len);
    5051   [ #  #  #  # ]:          0 :           if (! print_unresolved_addresses && cu != NULL)
    5052                 :          0 :             uleb2 += cu->start;
    5053                 :          0 :           printf ("%*s[%2" PRIuMAX "] %s %" PRIu64 " [%6" PRIx64 "]\n",
    5054                 :            :                   indent, "", (uintmax_t) offset, op_name, uleb, uleb2);
    5055         [ #  # ]:          0 :           CONSUME (data - start);
    5056                 :          0 :           offset += 1 + (data - start);
    5057                 :          0 :           break;
    5058                 :            : 
    5059                 :          0 :         case DW_OP_deref_type:
    5060                 :            :         case DW_OP_GNU_deref_type:
    5061                 :            :           /* 1-byte unsigned size of value, uleb128 CU relative
    5062                 :            :              DW_TAG_base_type DIE offset.  */
    5063                 :          0 :           start = data;
    5064         [ #  # ]:          0 :           NEED (1);
    5065                 :          0 :           usize = *(uint8_t *) data++;
    5066                 :          0 :           NEED (1);
    5067                 :          0 :           get_uleb128 (uleb, data, data + len);
    5068   [ #  #  #  # ]:          0 :           if (! print_unresolved_addresses && cu != NULL)
    5069                 :          0 :             uleb += cu->start;
    5070                 :          0 :           printf ("%*s[%2" PRIuMAX "] %s %" PRIu8 " [%6" PRIxMAX "]\n",
    5071                 :            :                   indent, "", (uintmax_t) offset,
    5072                 :            :                   op_name, usize, uleb);
    5073         [ #  # ]:          0 :           CONSUME (data - start);
    5074                 :          0 :           offset += 1 + (data - start);
    5075                 :          0 :           break;
    5076                 :            : 
    5077                 :          0 :         case DW_OP_xderef_type:
    5078                 :            :           /* 1-byte unsigned size of value, uleb128 base_type DIE offset.  */
    5079                 :          0 :           start = data;
    5080         [ #  # ]:          0 :           NEED (1);
    5081                 :          0 :           usize = *(uint8_t *) data++;
    5082                 :          0 :           NEED (1);
    5083                 :          0 :           get_uleb128 (uleb, data, data + len);
    5084                 :          0 :           printf ("%*s[%4" PRIuMAX "] %s %" PRIu8 " [%6" PRIxMAX "]\n",
    5085                 :            :                   indent, "", (uintmax_t) offset,
    5086                 :            :                   op_name, usize, uleb);
    5087         [ #  # ]:          0 :           CONSUME (data - start);
    5088                 :          0 :           offset += 1 + (data - start);
    5089                 :          0 :           break;
    5090                 :            : 
    5091                 :        420 :         case DW_OP_convert:
    5092                 :            :         case DW_OP_GNU_convert:
    5093                 :            :         case DW_OP_reinterpret:
    5094                 :            :         case DW_OP_GNU_reinterpret:
    5095                 :            :           /* uleb128 CU relative offset to DW_TAG_base_type, or zero
    5096                 :            :              for conversion to untyped.  */
    5097                 :        420 :           start = data;
    5098         [ -  + ]:        420 :           NEED (1);
    5099                 :        420 :           get_uleb128 (uleb, data, data + len);
    5100   [ +  +  +  -  :        420 :           if (uleb != 0 && ! print_unresolved_addresses && cu != NULL)
                   +  - ]
    5101                 :        280 :             uleb += cu->start;
    5102                 :        420 :           printf ("%*s[%2" PRIuMAX "] %s [%6" PRIxMAX "]\n",
    5103                 :            :                   indent, "", (uintmax_t) offset, op_name, uleb);
    5104         [ -  + ]:        420 :           CONSUME (data - start);
    5105                 :        420 :           offset += 1 + (data - start);
    5106                 :        420 :           break;
    5107                 :            : 
    5108                 :          3 :         case DW_OP_GNU_parameter_ref:
    5109                 :            :           /* 4 byte CU relative reference to the abstract optimized away
    5110                 :            :              DW_TAG_formal_parameter.  */
    5111         [ -  + ]:          3 :           NEED (4);
    5112         [ -  + ]:          3 :           uintmax_t param_off = (uintmax_t) read_4ubyte_unaligned (dbg, data);
    5113   [ +  -  +  - ]:          3 :           if (! print_unresolved_addresses && cu != NULL)
    5114                 :          3 :             param_off += cu->start;
    5115                 :          3 :           printf ("%*s[%2" PRIuMAX "] %s [%6" PRIxMAX "]\n",
    5116                 :            :                   indent, "", (uintmax_t) offset, op_name, param_off);
    5117                 :          3 :           CONSUME (4);
    5118                 :          3 :           data += 4;
    5119                 :          3 :           offset += 5;
    5120                 :          3 :           break;
    5121                 :            : 
    5122                 :            :         default:
    5123                 :            :           /* No Operand.  */
    5124                 :     372442 :           printf ("%*s[%2" PRIuMAX "] %s\n",
    5125                 :            :                   indent, "", (uintmax_t) offset, op_name);
    5126                 :     372442 :           ++offset;
    5127                 :     372442 :           break;
    5128                 :            :         }
    5129                 :            : 
    5130                 :     540200 :       indent = indentrest;
    5131                 :     540200 :       continue;
    5132                 :            : 
    5133                 :          0 :     invalid:
    5134                 :          0 :       printf (_("%*s[%2" PRIuMAX "] %s  <TRUNCATED>\n"),
    5135                 :            :               indent, "", (uintmax_t) offset, op_name);
    5136                 :            :       break;
    5137                 :            :     }
    5138                 :            : }
    5139                 :            : 
    5140                 :            : 
    5141                 :            : /* Turn the addresses into file offsets by using the phdrs.  */
    5142                 :            : static void
    5143                 :          1 : find_offsets(Elf *elf, GElf_Addr main_bias, size_t n,
    5144                 :            :                   GElf_Addr addrs[n], GElf_Off offs[n])
    5145                 :            : {
    5146                 :          1 :   size_t unsolved = n;
    5147         [ +  + ]:          9 :   for (size_t i = 0; i < phnum; ++i) {
    5148                 :          8 :     GElf_Phdr phdr_mem;
    5149                 :          8 :     GElf_Phdr *phdr = gelf_getphdr(elf, i, &phdr_mem);
    5150   [ +  -  +  +  :          8 :     if (phdr != NULL && phdr->p_type == PT_LOAD && phdr->p_memsz > 0)
                   +  - ]
    5151         [ +  + ]:         23 :       for (size_t j = 0; j < n; ++j)
    5152   [ +  +  +  + ]:         22 :         if (offs[j] == 0 && addrs[j] >= phdr->p_vaddr + main_bias &&
    5153         [ +  - ]:         11 :             addrs[j] - (phdr->p_vaddr + main_bias) < phdr->p_filesz) {
    5154                 :         11 :           offs[j] = addrs[j] - (phdr->p_vaddr + main_bias) + phdr->p_offset;
    5155         [ +  + ]:         11 :           if (--unsolved == 0)
    5156                 :            :             break;
    5157                 :            :         }
    5158                 :            :   }
    5159                 :          1 : }
    5160                 :            : 
    5161                 :            : /* The dynamic segment (type PT_DYNAMIC), contains the .dynamic section.
    5162                 :            :    And .dynamic section contains an array of the dynamic structures.
    5163                 :            :    We use the array to get:
    5164                 :            :     DT_STRTAB: the address of the string table
    5165                 :            :     DT_SYMTAB: the address of the symbol table
    5166                 :            :     DT_STRSZ: the size, in bytes, of the string table
    5167                 :            :     ...  */
    5168                 :            : static void
    5169                 :          1 : get_dynscn_addrs(Elf *elf, GElf_Phdr *phdr, GElf_Addr addrs[i_max])
    5170                 :            : {
    5171                 :          1 :   Elf_Data *data = elf_getdata_rawchunk(
    5172                 :          1 :     elf, phdr->p_offset, phdr->p_filesz, ELF_T_DYN);
    5173                 :            : 
    5174                 :          1 :   int dyn_idx = 0;
    5175                 :         22 :   for (;; ++dyn_idx) {
    5176                 :         23 :     GElf_Dyn dyn_mem;
    5177                 :         23 :     GElf_Dyn *dyn = gelf_getdyn(data, dyn_idx, &dyn_mem);
    5178                 :            :     /* DT_NULL Marks end of dynamic section.  */
    5179   [ +  -  +  + ]:         23 :     if (dyn == NULL || dyn->d_tag == DT_NULL)
    5180                 :            :       break;
    5181                 :            : 
    5182   [ +  -  +  +  :         22 :     switch (dyn->d_tag) {
          +  +  +  +  +  
                +  -  + ]
    5183                 :          1 :     case DT_SYMTAB:
    5184                 :          1 :       addrs[i_symtab] = dyn->d_un.d_ptr;
    5185                 :          1 :       break;
    5186                 :            : 
    5187                 :          0 :     case DT_HASH:
    5188                 :          0 :       addrs[i_hash] = dyn->d_un.d_ptr;
    5189                 :          0 :       break;
    5190                 :            : 
    5191                 :          1 :     case DT_GNU_HASH:
    5192                 :          1 :       addrs[i_gnu_hash] = dyn->d_un.d_ptr;
    5193                 :          1 :       break;
    5194                 :            : 
    5195                 :          1 :     case DT_STRTAB:
    5196                 :          1 :       addrs[i_strtab] = dyn->d_un.d_ptr;
    5197                 :          1 :       break;
    5198                 :            : 
    5199                 :          1 :     case DT_VERSYM:
    5200                 :          1 :       addrs[i_versym] = dyn->d_un.d_ptr;
    5201                 :          1 :       break;
    5202                 :            : 
    5203                 :          1 :     case DT_VERDEF:
    5204                 :          1 :       addrs[i_verdef] = dyn->d_un.d_ptr;
    5205                 :          1 :       break;
    5206                 :            : 
    5207                 :          1 :     case DT_VERDEFNUM:
    5208                 :          1 :       addrs[i_verdefnum] = dyn->d_un.d_val;
    5209                 :          1 :       break;
    5210                 :            : 
    5211                 :          1 :     case DT_VERNEED:
    5212                 :          1 :       addrs[i_verneed] = dyn->d_un.d_ptr;
    5213                 :          1 :       break;
    5214                 :            : 
    5215                 :          1 :     case DT_VERNEEDNUM:
    5216                 :          1 :       addrs[i_verneednum] = dyn->d_un.d_val;
    5217                 :          1 :       break;
    5218                 :            : 
    5219                 :          1 :     case DT_STRSZ:
    5220                 :          1 :       addrs[i_strsz] = dyn->d_un.d_val;
    5221                 :          1 :       break;
    5222                 :            : 
    5223                 :          0 :     case DT_SYMTAB_SHNDX:
    5224                 :          0 :       addrs[i_symtab_shndx] = dyn->d_un.d_ptr;
    5225                 :          0 :       break;
    5226                 :            :     }
    5227                 :            :   }
    5228                 :          1 : }
    5229                 :            : 
    5230                 :            : 
    5231                 :            : /* Use dynamic segment to get data for the string table section.  */
    5232                 :            : static Elf_Data *
    5233                 :          1 : get_dynscn_strtab(Elf *elf, GElf_Phdr *phdr)
    5234                 :            : {
    5235                 :          1 :   Elf_Data *strtab_data;
    5236                 :          1 :   GElf_Addr addrs[i_max] = {0,};
    5237                 :          1 :   GElf_Off offs[i_max] = {0,};
    5238                 :          1 :   get_dynscn_addrs(elf, phdr, addrs);
    5239                 :          1 :   find_offsets(elf, 0, i_max, addrs, offs);
    5240                 :          2 :   strtab_data = elf_getdata_rawchunk(
    5241                 :          1 :           elf, offs[i_strtab], addrs[i_strsz], ELF_T_BYTE);
    5242                 :          1 :   return strtab_data;
    5243                 :            : }
    5244                 :            : 
    5245                 :            : 
    5246                 :            : struct listptr
    5247                 :            : {
    5248                 :            :   Dwarf_Off offset:(64 - 3);
    5249                 :            :   bool addr64:1;
    5250                 :            :   bool dwarf64:1;
    5251                 :            :   bool warned:1;
    5252                 :            :   struct Dwarf_CU *cu;
    5253                 :            :   unsigned int attr;
    5254                 :            : };
    5255                 :            : 
    5256                 :            : #define listptr_offset_size(p)  ((p)->dwarf64 ? 8 : 4)
    5257                 :            : #define listptr_address_size(p) ((p)->addr64 ? 8 : 4)
    5258                 :            : 
    5259                 :            : static Dwarf_Addr
    5260                 :      10124 : cudie_base (Dwarf_Die *cudie)
    5261                 :            : {
    5262                 :      10124 :   Dwarf_Addr base;
    5263                 :            :   /* Find the base address of the compilation unit.  It will normally
    5264                 :            :      be specified by DW_AT_low_pc.  In DWARF-3 draft 4, the base
    5265                 :            :      address could be overridden by DW_AT_entry_pc.  It's been
    5266                 :            :      removed, but GCC emits DW_AT_entry_pc and not DW_AT_lowpc for
    5267                 :            :      compilation units with discontinuous ranges.  */
    5268         [ -  + ]:      10124 :   if (unlikely (dwarf_lowpc (cudie, &base) != 0))
    5269                 :            :     {
    5270                 :          0 :       Dwarf_Attribute attr_mem;
    5271         [ #  # ]:          0 :       if (dwarf_formaddr (dwarf_attr (cudie, DW_AT_entry_pc, &attr_mem),
    5272                 :            :                           &base) != 0)
    5273                 :          0 :         base = 0;
    5274                 :            :     }
    5275                 :      10124 :   return base;
    5276                 :            : }
    5277                 :            : 
    5278                 :            : static Dwarf_Addr
    5279                 :      10124 : listptr_base (struct listptr *p)
    5280                 :            : {
    5281                 :      10124 :   Dwarf_Die cu = CUDIE (p->cu);
    5282                 :      10124 :   return cudie_base (&cu);
    5283                 :            : }
    5284                 :            : 
    5285                 :            : /* To store the name used in compare_listptr */
    5286                 :            : static const char *sort_listptr_name;
    5287                 :            : 
    5288                 :            : static int
    5289                 :     832485 : compare_listptr (const void *a, const void *b)
    5290                 :            : {
    5291                 :     832485 :   const char *name = sort_listptr_name;
    5292                 :     832485 :   struct listptr *p1 = (void *) a;
    5293                 :     832485 :   struct listptr *p2 = (void *) b;
    5294                 :            : 
    5295         [ +  + ]:     832485 :   if (p1->offset < p2->offset)
    5296                 :            :     return -1;
    5297         [ +  + ]:      80446 :   if (p1->offset > p2->offset)
    5298                 :            :     return 1;
    5299                 :            : 
    5300   [ +  -  -  + ]:       3823 :   if (!p1->warned && !p2->warned)
    5301                 :            :     {
    5302         [ -  + ]:       3823 :       if (p1->addr64 != p2->addr64)
    5303                 :            :         {
    5304                 :          0 :           p1->warned = p2->warned = true;
    5305                 :       3823 :           error (0, 0,
    5306                 :          0 :                  _("%s %#" PRIx64 " used with different address sizes"),
    5307                 :            :                  name, (uint64_t) p1->offset);
    5308                 :            :         }
    5309         [ -  + ]:       3823 :       if (p1->dwarf64 != p2->dwarf64)
    5310                 :            :         {
    5311                 :          0 :           p1->warned = p2->warned = true;
    5312                 :       3823 :           error (0, 0,
    5313                 :          0 :                  _("%s %#" PRIx64 " used with different offset sizes"),
    5314                 :          0 :                  name, (uint64_t) p1->offset);
    5315                 :            :         }
    5316         [ -  + ]:       3823 :       if (listptr_base (p1) != listptr_base (p2))
    5317                 :            :         {
    5318                 :          0 :           p1->warned = p2->warned = true;
    5319                 :       3823 :           error (0, 0,
    5320                 :          0 :                  _("%s %#" PRIx64 " used with different base addresses"),
    5321                 :          0 :                  name, (uint64_t) p1->offset);
    5322                 :            :         }
    5323         [ +  - ]:       3823 :       if (p1->attr != p2 ->attr)
    5324                 :            :         {
    5325                 :          0 :           p1->warned = p2->warned = true;
    5326                 :          0 :           error (0, 0,
    5327                 :          0 :                  _("%s %#" PRIx64
    5328                 :            :                           " used with different attribute %s and %s"),
    5329                 :          0 :                  name, (uint64_t) p1->offset, dwarf_attr_name (p1->attr),
    5330                 :            :                  dwarf_attr_name (p2->attr));
    5331                 :            :         }
    5332                 :            :     }
    5333                 :            : 
    5334                 :            :   return 0;
    5335                 :            : }
    5336                 :            : 
    5337                 :            : struct listptr_table
    5338                 :            : {
    5339                 :            :   size_t n;
    5340                 :            :   size_t alloc;
    5341                 :            :   struct listptr *table;
    5342                 :            : };
    5343                 :            : 
    5344                 :            : static struct listptr_table known_locsptr;
    5345                 :            : static struct listptr_table known_loclistsptr;
    5346                 :            : static struct listptr_table known_rangelistptr;
    5347                 :            : static struct listptr_table known_rnglistptr;
    5348                 :            : static struct listptr_table known_addrbases;
    5349                 :            : static struct listptr_table known_stroffbases;
    5350                 :            : 
    5351                 :            : static void
    5352                 :        261 : reset_listptr (struct listptr_table *table)
    5353                 :            : {
    5354                 :        261 :   free (table->table);
    5355                 :        261 :   table->table = NULL;
    5356                 :        261 :   table->n = table->alloc = 0;
    5357                 :            : }
    5358                 :            : 
    5359                 :            : /* Returns false if offset doesn't fit.  See struct listptr.  */
    5360                 :            : static bool
    5361                 :     121119 : notice_listptr (enum section_e section, struct listptr_table *table,
    5362                 :            :                 uint_fast8_t address_size, uint_fast8_t offset_size,
    5363                 :            :                 struct Dwarf_CU *cu, Dwarf_Off offset, unsigned int attr)
    5364                 :            : {
    5365         [ +  + ]:     121119 :   if (print_debug_sections & section)
    5366                 :            :     {
    5367         [ +  + ]:     120993 :       if (table->n == table->alloc)
    5368                 :            :         {
    5369         [ +  + ]:        200 :           if (table->alloc == 0)
    5370                 :         83 :             table->alloc = 128;
    5371                 :            :           else
    5372                 :        117 :             table->alloc *= 2;
    5373                 :        200 :           table->table = xrealloc (table->table,
    5374                 :        200 :                                    table->alloc * sizeof table->table[0]);
    5375                 :            :         }
    5376                 :            : 
    5377                 :     120993 :       struct listptr *p = &table->table[table->n++];
    5378                 :            : 
    5379                 :     120993 :       *p = (struct listptr)
    5380                 :            :         {
    5381                 :     120993 :           .addr64 = address_size == 8,
    5382                 :     120993 :           .dwarf64 = offset_size == 8,
    5383                 :            :           .offset = offset,
    5384                 :            :           .cu = cu,
    5385                 :            :           .attr = attr
    5386                 :            :         };
    5387                 :            : 
    5388         [ +  - ]:     120993 :       if (p->offset != offset)
    5389                 :            :         {
    5390                 :          0 :           table->n--;
    5391                 :          0 :           return false;
    5392                 :            :         }
    5393                 :            :     }
    5394                 :            :   return true;
    5395                 :            : }
    5396                 :            : 
    5397                 :            : static void
    5398                 :         87 : sort_listptr (struct listptr_table *table, const char *name)
    5399                 :            : {
    5400         [ +  + ]:         87 :   if (table->n > 0)
    5401                 :            :     {
    5402                 :         83 :       sort_listptr_name = name;
    5403                 :         83 :       qsort (table->table, table->n, sizeof table->table[0],
    5404                 :            :              &compare_listptr);
    5405                 :            :     }
    5406                 :         87 : }
    5407                 :            : 
    5408                 :            : static bool
    5409                 :        104 : skip_listptr_hole (struct listptr_table *table, size_t *idxp,
    5410                 :            :                    uint_fast8_t *address_sizep, uint_fast8_t *offset_sizep,
    5411                 :            :                    Dwarf_Addr *base, struct Dwarf_CU **cu, ptrdiff_t offset,
    5412                 :            :                    unsigned char **readp, unsigned char *endp,
    5413                 :            :                    unsigned int *attr)
    5414                 :            : {
    5415         [ -  + ]:        104 :   if (table->n == 0)
    5416                 :            :     return false;
    5417                 :            : 
    5418   [ +  -  +  + ]:        168 :   while (*idxp < table->n && table->table[*idxp].offset < (Dwarf_Off) offset)
    5419                 :         64 :     ++*idxp;
    5420                 :            : 
    5421                 :        104 :   struct listptr *p = &table->table[*idxp];
    5422                 :            : 
    5423         [ +  - ]:        104 :   if (*idxp == table->n
    5424         [ -  + ]:        104 :       || p->offset >= (Dwarf_Off) (endp - *readp + offset))
    5425                 :            :     {
    5426                 :          0 :       *readp = endp;
    5427                 :          0 :       printf (_(" [%6tx]  <UNUSED GARBAGE IN REST OF SECTION>\n"),
    5428                 :            :               offset);
    5429                 :          0 :       return true;
    5430                 :            :     }
    5431                 :            : 
    5432         [ -  + ]:        104 :   if (p->offset != (Dwarf_Off) offset)
    5433                 :            :     {
    5434                 :          0 :       *readp += p->offset - offset;
    5435                 :          0 :       printf (_(" [%6tx]  <UNUSED GARBAGE> ... %" PRIu64 " bytes ...\n"),
    5436                 :            :               offset, (Dwarf_Off) p->offset - offset);
    5437                 :          0 :       return true;
    5438                 :            :     }
    5439                 :            : 
    5440         [ +  - ]:        104 :   if (address_sizep != NULL)
    5441         [ +  + ]:        112 :     *address_sizep = listptr_address_size (p);
    5442         [ +  + ]:        104 :   if (offset_sizep != NULL)
    5443         [ +  - ]:        148 :     *offset_sizep = listptr_offset_size (p);
    5444         [ +  - ]:        104 :   if (base != NULL)
    5445                 :        104 :     *base = listptr_base (p);
    5446         [ +  - ]:        104 :   if (cu != NULL)
    5447                 :        104 :     *cu = p->cu;
    5448         [ +  + ]:        104 :   if (attr != NULL)
    5449                 :         74 :     *attr = p->attr;
    5450                 :            : 
    5451                 :            :   return false;
    5452                 :            : }
    5453                 :            : 
    5454                 :            : static Dwarf_Off
    5455                 :      51978 : next_listptr_offset (struct listptr_table *table, size_t *idxp, Dwarf_Off off)
    5456                 :            : {
    5457                 :            :   /* Note that multiple attributes could in theory point to the same loclist
    5458                 :            :      offset, so make sure we pick one that is bigger than the current one.
    5459                 :            :      The table is sorted on offset.  */
    5460         [ +  - ]:      51978 :   if (*idxp < table->n)
    5461                 :            :     {
    5462         [ +  - ]:     103365 :       while (++*idxp < table->n)
    5463                 :            :         {
    5464                 :     103365 :           Dwarf_Off next = table->table[*idxp].offset;
    5465         [ +  + ]:     103365 :           if (next > off)
    5466                 :      51978 :             return next;
    5467                 :            :         }
    5468                 :            :     }
    5469                 :            :   return 0;
    5470                 :            : }
    5471                 :            : 
    5472                 :            : /* Returns the listptr associated with the given index, or NULL.  */
    5473                 :            : static struct listptr *
    5474                 :     704416 : get_listptr (struct listptr_table *table, size_t idx)
    5475                 :            : {
    5476                 :     704416 :   if (idx >= table->n)
    5477                 :            :     return NULL;
    5478                 :     704315 :   return &table->table[idx];
    5479                 :            : }
    5480                 :            : 
    5481                 :            : /* Returns the next index, base address and CU associated with the
    5482                 :            :    list unit offsets.  If there is none false is returned, otherwise
    5483                 :            :    true.  Assumes the table has been sorted.  */
    5484                 :            : static bool
    5485                 :       2374 : listptr_cu (struct listptr_table *table, size_t *idxp,
    5486                 :            :             Dwarf_Off start, Dwarf_Off end,
    5487                 :            :             Dwarf_Addr *base, struct Dwarf_CU **cu)
    5488                 :            : {
    5489                 :       2374 :   while (*idxp < table->n
    5490   [ +  -  +  + ]:      18547 :          && table->table[*idxp].offset < start)
    5491                 :      16173 :     ++*idxp;
    5492                 :            : 
    5493         [ +  - ]:       2374 :   if (*idxp < table->n
    5494         [ +  - ]:       2374 :       && table->table[*idxp].offset >= start
    5495         [ +  - ]:       2374 :       && table->table[*idxp].offset < end)
    5496                 :            :     {
    5497                 :       2374 :       struct listptr *p = &table->table[*idxp];
    5498                 :       2374 :       *base = listptr_base (p);
    5499                 :       2374 :       *cu = p->cu;
    5500                 :       2374 :       return true;
    5501                 :            :     }
    5502                 :            : 
    5503                 :            :   return false;
    5504                 :            : }
    5505                 :            : 
    5506                 :            : /* Returns the next index with the current CU for the given attribute.
    5507                 :            :    If there is none false is returned, otherwise true.  Assumes the
    5508                 :            :    table has been sorted.  */
    5509                 :            : static bool
    5510                 :     352126 : listptr_attr (struct listptr_table *table, size_t idxp,
    5511                 :            :               Dwarf_Off offset, unsigned int attr)
    5512                 :            : {
    5513                 :     704406 :   struct listptr *listptr;
    5514                 :     704406 :   do
    5515                 :            :     {
    5516         [ +  + ]:     704406 :       listptr = get_listptr (table, idxp);
    5517         [ +  - ]:     704310 :       if (listptr == NULL)
    5518                 :            :         return false;
    5519                 :            : 
    5520   [ +  +  +  + ]:     704310 :       if (listptr->offset == offset && listptr->attr == attr)
    5521                 :            :         return true;
    5522                 :            : 
    5523                 :     652332 :       idxp++;
    5524                 :            :     }
    5525         [ +  + ]:     652332 :   while (listptr->offset <= offset);
    5526                 :            : 
    5527                 :            :   return false;
    5528                 :            : }
    5529                 :            : 
    5530                 :            : static void
    5531                 :         42 : print_debug_abbrev_section (Dwfl_Module *dwflmod __attribute__ ((unused)),
    5532                 :            :                             Ebl *ebl, GElf_Ehdr *ehdr __attribute__ ((unused)),
    5533                 :            :                             Elf_Scn *scn, GElf_Shdr *shdr, Dwarf *dbg)
    5534                 :            : {
    5535                 :         42 :   Elf_Data *elf_data = get_debug_elf_data (dbg, ebl, IDX_debug_abbrev, scn);
    5536         [ +  - ]:         42 :   if (elf_data == NULL)
    5537                 :            :     return;
    5538                 :            : 
    5539                 :         42 :   const size_t sh_size = elf_data->d_size;
    5540                 :            : 
    5541                 :         42 :   printf (_("\nDWARF section [%2zu] '%s' at offset %#" PRIx64 ":\n"
    5542                 :            :                    " [ Code]\n"),
    5543                 :            :           elf_ndxscn (scn), section_name (ebl, shdr),
    5544                 :         42 :           (uint64_t) shdr->sh_offset);
    5545                 :            : 
    5546                 :         42 :   Dwarf_Off offset = 0;
    5547         [ +  + ]:       1738 :   while (offset < sh_size)
    5548                 :            :     {
    5549                 :       1696 :       printf (_("\nAbbreviation section at offset %" PRIu64 ":\n"),
    5550                 :            :               offset);
    5551                 :            : 
    5552                 :     156932 :       while (1)
    5553                 :      77618 :         {
    5554                 :      79314 :           size_t length;
    5555                 :      79314 :           Dwarf_Abbrev abbrev;
    5556                 :            : 
    5557                 :      79314 :           int res = dwarf_offabbrev (dbg, offset, &length, &abbrev);
    5558         [ +  + ]:      79314 :           if (res != 0)
    5559                 :            :             {
    5560         [ -  + ]:       1696 :               if (unlikely (res < 0))
    5561                 :            :                 {
    5562                 :          0 :                   printf (_("\
    5563                 :            :  *** error while reading abbreviation: %s\n"),
    5564                 :            :                           dwarf_errmsg (-1));
    5565                 :          0 :                   return;
    5566                 :            :                 }
    5567                 :            : 
    5568                 :            :               /* This is the NUL byte at the end of the section.  */
    5569                 :       1696 :               ++offset;
    5570                 :       1696 :               break;
    5571                 :            :             }
    5572                 :            : 
    5573                 :            :           /* We know these calls can never fail.  */
    5574                 :      77618 :           unsigned int code = dwarf_getabbrevcode (&abbrev);
    5575                 :      77618 :           unsigned int tag = dwarf_getabbrevtag (&abbrev);
    5576                 :      77618 :           int has_children = dwarf_abbrevhaschildren (&abbrev);
    5577                 :            : 
    5578         [ +  + ]:      77618 :           printf (_(" [%5u] offset: %" PRId64
    5579                 :            :                            ", children: %s, tag: %s\n"),
    5580                 :            :                   code, (int64_t) offset,
    5581                 :            :                   has_children ? yes_str : no_str,
    5582                 :            :                   dwarf_tag_name (tag));
    5583                 :            : 
    5584                 :      77618 :           size_t cnt = 0;
    5585                 :      77618 :           unsigned int name;
    5586                 :      77618 :           unsigned int form;
    5587                 :      77618 :           Dwarf_Sword data;
    5588                 :      77618 :           Dwarf_Off enoffset;
    5589                 :      77618 :           while (dwarf_getabbrevattr_data (&abbrev, cnt, &name, &form,
    5590         [ +  + ]:     443818 :                                            &data, &enoffset) == 0)
    5591                 :            :             {
    5592                 :     366200 :               printf ("          attr: %s, form: %s",
    5593                 :            :                       dwarf_attr_name (name), dwarf_form_name (form));
    5594         [ +  + ]:     366200 :               if (form == DW_FORM_implicit_const)
    5595                 :      26654 :                 printf (" (%" PRId64 ")", data);
    5596                 :     366200 :               printf (", offset: %#" PRIx64 "\n", (uint64_t) enoffset);
    5597                 :     366200 :               ++cnt;
    5598                 :            :             }
    5599                 :            : 
    5600                 :      77618 :           offset += length;
    5601                 :            :         }
    5602                 :            :     }
    5603                 :            : }
    5604                 :            : 
    5605                 :            : 
    5606                 :            : static void
    5607                 :          2 : print_debug_addr_section (Dwfl_Module *dwflmod __attribute__ ((unused)),
    5608                 :            :                           Ebl *ebl, GElf_Ehdr *ehdr,
    5609                 :            :                           Elf_Scn *scn, GElf_Shdr *shdr, Dwarf *dbg)
    5610                 :            : {
    5611                 :          2 :   Elf_Data *data = get_debug_elf_data (dbg, ebl, IDX_debug_addr, scn);
    5612         [ +  - ]:          2 :   if (data == NULL)
    5613                 :            :     return;
    5614                 :            : 
    5615                 :          2 :   printf (_("\
    5616                 :            : \nDWARF section [%2zu] '%s' at offset %#" PRIx64 ":\n"),
    5617                 :            :           elf_ndxscn (scn), section_name (ebl, shdr),
    5618                 :          2 :           (uint64_t) shdr->sh_offset);
    5619                 :            : 
    5620         [ +  - ]:          2 :   if (shdr->sh_size == 0)
    5621                 :            :     return;
    5622                 :            : 
    5623                 :          2 :   size_t idx = 0;
    5624                 :          2 :   sort_listptr (&known_addrbases, "addr_base");
    5625                 :            : 
    5626                 :          2 :   const unsigned char *start = (const unsigned char *) data->d_buf;
    5627                 :          2 :   const unsigned char *readp = start;
    5628                 :          2 :   const unsigned char *readendp = ((const unsigned char *) data->d_buf
    5629                 :          2 :                                    + data->d_size);
    5630                 :            : 
    5631                 :          2 :   while (readp < readendp)
    5632                 :            :     {
    5633                 :            :       /* We cannot really know whether or not there is an header.  The
    5634                 :            :          DebugFission extension to DWARF4 doesn't add one.  The DWARF5
    5635                 :            :          .debug_addr variant does.  Whether or not we have an header,
    5636                 :            :          DW_AT_[GNU_]addr_base points at "index 0".  So if the current
    5637                 :            :          offset equals the CU addr_base then we can just start
    5638                 :            :          printing addresses.  If there is no CU with an exact match
    5639                 :            :          then we'll try to parse the header first.  */
    5640                 :          4 :       Dwarf_Off off = (Dwarf_Off) (readp
    5641                 :          4 :                                    - (const unsigned char *) data->d_buf);
    5642                 :            : 
    5643                 :          4 :       printf ("Table at offset %" PRIx64 " ", off);
    5644                 :            : 
    5645         [ +  - ]:          4 :       struct listptr *listptr = get_listptr (&known_addrbases, idx++);
    5646                 :          4 :       const unsigned char *next_unitp;
    5647                 :            : 
    5648                 :          4 :       uint64_t unit_length;
    5649                 :          4 :       uint16_t version;
    5650                 :          4 :       uint8_t address_size;
    5651                 :          4 :       uint8_t segment_size;
    5652         [ -  + ]:          4 :       if (listptr == NULL)
    5653                 :            :         {
    5654                 :          0 :           error (0, 0, "Warning: No CU references .debug_addr after %" PRIx64,
    5655                 :            :                  off);
    5656                 :            : 
    5657                 :            :           /* We will have to assume it is just addresses to the end... */
    5658         [ #  # ]:          0 :           address_size = ehdr->e_ident[EI_CLASS] == ELFCLASS32 ? 4 : 8;
    5659                 :          0 :           next_unitp = readendp;
    5660                 :          0 :           printf ("Unknown CU:\n");
    5661                 :            :         }
    5662                 :            :       else
    5663                 :            :         {
    5664                 :          4 :           Dwarf_Die cudie;
    5665         [ -  + ]:          4 :           if (dwarf_cu_die (listptr->cu, &cudie,
    5666                 :            :                             NULL, NULL, NULL, NULL,
    5667                 :            :                             NULL, NULL) == NULL)
    5668                 :          0 :             printf ("Unknown CU (%s):\n", dwarf_errmsg (-1));
    5669                 :            :           else
    5670                 :          4 :             printf ("for CU [%6" PRIx64 "]:\n", dwarf_dieoffset (&cudie));
    5671                 :            : 
    5672         [ +  + ]:          4 :           if (listptr->offset == off)
    5673                 :            :             {
    5674         [ -  + ]:          2 :               address_size = listptr_address_size (listptr);
    5675                 :          2 :               segment_size = 0;
    5676                 :          2 :               version = 4;
    5677                 :            : 
    5678                 :            :               /* The addresses start here, but where do they end?  */
    5679         [ +  + ]:          2 :               listptr = get_listptr (&known_addrbases, idx);
    5680         [ -  + ]:          1 :               if (listptr == NULL)
    5681                 :            :                 next_unitp = readendp;
    5682         [ +  - ]:          1 :               else if (listptr->cu->version < 5)
    5683                 :            :                 {
    5684                 :          1 :                   next_unitp = start + listptr->offset;
    5685   [ +  -  -  + ]:          1 :                   if (listptr->offset < off || listptr->offset > data->d_size)
    5686                 :            :                     {
    5687                 :          0 :                       error (0, 0,
    5688                 :            :                              "Warning: Bad address base for next unit at %"
    5689                 :            :                              PRIx64, off);
    5690                 :          0 :                       next_unitp = readendp;
    5691                 :            :                     }
    5692                 :            :                 }
    5693                 :            :               else
    5694                 :            :                 {
    5695                 :            :                   /* Tricky, we don't have a header for this unit, but
    5696                 :            :                      there is one for the next.  We will have to
    5697                 :            :                      "guess" how big it is and subtract it from the
    5698                 :            :                      offset (because that points after the header).  */
    5699         [ #  # ]:          0 :                   unsigned int offset_size = listptr_offset_size (listptr);
    5700                 :          0 :                   Dwarf_Off next_off = (listptr->offset
    5701                 :          0 :                                         - (offset_size == 4 ? 4 : 12) /* len */
    5702                 :            :                                         - 2 /* version */
    5703                 :            :                                         - 1 /* address size */
    5704                 :          0 :                                         - 1); /* segment selector size */
    5705                 :          0 :                   next_unitp = start + next_off;
    5706   [ #  #  #  # ]:          0 :                   if (next_off < off || next_off > data->d_size)
    5707                 :            :                     {
    5708                 :          0 :                       error (0, 0,
    5709                 :            :                              "Warning: Couldn't calculate .debug_addr "
    5710                 :            :                              " unit length at %" PRIx64, off);
    5711                 :          0 :                       next_unitp = readendp;
    5712                 :            :                     }
    5713                 :            :                 }
    5714                 :          2 :               unit_length = (uint64_t) (next_unitp - readp);
    5715                 :            : 
    5716                 :            :               /* Pretend we have a header.  */
    5717                 :          2 :               printf ("\n");
    5718                 :          2 :               printf (_(" Length:         %8" PRIu64 "\n"),
    5719                 :            :                       unit_length);
    5720                 :          2 :               printf (_(" DWARF version:  %8" PRIu16 "\n"), version);
    5721                 :          2 :               printf (_(" Address size:   %8" PRIu64 "\n"),
    5722                 :            :                       (uint64_t) address_size);
    5723                 :          2 :               printf (_(" Segment size:   %8" PRIu64 "\n"),
    5724                 :            :                       (uint64_t) segment_size);
    5725                 :          4 :               printf ("\n");
    5726                 :            :             }
    5727                 :            :           else
    5728                 :            :             {
    5729                 :            :               /* OK, we have to parse an header first.  */
    5730         [ -  + ]:          2 :               unit_length = read_4ubyte_unaligned_inc (dbg, readp);
    5731         [ -  + ]:          2 :               if (unlikely (unit_length == 0xffffffff))
    5732                 :            :                 {
    5733         [ #  # ]:          0 :                   if (unlikely (readp > readendp - 8))
    5734                 :            :                     {
    5735                 :          0 :                     invalid_data:
    5736                 :          0 :                       error (0, 0, "Invalid data");
    5737                 :          0 :                       return;
    5738                 :            :                     }
    5739         [ #  # ]:          0 :                   unit_length = read_8ubyte_unaligned_inc (dbg, readp);
    5740                 :            :                 }
    5741                 :          2 :               printf ("\n");
    5742                 :          2 :               printf (_(" Length:         %8" PRIu64 "\n"),
    5743                 :            :                       unit_length);
    5744                 :            : 
    5745                 :            :               /* We need at least 2-bytes (version) + 1-byte
    5746                 :            :                  (addr_size) + 1-byte (segment_size) = 4 bytes to
    5747                 :            :                  complete the header.  And this unit cannot go beyond
    5748                 :            :                  the section data.  */
    5749         [ +  - ]:          2 :               if (readp > readendp - 4
    5750         [ +  - ]:          2 :                   || unit_length < 4
    5751         [ -  + ]:          2 :                   || unit_length > (uint64_t) (readendp - readp))
    5752                 :          0 :                 goto invalid_data;
    5753                 :            : 
    5754                 :          2 :               next_unitp = readp + unit_length;
    5755                 :            : 
    5756         [ -  + ]:          2 :               version = read_2ubyte_unaligned_inc (dbg, readp);
    5757                 :          2 :               printf (_(" DWARF version:  %8" PRIu16 "\n"), version);
    5758                 :            : 
    5759         [ -  + ]:          2 :               if (version != 5)
    5760                 :            :                 {
    5761                 :          0 :                   error (0, 0, _("Unknown version"));
    5762                 :          0 :                   goto next_unit;
    5763                 :            :                 }
    5764                 :            : 
    5765                 :          2 :               address_size = *readp++;
    5766                 :          2 :               printf (_(" Address size:   %8" PRIu64 "\n"),
    5767                 :            :                       (uint64_t) address_size);
    5768                 :            : 
    5769         [ -  + ]:          2 :               if (address_size != 4 && address_size != 8)
    5770                 :            :                 {
    5771                 :          0 :                   error (0, 0, _("unsupported address size"));
    5772                 :          0 :                   goto next_unit;
    5773                 :            :                 }
    5774                 :            : 
    5775                 :          2 :               segment_size = *readp++;
    5776                 :          2 :               printf (_(" Segment size:   %8" PRIu64 "\n"),
    5777                 :            :                       (uint64_t) segment_size);
    5778                 :          2 :               printf ("\n");
    5779                 :            : 
    5780         [ -  + ]:          2 :               if (segment_size != 0)
    5781                 :            :                 {
    5782                 :          0 :                   error (0, 0, _("unsupported segment size"));
    5783                 :          0 :                   goto next_unit;
    5784                 :            :                 }
    5785                 :            : 
    5786         [ -  + ]:          2 :               if (listptr->offset != (Dwarf_Off) (readp - start))
    5787                 :            :                 {
    5788                 :          0 :                   error (0, 0, "Address index doesn't start after header");
    5789                 :          0 :                   goto next_unit;
    5790                 :            :                 }
    5791                 :            :             }
    5792                 :            :         }
    5793                 :            : 
    5794                 :          4 :       int digits = 1;
    5795                 :          4 :       size_t addresses = (next_unitp - readp) / address_size;
    5796         [ +  + ]:          8 :       while (addresses >= 10)
    5797                 :            :         {
    5798                 :          4 :           ++digits;
    5799                 :          4 :           addresses /= 10;
    5800                 :            :         }
    5801                 :            : 
    5802                 :          4 :       unsigned int uidx = 0;
    5803                 :          4 :       size_t index_offset =  readp - (const unsigned char *) data->d_buf;
    5804                 :          4 :       printf (" Addresses start at offset 0x%zx:\n", index_offset);
    5805                 :         76 :       while (readp <= next_unitp - address_size)
    5806                 :            :         {
    5807   [ -  +  -  +  :         72 :           Dwarf_Addr addr = read_addr_unaligned_inc (address_size, dbg,
             -  -  -  + ]
    5808                 :            :                                                      readp);
    5809                 :         72 :           printf (" [%*u] ", digits, uidx++);
    5810                 :         72 :           print_dwarf_addr (dwflmod, address_size, addr, addr);
    5811         [ +  + ]:         76 :           printf ("\n");
    5812                 :            :         }
    5813                 :          4 :       printf ("\n");
    5814                 :            : 
    5815         [ +  - ]:          4 :       if (readp != next_unitp)
    5816         [ +  + ]:          6 :         error (0, 0, "extra %zd bytes at end of unit",
    5817                 :          0 :                (size_t) (next_unitp - readp));
    5818                 :            : 
    5819                 :          4 :     next_unit:
    5820                 :            :       readp = next_unitp;
    5821                 :            :     }
    5822                 :            : }
    5823                 :            : 
    5824                 :            : /* Print content of DWARF .debug_aranges section.  We fortunately do
    5825                 :            :    not have to know a bit about the structure of the section, libdwarf
    5826                 :            :    takes care of it.  */
    5827                 :            : static void
    5828                 :          1 : print_decoded_aranges_section (Ebl *ebl, GElf_Ehdr *ehdr, Elf_Scn *scn,
    5829                 :            :                                GElf_Shdr *shdr, Dwarf *dbg)
    5830                 :            : {
    5831                 :          1 :   Dwarf_Aranges *aranges;
    5832                 :          1 :   size_t cnt;
    5833         [ -  + ]:          1 :   if (unlikely (dwarf_getaranges (dbg, &aranges, &cnt) != 0))
    5834                 :            :     {
    5835                 :          0 :       error (0, 0, _("cannot get .debug_aranges content: %s"),
    5836                 :            :              dwarf_errmsg (-1));
    5837                 :          0 :       return;
    5838                 :            :     }
    5839                 :            : 
    5840                 :          1 :   GElf_Shdr glink_mem;
    5841                 :          1 :   GElf_Shdr *glink;
    5842                 :          1 :   glink = gelf_getshdr (elf_getscn (ebl->elf, shdr->sh_link), &glink_mem);
    5843         [ -  + ]:          1 :   if (glink == NULL)
    5844                 :            :     {
    5845                 :          0 :       error (0, 0, _("invalid sh_link value in section %zu"),
    5846                 :            :              elf_ndxscn (scn));
    5847                 :          0 :       return;
    5848                 :            :     }
    5849                 :            : 
    5850                 :          1 :   printf (ngettext ("\
    5851                 :            : \nDWARF section [%2zu] '%s' at offset %#" PRIx64 " contains %zu entry:\n",
    5852                 :            :                     "\
    5853                 :            : \nDWARF section [%2zu] '%s' at offset %#" PRIx64 " contains %zu entries:\n",
    5854                 :            :                     cnt),
    5855                 :            :           elf_ndxscn (scn), section_name (ebl, shdr),
    5856                 :          1 :           (uint64_t) shdr->sh_offset, cnt);
    5857                 :            : 
    5858                 :            :   /* Compute floor(log16(cnt)).  */
    5859                 :          1 :   size_t tmp = cnt;
    5860                 :          1 :   int digits = 1;
    5861         [ -  + ]:          1 :   while (tmp >= 16)
    5862                 :            :     {
    5863                 :          0 :       ++digits;
    5864                 :          0 :       tmp >>= 4;
    5865                 :            :     }
    5866                 :            : 
    5867         [ +  + ]:          6 :   for (size_t n = 0; n < cnt; ++n)
    5868                 :            :     {
    5869                 :          5 :       Dwarf_Arange *runp = dwarf_onearange (aranges, n);
    5870         [ -  + ]:          5 :       if (unlikely (runp == NULL))
    5871                 :            :         {
    5872                 :          0 :           printf ("cannot get arange %zu: %s\n", n, dwarf_errmsg (-1));
    5873                 :          0 :           return;
    5874                 :            :         }
    5875                 :            : 
    5876                 :          5 :       Dwarf_Addr start;
    5877                 :          5 :       Dwarf_Word length;
    5878                 :          5 :       Dwarf_Off offset;
    5879                 :            : 
    5880         [ -  + ]:          5 :       if (unlikely (dwarf_getarangeinfo (runp, &start, &length, &offset) != 0))
    5881                 :          0 :         printf (_(" [%*zu] ???\n"), digits, n);
    5882                 :            :       else
    5883                 :          5 :         printf (_(" [%*zu] start: %0#*" PRIx64
    5884                 :            :                          ", length: %5" PRIu64 ", CU DIE offset: %6"
    5885                 :            :                          PRId64 "\n"),
    5886         [ -  + ]:          5 :                 digits, n, ehdr->e_ident[EI_CLASS] == ELFCLASS32 ? 10 : 18,
    5887                 :            :                 (uint64_t) start, (uint64_t) length, (int64_t) offset);
    5888                 :            :     }
    5889                 :            : }
    5890                 :            : 
    5891                 :            : 
    5892                 :            : /* Print content of DWARF .debug_aranges section.  */
    5893                 :            : static void
    5894                 :         46 : print_debug_aranges_section (Dwfl_Module *dwflmod __attribute__ ((unused)),
    5895                 :            :                              Ebl *ebl, GElf_Ehdr *ehdr, Elf_Scn *scn,
    5896                 :            :                              GElf_Shdr *shdr, Dwarf *dbg)
    5897                 :            : {
    5898         [ +  + ]:         46 :   if (decodedaranges)
    5899                 :            :     {
    5900                 :          1 :       print_decoded_aranges_section (ebl, ehdr, scn, shdr, dbg);
    5901                 :          1 :       return;
    5902                 :            :     }
    5903                 :            : 
    5904                 :         45 :   Elf_Data *data = get_debug_elf_data (dbg, ebl, IDX_debug_aranges, scn);
    5905         [ +  - ]:         45 :   if (data == NULL)
    5906                 :            :     return;
    5907                 :            : 
    5908                 :         45 :   printf (_("\
    5909                 :            : \nDWARF section [%2zu] '%s' at offset %#" PRIx64 ":\n"),
    5910                 :            :           elf_ndxscn (scn), section_name (ebl, shdr),
    5911                 :         45 :           (uint64_t) shdr->sh_offset);
    5912                 :            : 
    5913                 :         45 :   const unsigned char *readp = data->d_buf;
    5914                 :         45 :   const unsigned char *readendp = readp + data->d_size;
    5915                 :            : 
    5916         [ +  + ]:       1738 :   while (readp < readendp)
    5917                 :            :     {
    5918                 :       1693 :       const unsigned char *hdrstart = readp;
    5919                 :       1693 :       size_t start_offset = hdrstart - (const unsigned char *) data->d_buf;
    5920                 :            : 
    5921                 :       1693 :       printf (_("\nTable at offset %zu:\n"), start_offset);
    5922         [ -  + ]:       1693 :       if (readp + 4 > readendp)
    5923                 :            :         {
    5924                 :          0 :         invalid_data:
    5925                 :          0 :           error (0, 0, _("invalid data in section [%zu] '%s'"),
    5926                 :            :                  elf_ndxscn (scn), section_name (ebl, shdr));
    5927                 :          0 :           return;
    5928                 :            :         }
    5929                 :            : 
    5930         [ +  + ]:       1693 :       Dwarf_Word length = read_4ubyte_unaligned_inc (dbg, readp);
    5931                 :       1693 :       unsigned int length_bytes = 4;
    5932         [ -  + ]:       1693 :       if (length == DWARF3_LENGTH_64_BIT)
    5933                 :            :         {
    5934         [ #  # ]:          0 :           if (readp + 8 > readendp)
    5935                 :          0 :             goto invalid_data;
    5936         [ #  # ]:          0 :           length = read_8ubyte_unaligned_inc (dbg, readp);
    5937                 :          0 :           length_bytes = 8;
    5938                 :            :         }
    5939                 :            : 
    5940                 :       1693 :       const unsigned char *nexthdr = readp + length;
    5941                 :       1693 :       printf (_("\n Length:        %6" PRIu64 "\n"),
    5942                 :            :               (uint64_t) length);
    5943                 :            : 
    5944         [ -  + ]:       1693 :       if (unlikely (length > (size_t) (readendp - readp)))
    5945                 :          0 :         goto invalid_data;
    5946                 :            : 
    5947         [ -  + ]:       1693 :       if (length == 0)
    5948                 :          0 :         continue;
    5949                 :            : 
    5950         [ -  + ]:       1693 :       if (readp + 2 > readendp)
    5951                 :          0 :         goto invalid_data;
    5952         [ +  + ]:       1693 :       uint_fast16_t version = read_2ubyte_unaligned_inc (dbg, readp);
    5953                 :       1693 :       printf (_(" DWARF version: %6" PRIuFAST16 "\n"),
    5954                 :            :               version);
    5955         [ -  + ]:       1693 :       if (version != 2)
    5956                 :            :         {
    5957                 :          0 :           error (0, 0, _("unsupported aranges version"));
    5958                 :          0 :           goto next_table;
    5959                 :            :         }
    5960                 :            : 
    5961                 :       1693 :       Dwarf_Word offset;
    5962         [ -  + ]:       1693 :       if (readp + length_bytes > readendp)
    5963                 :          0 :         goto invalid_data;
    5964         [ -  + ]:       1693 :       if (length_bytes == 8)
    5965         [ #  # ]:          0 :         offset = read_8ubyte_unaligned_inc (dbg, readp);
    5966                 :            :       else
    5967         [ +  + ]:       1693 :         offset = read_4ubyte_unaligned_inc (dbg, readp);
    5968                 :       1693 :       printf (_(" CU offset:     %6" PRIx64 "\n"),
    5969                 :            :               (uint64_t) offset);
    5970                 :            : 
    5971         [ -  + ]:       1693 :       if (readp + 1 > readendp)
    5972                 :          0 :         goto invalid_data;
    5973                 :       1693 :       unsigned int address_size = *readp++;
    5974                 :       1693 :       printf (_(" Address size:  %6" PRIu64 "\n"),
    5975                 :            :               (uint64_t) address_size);
    5976         [ -  + ]:       1693 :       if (address_size != 4 && address_size != 8)
    5977                 :            :         {
    5978                 :          0 :           error (0, 0, _("unsupported address size"));
    5979                 :          0 :           goto next_table;
    5980                 :            :         }
    5981                 :            : 
    5982         [ -  + ]:       1693 :       if (readp + 1 > readendp)
    5983                 :          0 :         goto invalid_data;
    5984                 :       1693 :       unsigned int segment_size = *readp++;
    5985                 :       1693 :       printf (_(" Segment size:  %6" PRIu64 "\n\n"),
    5986                 :            :               (uint64_t) segment_size);
    5987   [ -  +  -  - ]:       1693 :       if (segment_size != 0 && segment_size != 4 && segment_size != 8)
    5988                 :            :         {
    5989                 :          0 :           error (0, 0, _("unsupported segment size"));
    5990                 :          0 :           goto next_table;
    5991                 :            :         }
    5992                 :            : 
    5993                 :            :       /* Round the address to the next multiple of 2*address_size.  */
    5994                 :       1693 :       readp += ((2 * address_size - ((readp - hdrstart) % (2 * address_size)))
    5995                 :       1693 :                 % (2 * address_size));
    5996                 :            : 
    5997                 :       1693 :       while (readp < nexthdr)
    5998                 :            :         {
    5999                 :       3523 :           Dwarf_Word range_address;
    6000                 :       3523 :           Dwarf_Word range_length;
    6001                 :       3523 :           Dwarf_Word segment = 0;
    6002         [ -  + ]:       3523 :           if (readp + 2 * address_size + segment_size > readendp)
    6003                 :          0 :             goto invalid_data;
    6004         [ +  + ]:       3523 :           if (address_size == 4)
    6005                 :            :             {
    6006         [ +  + ]:         46 :               range_address = read_4ubyte_unaligned_inc (dbg, readp);
    6007         [ +  + ]:         46 :               range_length = read_4ubyte_unaligned_inc (dbg, readp);
    6008                 :            :             }
    6009                 :            :           else
    6010                 :            :             {
    6011         [ +  + ]:       3477 :               range_address = read_8ubyte_unaligned_inc (dbg, readp);
    6012         [ +  + ]:       3477 :               range_length = read_8ubyte_unaligned_inc (dbg, readp);
    6013                 :            :             }
    6014                 :            : 
    6015         [ -  + ]:       3523 :           if (segment_size == 4)
    6016         [ #  # ]:          0 :             segment = read_4ubyte_unaligned_inc (dbg, readp);
    6017         [ -  + ]:       3523 :           else if (segment_size == 8)
    6018         [ #  # ]:          0 :             segment = read_8ubyte_unaligned_inc (dbg, readp);
    6019                 :            : 
    6020         [ +  + ]:       3523 :           if (range_address == 0 && range_length == 0 && segment == 0)
    6021                 :            :             break;
    6022                 :            : 
    6023                 :       1830 :           printf ("   ");
    6024                 :       1830 :           print_dwarf_addr (dwflmod, address_size, range_address,
    6025                 :            :                             range_address);
    6026                 :       1830 :           printf ("..");
    6027                 :       1830 :           print_dwarf_addr (dwflmod, address_size,
    6028                 :       1830 :                             range_address + range_length - 1,
    6029                 :            :                             range_length);
    6030         [ -  + ]:       1830 :           if (segment_size != 0)
    6031                 :          0 :             printf (" (%" PRIx64 ")\n", (uint64_t) segment);
    6032                 :            :           else
    6033         [ +  - ]:       5353 :             printf ("\n");
    6034                 :            :         }
    6035                 :            : 
    6036                 :       1693 :     next_table:
    6037         [ -  + ]:       1693 :       if (readp != nexthdr)
    6038                 :            :         {
    6039                 :          0 :           size_t padding = nexthdr - readp;
    6040                 :          0 :           printf (_("   %zu padding bytes\n"), padding);
    6041                 :          0 :           readp = nexthdr;
    6042                 :            :         }
    6043                 :            :     }
    6044                 :            : }
    6045                 :            : 
    6046                 :            : 
    6047                 :            : static bool is_split_dwarf (Dwarf *dbg, uint64_t *id, Dwarf_CU **split_cu);
    6048                 :            : 
    6049                 :            : /* Returns true and sets cu and cu_base if the given Dwarf is a split
    6050                 :            :    DWARF (.dwo) file.  */
    6051                 :            : static bool
    6052                 :          0 : split_dwarf_cu_base (Dwarf *dbg, Dwarf_CU **cu, Dwarf_Addr *cu_base)
    6053                 :            : {
    6054                 :          0 :   uint64_t id;
    6055         [ #  # ]:          0 :   if (is_split_dwarf (dbg, &id, cu))
    6056                 :            :     {
    6057                 :          0 :       Dwarf_Die cudie;
    6058         [ #  # ]:          0 :       if (dwarf_cu_info (*cu, NULL, NULL, &cudie, NULL, NULL, NULL, NULL) == 0)
    6059                 :            :         {
    6060                 :          0 :           *cu_base = cudie_base (&cudie);
    6061                 :          0 :           return true;
    6062                 :            :         }
    6063                 :            :     }
    6064                 :            :   return false;
    6065                 :            : }
    6066                 :            : 
    6067                 :            : /* Print content of DWARF .debug_rnglists section.  */
    6068                 :            : static void
    6069                 :         19 : print_debug_rnglists_section (Dwfl_Module *dwflmod,
    6070                 :            :                               Ebl *ebl,
    6071                 :            :                               GElf_Ehdr *ehdr __attribute__ ((unused)),
    6072                 :            :                               Elf_Scn *scn, GElf_Shdr *shdr,
    6073                 :            :                               Dwarf *dbg __attribute__((unused)))
    6074                 :            : {
    6075                 :         19 :   Elf_Data *data = get_debug_elf_data (dbg, ebl, IDX_debug_rnglists, scn);
    6076         [ +  - ]:         19 :   if (data == NULL)
    6077                 :          0 :     return;
    6078                 :            : 
    6079                 :         19 :   printf (_("\
    6080                 :            : \nDWARF section [%2zu] '%s' at offset %#" PRIx64 ":\n"),
    6081                 :            :           elf_ndxscn (scn), section_name (ebl, shdr),
    6082                 :         19 :           (uint64_t) shdr->sh_offset);
    6083                 :            : 
    6084                 :            :   /* For the listptr to get the base address/CU.  */
    6085                 :         19 :   sort_listptr (&known_rnglistptr, "rnglistptr");
    6086                 :         19 :   size_t listptr_idx = 0;
    6087                 :            : 
    6088                 :         19 :   const unsigned char *readp = data->d_buf;
    6089                 :         19 :   const unsigned char *const dataend = ((unsigned char *) data->d_buf
    6090                 :         19 :                                         + data->d_size);
    6091         [ +  + ]:        932 :   while (readp < dataend)
    6092                 :            :     {
    6093         [ -  + ]:        913 :       if (unlikely (readp > dataend - 4))
    6094                 :            :         {
    6095                 :          0 :         invalid_data:
    6096                 :          0 :           error (0, 0, _("invalid data in section [%zu] '%s'"),
    6097                 :            :                  elf_ndxscn (scn), section_name (ebl, shdr));
    6098                 :          0 :           return;
    6099                 :            :         }
    6100                 :            : 
    6101                 :        913 :       ptrdiff_t offset = readp - (unsigned char *) data->d_buf;
    6102                 :        913 :       printf (_("Table at Offset 0x%" PRIx64 ":\n\n"),
    6103                 :            :               (uint64_t) offset);
    6104                 :            : 
    6105         [ -  + ]:        913 :       uint64_t unit_length = read_4ubyte_unaligned_inc (dbg, readp);
    6106                 :        913 :       unsigned int offset_size = 4;
    6107         [ -  + ]:        913 :       if (unlikely (unit_length == 0xffffffff))
    6108                 :            :         {
    6109         [ #  # ]:          0 :           if (unlikely (readp > dataend - 8))
    6110                 :          0 :             goto invalid_data;
    6111                 :            : 
    6112         [ #  # ]:          0 :           unit_length = read_8ubyte_unaligned_inc (dbg, readp);
    6113                 :          0 :           offset_size = 8;
    6114                 :            :         }
    6115                 :        913 :       printf (_(" Length:         %8" PRIu64 "\n"), unit_length);
    6116                 :            : 
    6117                 :            :       /* We need at least 2-bytes + 1-byte + 1-byte + 4-bytes = 8
    6118                 :            :          bytes to complete the header.  And this unit cannot go beyond
    6119                 :            :          the section data.  */
    6120         [ +  - ]:        913 :       if (readp > dataend - 8
    6121         [ +  - ]:        913 :           || unit_length < 8
    6122         [ -  + ]:        913 :           || unit_length > (uint64_t) (dataend - readp))
    6123                 :          0 :         goto invalid_data;
    6124                 :            : 
    6125                 :        913 :       const unsigned char *nexthdr = readp + unit_length;
    6126                 :            : 
    6127         [ -  + ]:        913 :       uint16_t version = read_2ubyte_unaligned_inc (dbg, readp);
    6128                 :        913 :       printf (_(" DWARF version:  %8" PRIu16 "\n"), version);
    6129                 :            : 
    6130         [ -  + ]:        913 :       if (version != 5)
    6131                 :            :         {
    6132                 :          0 :           error (0, 0, _("Unknown version"));
    6133                 :          0 :           goto next_table;
    6134                 :            :         }
    6135                 :            : 
    6136                 :        913 :       uint8_t address_size = *readp++;
    6137                 :        913 :       printf (_(" Address size:   %8" PRIu64 "\n"),
    6138                 :            :               (uint64_t) address_size);
    6139                 :            : 
    6140         [ -  + ]:        913 :       if (address_size != 4 && address_size != 8)
    6141                 :            :         {
    6142                 :          0 :           error (0, 0, _("unsupported address size"));
    6143                 :          0 :           goto next_table;
    6144                 :            :         }
    6145                 :            : 
    6146                 :        913 :       uint8_t segment_size = *readp++;
    6147                 :        913 :       printf (_(" Segment size:   %8" PRIu64 "\n"),
    6148                 :            :               (uint64_t) segment_size);
    6149                 :            : 
    6150   [ -  +  -  - ]:        913 :       if (segment_size != 0 && segment_size != 4 && segment_size != 8)
    6151                 :            :         {
    6152                 :          0 :           error (0, 0, _("unsupported segment size"));
    6153                 :          0 :           goto next_table;
    6154                 :            :         }
    6155                 :            : 
    6156         [ -  + ]:        913 :       uint32_t offset_entry_count = read_4ubyte_unaligned_inc (dbg, readp);
    6157                 :        913 :       printf (_(" Offset entries: %8" PRIu64 "\n"),
    6158                 :            :               (uint64_t) offset_entry_count);
    6159                 :            : 
    6160                 :            :       /* We need the CU that uses this unit to get the initial base address. */
    6161                 :        913 :       Dwarf_Addr cu_base = 0;
    6162                 :        913 :       struct Dwarf_CU *cu = NULL;
    6163         [ -  + ]:        913 :       if (listptr_cu (&known_rnglistptr, &listptr_idx,
    6164                 :            :                       (Dwarf_Off) offset,
    6165                 :        913 :                       (Dwarf_Off) (nexthdr - (unsigned char *) data->d_buf),
    6166                 :            :                       &cu_base, &cu)
    6167         [ #  # ]:          0 :           || split_dwarf_cu_base (dbg, &cu, &cu_base))
    6168                 :        913 :         {
    6169                 :        913 :           Dwarf_Die cudie;
    6170         [ -  + ]:        913 :           if (dwarf_cu_die (cu, &cudie,
    6171                 :            :                             NULL, NULL, NULL, NULL,
    6172                 :            :                             NULL, NULL) == NULL)
    6173                 :          0 :             printf (_(" Unknown CU base: "));
    6174                 :            :           else
    6175                 :        913 :             printf (_(" CU [%6" PRIx64 "] base: "),
    6176                 :            :                     dwarf_dieoffset (&cudie));
    6177                 :        913 :           print_dwarf_addr (dwflmod, address_size, cu_base, cu_base);
    6178                 :        913 :           printf ("\n");
    6179                 :            :         }
    6180                 :            :       else
    6181                 :          0 :         printf (_(" Not associated with a CU.\n"));
    6182                 :            : 
    6183                 :        913 :       printf ("\n");
    6184                 :            : 
    6185                 :        913 :       const unsigned char *offset_array_start = readp;
    6186         [ +  + ]:        913 :       if (offset_entry_count > 0)
    6187                 :            :         {
    6188                 :          1 :           uint64_t max_entries = (unit_length - 8) / offset_size;
    6189         [ -  + ]:          1 :           if (offset_entry_count > max_entries)
    6190                 :            :             {
    6191                 :          0 :               error (0, 0,
    6192                 :          0 :                      _("too many offset entries for unit length"));
    6193                 :          0 :               offset_entry_count = max_entries;
    6194                 :            :             }
    6195                 :            : 
    6196                 :          1 :           printf (_("  Offsets starting at 0x%" PRIx64 ":\n"),
    6197                 :            :                   (uint64_t) (offset_array_start
    6198                 :          1 :                               - (unsigned char *) data->d_buf));
    6199         [ +  + ]:          3 :           for (uint32_t idx = 0; idx < offset_entry_count; idx++)
    6200                 :            :             {
    6201                 :          2 :               printf ("   [%6" PRIu32 "] ", idx);
    6202         [ +  - ]:          2 :               if (offset_size == 4)
    6203                 :            :                 {
    6204         [ -  + ]:          2 :                   uint32_t off = read_4ubyte_unaligned_inc (dbg, readp);
    6205                 :          2 :                   printf ("0x%" PRIx32 "\n", off);
    6206                 :            :                 }
    6207                 :            :               else
    6208                 :            :                 {
    6209         [ #  # ]:          0 :                   uint64_t off = read_8ubyte_unaligned_inc (dbg, readp);
    6210                 :          2 :                   printf ("0x%" PRIx64 "\n", off);
    6211                 :            :                 }
    6212                 :            :             }
    6213                 :          1 :           printf ("\n");
    6214                 :            :         }
    6215                 :            : 
    6216                 :        913 :       Dwarf_Addr base = cu_base;
    6217                 :        913 :       bool start_of_list = true;
    6218                 :        913 :       while (readp < nexthdr)
    6219                 :            :         {
    6220                 :      64578 :           uint8_t kind = *readp++;
    6221                 :      64578 :           uint64_t op1, op2;
    6222                 :            : 
    6223                 :            :           /* Skip padding.  */
    6224         [ -  + ]:      64578 :           if (start_of_list && kind == DW_RLE_end_of_list)
    6225                 :          0 :             continue;
    6226                 :            : 
    6227         [ +  + ]:      64578 :           if (start_of_list)
    6228                 :            :             {
    6229                 :      13461 :               base = cu_base;
    6230                 :      13461 :               printf ("  Offset: %" PRIx64 ", Index: %" PRIx64 "\n",
    6231                 :      13461 :                       (uint64_t) (readp - (unsigned char *) data->d_buf - 1),
    6232                 :      13461 :                       (uint64_t) (readp - offset_array_start - 1));
    6233                 :      13461 :               start_of_list = false;
    6234                 :            :             }
    6235                 :            : 
    6236                 :      64578 :           printf ("    %s", dwarf_range_list_encoding_name (kind));
    6237   [ +  -  -  -  :      64578 :           switch (kind)
             +  +  -  +  
                      - ]
    6238                 :            :             {
    6239                 :      13461 :             case DW_RLE_end_of_list:
    6240                 :      13461 :               start_of_list = true;
    6241                 :      13461 :               printf ("\n\n");
    6242                 :            :               break;
    6243                 :            : 
    6244                 :          0 :             case DW_RLE_base_addressx:
    6245         [ #  # ]:          0 :               if ((uint64_t) (nexthdr - readp) < 1)
    6246                 :            :                 {
    6247                 :          0 :                 invalid_range:
    6248                 :          0 :                   error (0, 0, _("invalid range list data"));
    6249                 :          0 :                   goto next_table;
    6250                 :            :                 }
    6251                 :          0 :               get_uleb128 (op1, readp, nexthdr);
    6252                 :          0 :               printf (" %" PRIx64 "\n", op1);
    6253         [ #  # ]:          0 :               if (! print_unresolved_addresses)
    6254                 :            :                 {
    6255                 :          0 :                   Dwarf_Addr addr;
    6256         [ #  # ]:          0 :                   if (get_indexed_addr (cu, op1, &addr) != 0)
    6257                 :          0 :                     printf ("      ???\n");
    6258                 :            :                   else
    6259                 :            :                     {
    6260                 :          0 :                       printf ("      ");
    6261                 :          0 :                       print_dwarf_addr (dwflmod, address_size, addr, addr);
    6262                 :          0 :                       printf ("\n");
    6263                 :            :                     }
    6264                 :            :                 }
    6265                 :            :               break;
    6266                 :            : 
    6267                 :          0 :             case DW_RLE_startx_endx:
    6268         [ #  # ]:          0 :               if ((uint64_t) (nexthdr - readp) < 1)
    6269                 :          0 :                 goto invalid_range;
    6270                 :          0 :               get_uleb128 (op1, readp, nexthdr);
    6271         [ #  # ]:          0 :               if ((uint64_t) (nexthdr - readp) < 1)
    6272                 :          0 :                 goto invalid_range;
    6273                 :          0 :               get_uleb128 (op2, readp, nexthdr);
    6274                 :          0 :               printf (" %" PRIx64 ", %" PRIx64 "\n", op1, op2);
    6275         [ #  # ]:          0 :               if (! print_unresolved_addresses)
    6276                 :            :                 {
    6277                 :          0 :                   Dwarf_Addr addr1;
    6278                 :          0 :                   Dwarf_Addr addr2;
    6279         [ #  # ]:          0 :                   if (get_indexed_addr (cu, op1, &addr1) != 0
    6280         [ #  # ]:          0 :                       || get_indexed_addr (cu, op2, &addr2) != 0)
    6281                 :            :                     {
    6282                 :          0 :                       printf ("      ???..\n");
    6283                 :          0 :                       printf ("      ???\n");
    6284                 :            :                     }
    6285                 :            :                   else
    6286                 :            :                     {
    6287                 :          0 :                       printf ("      ");
    6288                 :          0 :                       print_dwarf_addr (dwflmod, address_size, addr1, addr1);
    6289                 :          0 :                       printf ("..\n      ");
    6290                 :          0 :                       print_dwarf_addr (dwflmod, address_size,
    6291                 :            :                                         addr2 - 1, addr2);
    6292                 :          0 :                       printf ("\n");
    6293                 :            :                     }
    6294                 :            :                 }
    6295                 :            :               break;
    6296                 :            : 
    6297                 :          0 :             case DW_RLE_startx_length:
    6298         [ #  # ]:          0 :               if ((uint64_t) (nexthdr - readp) < 1)
    6299                 :          0 :                 goto invalid_range;
    6300                 :          0 :               get_uleb128 (op1, readp, nexthdr);
    6301         [ #  # ]:          0 :               if ((uint64_t) (nexthdr - readp) < 1)
    6302                 :          0 :                 goto invalid_range;
    6303                 :          0 :               get_uleb128 (op2, readp, nexthdr);
    6304                 :          0 :               printf (" %" PRIx64 ", %" PRIx64 "\n", op1, op2);
    6305         [ #  # ]:          0 :               if (! print_unresolved_addresses)
    6306                 :            :                 {
    6307                 :          0 :                   Dwarf_Addr addr1;
    6308                 :          0 :                   Dwarf_Addr addr2;
    6309         [ #  # ]:          0 :                   if (get_indexed_addr (cu, op1, &addr1) != 0)
    6310                 :            :                     {
    6311                 :          0 :                       printf ("      ???..\n");
    6312                 :          0 :                       printf ("      ???\n");
    6313                 :            :                     }
    6314                 :            :                   else
    6315                 :            :                     {
    6316                 :          0 :                       addr2 = addr1 + op2;
    6317                 :          0 :                       printf ("      ");
    6318                 :          0 :                       print_dwarf_addr (dwflmod, address_size, addr1, addr1);
    6319                 :          0 :                       printf ("..\n      ");
    6320                 :          0 :                       print_dwarf_addr (dwflmod, address_size,
    6321                 :            :                                         addr2 - 1, addr2);
    6322                 :          0 :                       printf ("\n");
    6323                 :            :                     }
    6324                 :            :                 }
    6325                 :            :               break;
    6326                 :            : 
    6327                 :      46485 :             case DW_RLE_offset_pair:
    6328         [ -  + ]:      46485 :               if ((uint64_t) (nexthdr - readp) < 1)
    6329                 :          0 :                 goto invalid_range;
    6330                 :      46485 :               get_uleb128 (op1, readp, nexthdr);
    6331         [ -  + ]:      46485 :               if ((uint64_t) (nexthdr - readp) < 1)
    6332                 :          0 :                 goto invalid_range;
    6333                 :      46485 :               get_uleb128 (op2, readp, nexthdr);
    6334                 :      46485 :               printf (" %" PRIx64 ", %" PRIx64 "\n", op1, op2);
    6335         [ +  - ]:      46485 :               if (! print_unresolved_addresses)
    6336                 :            :                 {
    6337                 :      46485 :                   op1 += base;
    6338                 :      46485 :                   op2 += base;
    6339                 :      46485 :                   printf ("      ");
    6340                 :      46485 :                   print_dwarf_addr (dwflmod, address_size, op1, op1);
    6341                 :      46485 :                   printf ("..\n      ");
    6342                 :      46485 :                   print_dwarf_addr (dwflmod, address_size, op2 - 1, op2);
    6343                 :      46485 :                   printf ("\n");
    6344                 :            :                 }
    6345                 :            :               break;
    6346                 :            : 
    6347                 :       4175 :             case DW_RLE_base_address:
    6348         [ -  + ]:       4175 :               if (address_size == 4)
    6349                 :            :                 {
    6350         [ #  # ]:          0 :                   if ((uint64_t) (nexthdr - readp) < 4)
    6351                 :          0 :                     goto invalid_range;
    6352         [ #  # ]:          0 :                   op1 = read_4ubyte_unaligned_inc (dbg, readp);
    6353                 :            :                 }
    6354                 :            :               else
    6355                 :            :                 {
    6356         [ -  + ]:       4175 :                   if ((uint64_t) (nexthdr - readp) < 8)
    6357                 :          0 :                     goto invalid_range;
    6358         [ -  + ]:       4175 :                   op1 = read_8ubyte_unaligned_inc (dbg, readp);
    6359                 :            :                 }
    6360                 :       4175 :               base = op1;
    6361                 :       4175 :               printf (" 0x%" PRIx64 "\n", base);
    6362         [ -  + ]:       4175 :               if (! print_unresolved_addresses)
    6363                 :            :                 {
    6364                 :       4175 :                   printf ("      ");
    6365                 :       4175 :                   print_dwarf_addr (dwflmod, address_size, base, base);
    6366                 :       4175 :                   printf ("\n");
    6367                 :            :                 }
    6368                 :            :               break;
    6369                 :            : 
    6370                 :          0 :             case DW_RLE_start_end:
    6371         [ #  # ]:          0 :               if (address_size == 4)
    6372                 :            :                 {
    6373         [ #  # ]:          0 :                   if ((uint64_t) (nexthdr - readp) < 8)
    6374                 :          0 :                     goto invalid_range;
    6375         [ #  # ]:          0 :                   op1 = read_4ubyte_unaligned_inc (dbg, readp);
    6376         [ #  # ]:          0 :                   op2 = read_4ubyte_unaligned_inc (dbg, readp);
    6377                 :            :                 }
    6378                 :            :               else
    6379                 :            :                 {
    6380         [ #  # ]:          0 :                   if ((uint64_t) (nexthdr - readp) < 16)
    6381                 :          0 :                     goto invalid_range;
    6382         [ #  # ]:          0 :                   op1 = read_8ubyte_unaligned_inc (dbg, readp);
    6383         [ #  # ]:          0 :                   op2 = read_8ubyte_unaligned_inc (dbg, readp);
    6384                 :            :                 }
    6385                 :          0 :               printf (" 0x%" PRIx64 "..0x%" PRIx64 "\n", op1, op2);
    6386         [ #  # ]:          0 :               if (! print_unresolved_addresses)
    6387                 :            :                 {
    6388                 :          0 :                   printf ("      ");
    6389                 :          0 :                   print_dwarf_addr (dwflmod, address_size, op1, op1);
    6390                 :          0 :                   printf ("..\n      ");
    6391                 :          0 :                   print_dwarf_addr (dwflmod, address_size, op2 - 1, op2);
    6392                 :          0 :                   printf ("\n");
    6393                 :            :                 }
    6394                 :            :               break;
    6395                 :            : 
    6396                 :        457 :             case DW_RLE_start_length:
    6397         [ -  + ]:        457 :               if (address_size == 4)
    6398                 :            :                 {
    6399         [ #  # ]:          0 :                   if ((uint64_t) (nexthdr - readp) < 4)
    6400                 :          0 :                     goto invalid_range;
    6401         [ #  # ]:          0 :                   op1 = read_4ubyte_unaligned_inc (dbg, readp);
    6402                 :            :                 }
    6403                 :            :               else
    6404                 :            :                 {
    6405         [ -  + ]:        457 :                   if ((uint64_t) (nexthdr - readp) < 8)
    6406                 :          0 :                     goto invalid_range;
    6407         [ -  + ]:        457 :                   op1 = read_8ubyte_unaligned_inc (dbg, readp);
    6408                 :            :                 }
    6409         [ -  + ]:        457 :               if ((uint64_t) (nexthdr - readp) < 1)
    6410                 :          0 :                 goto invalid_range;
    6411                 :        457 :               get_uleb128 (op2, readp, nexthdr);
    6412                 :        457 :               printf (" 0x%" PRIx64 ", %" PRIx64 "\n", op1, op2);
    6413         [ +  + ]:        457 :               if (! print_unresolved_addresses)
    6414                 :            :                 {
    6415                 :        456 :                   op2 = op1 + op2;
    6416                 :        456 :                   printf ("      ");
    6417                 :        456 :                   print_dwarf_addr (dwflmod, address_size, op1, op1);
    6418                 :        456 :                   printf ("..\n      ");
    6419                 :        456 :                   print_dwarf_addr (dwflmod, address_size, op2 - 1, op2);
    6420         [ +  + ]:      65947 :                   printf ("\n");
    6421                 :            :                 }
    6422                 :            :               break;
    6423                 :            : 
    6424                 :          0 :             default:
    6425                 :          0 :               goto invalid_range;
    6426                 :            :             }
    6427                 :            :         }
    6428                 :            : 
    6429                 :        913 :     next_table:
    6430         [ -  + ]:        913 :       if (readp != nexthdr)
    6431                 :            :         {
    6432                 :          0 :           size_t padding = nexthdr - readp;
    6433                 :          0 :           printf (_("   %zu padding bytes\n\n"), padding);
    6434                 :          0 :           readp = nexthdr;
    6435                 :            :         }
    6436                 :            :     }
    6437                 :            : }
    6438                 :            : 
    6439                 :            : /* Print content of DWARF .debug_ranges section.  */
    6440                 :            : static void
    6441                 :         16 : print_debug_ranges_section (Dwfl_Module *dwflmod,
    6442                 :            :                             Ebl *ebl, GElf_Ehdr *ehdr,
    6443                 :            :                             Elf_Scn *scn, GElf_Shdr *shdr,
    6444                 :            :                             Dwarf *dbg)
    6445                 :            : {
    6446                 :         16 :   Elf_Data *data = get_debug_elf_data (dbg, ebl, IDX_debug_ranges, scn);
    6447         [ -  + ]:         16 :   if (data == NULL)
    6448                 :          0 :     return;
    6449                 :            : 
    6450                 :         16 :   printf (_("\
    6451                 :            : \nDWARF section [%2zu] '%s' at offset %#" PRIx64 ":\n"),
    6452                 :            :           elf_ndxscn (scn), section_name (ebl, shdr),
    6453                 :         16 :           (uint64_t) shdr->sh_offset);
    6454                 :            : 
    6455                 :