LCOV - code coverage report
Current view: top level - libdw - libdw_findcu.c (source / functions) Hit Total Coverage
Test: elfutils-0.191 Lines: 135 146 92.5 %
Date: 2024-07-23 19:52:03 Functions: 6 6 100.0 %
Legend: Lines: hit not hit | Branches: + taken - not taken # not executed Branches: 70 90 77.8 %

           Branch data     Line data    Source code
       1                 :            : /* Find CU for given offset.
       2                 :            :    Copyright (C) 2003-2010, 2014, 2016, 2017, 2018 Red Hat, Inc.
       3                 :            :    This file is part of elfutils.
       4                 :            :    Written by Ulrich Drepper <drepper@redhat.com>, 2003.
       5                 :            : 
       6                 :            :    This file is free software; you can redistribute it and/or modify
       7                 :            :    it under the terms of either
       8                 :            : 
       9                 :            :      * the GNU Lesser General Public License as published by the Free
      10                 :            :        Software Foundation; either version 3 of the License, or (at
      11                 :            :        your option) any later version
      12                 :            : 
      13                 :            :    or
      14                 :            : 
      15                 :            :      * the GNU General Public License as published by the Free
      16                 :            :        Software Foundation; either version 2 of the License, or (at
      17                 :            :        your option) any later version
      18                 :            : 
      19                 :            :    or both in parallel, as here.
      20                 :            : 
      21                 :            :    elfutils is distributed in the hope that it will be useful, but
      22                 :            :    WITHOUT ANY WARRANTY; without even the implied warranty of
      23                 :            :    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
      24                 :            :    General Public License for more details.
      25                 :            : 
      26                 :            :    You should have received copies of the GNU General Public License and
      27                 :            :    the GNU Lesser General Public License along with this program.  If
      28                 :            :    not, see <http://www.gnu.org/licenses/>.  */
      29                 :            : 
      30                 :            : #ifdef HAVE_CONFIG_H
      31                 :            : # include <config.h>
      32                 :            : #endif
      33                 :            : 
      34                 :            : #include <assert.h>
      35                 :            : #include <search.h>
      36                 :            : #include "libdwP.h"
      37                 :            : 
      38                 :            : static int
      39                 :   15132594 : findcu_cb (const void *arg1, const void *arg2)
      40                 :            : {
      41                 :   15132594 :   struct Dwarf_CU *cu1 = (struct Dwarf_CU *) arg1;
      42                 :   15132594 :   struct Dwarf_CU *cu2 = (struct Dwarf_CU *) arg2;
      43                 :            : 
      44                 :            :   /* Find out which of the two arguments is the search value.  It has
      45                 :            :      end offset 0.  */
      46         [ +  + ]:   15132594 :   if (cu1->end == 0)
      47                 :            :     {
      48         [ +  + ]:   14339002 :       if (cu1->start < cu2->start)
      49                 :            :         return -1;
      50         [ +  + ]:   14310844 :       if (cu1->start >= cu2->end)
      51                 :   12937460 :         return 1;
      52                 :            :     }
      53                 :            :   else
      54                 :            :     {
      55         [ -  + ]:     793592 :       if (cu2->start < cu1->start)
      56                 :            :         return 1;
      57         [ #  # ]:          0 :       if (cu2->start >= cu1->end)
      58                 :          0 :         return -1;
      59                 :            :     }
      60                 :            : 
      61                 :            :   return 0;
      62                 :            : }
      63                 :            : 
      64                 :            : int
      65                 :        522 : __libdw_finddbg_cb (const void *arg1, const void *arg2)
      66                 :            : {
      67                 :        522 :   Dwarf *dbg1 = (Dwarf *) arg1;
      68                 :        522 :   Dwarf *dbg2 = (Dwarf *) arg2;
      69                 :            : 
      70                 :        522 :   Elf_Data *dbg1_data = dbg1->sectiondata[IDX_debug_info];
      71                 :        522 :   unsigned char *dbg1_start = dbg1_data->d_buf;
      72                 :        522 :   size_t dbg1_size = dbg1_data->d_size;
      73                 :            : 
      74                 :        522 :   Elf_Data *dbg2_data = dbg2->sectiondata[IDX_debug_info];
      75                 :        522 :   unsigned char *dbg2_start = dbg2_data->d_buf;
      76                 :        522 :   size_t dbg2_size = dbg2_data->d_size;
      77                 :            : 
      78                 :            :   /* Find out which of the two arguments is the search value.  It has
      79                 :            :      a size of 0.  */
      80         [ +  + ]:        522 :   if (dbg1_size == 0)
      81                 :            :     {
      82         [ +  - ]:        440 :       if (dbg1_start < dbg2_start)
      83                 :            :         return -1;
      84         [ +  + ]:        440 :       if (dbg1_start >= dbg2_start + dbg2_size)
      85                 :        144 :         return 1;
      86                 :            :     }
      87                 :            :   else
      88                 :            :     {
      89         [ +  + ]:         82 :       if (dbg2_start < dbg1_start)
      90                 :            :         return 1;
      91         [ +  + ]:         52 :       if (dbg2_start >= dbg1_start + dbg1_size)
      92                 :          8 :         return -1;
      93                 :            :     }
      94                 :            : 
      95                 :            :   return 0;
      96                 :            : }
      97                 :            : 
      98                 :            : struct Dwarf_CU *
      99                 :            : internal_function
     100                 :      71250 : __libdw_intern_next_unit (Dwarf *dbg, bool debug_types)
     101                 :            : {
     102                 :     142500 :   Dwarf_Off *const offsetp
     103         [ +  + ]:      71250 :     = debug_types ? &dbg->next_tu_offset : &dbg->next_cu_offset;
     104                 :      71250 :   void **tree = debug_types ? &dbg->tu_tree : &dbg->cu_tree;
     105                 :            : 
     106                 :      71250 :   Dwarf_Off oldoff = *offsetp;
     107                 :      71250 :   uint16_t version;
     108                 :      71250 :   uint8_t unit_type;
     109                 :      71250 :   uint8_t address_size;
     110                 :      71250 :   uint8_t offset_size;
     111                 :      71250 :   Dwarf_Off abbrev_offset;
     112                 :      71250 :   uint64_t unit_id8;
     113                 :      71250 :   Dwarf_Off subdie_offset;
     114                 :            : 
     115         [ +  + ]:      71250 :   if (__libdw_next_unit (dbg, debug_types, oldoff, offsetp, NULL,
     116                 :            :                          &version, &unit_type, &abbrev_offset,
     117                 :            :                          &address_size, &offset_size,
     118                 :            :                          &unit_id8, &subdie_offset) != 0)
     119                 :            :     /* No more entries.  */
     120                 :            :     return NULL;
     121                 :            : 
     122                 :            :   /* We only know how to handle the DWARF version 2 through 5 formats.
     123                 :            :      For v4 debug types we only handle version 4.  */
     124   [ +  -  +  - ]:      71240 :   if (unlikely (version < 2) || unlikely (version > 5)
     125   [ +  +  -  + ]:      71240 :       || (debug_types && unlikely (version != 4)))
     126                 :            :     {
     127                 :          0 :       __libdw_seterrno (DWARF_E_VERSION);
     128                 :          0 :       return NULL;
     129                 :            :     }
     130                 :            : 
     131                 :            :   /* We only handle 32 or 64 bit (4 or 8 byte) addresses and offsets.
     132                 :            :      Just assume we are dealing with 64bit in case the size is "unknown".
     133                 :            :      Too much code assumes if it isn't 4 then it is 8 (or the other way
     134                 :            :      around).  */
     135         [ -  + ]:      71240 :   if (unlikely (address_size != 4 && address_size != 8))
     136                 :          0 :     address_size = 8;
     137         [ -  + ]:      71240 :   if (unlikely (offset_size != 4 && offset_size != 8))
     138                 :          0 :     offset_size = 8;
     139                 :            : 
     140                 :            :   /* Invalid or truncated debug section data?  */
     141                 :      71240 :   size_t sec_idx = debug_types ? IDX_debug_types : IDX_debug_info;
     142                 :      71240 :   Elf_Data *data = dbg->sectiondata[sec_idx];
     143         [ -  + ]:      71240 :   if (unlikely (*offsetp > data->d_size))
     144                 :          0 :     *offsetp = data->d_size;
     145                 :            : 
     146                 :      71240 :   uint32_t dwp_row;
     147                 :      71240 :   Dwarf_Off dwp_abbrev_offset;
     148         [ -  + ]:      71240 :   if (__libdw_dwp_find_unit (dbg, debug_types, oldoff, version, unit_type,
     149                 :            :                              unit_id8, &dwp_row, &dwp_abbrev_offset) != 0)
     150                 :            :     return NULL;
     151                 :      71240 :   abbrev_offset += dwp_abbrev_offset;
     152                 :            : 
     153                 :            :   /* Create an entry for this CU.  */
     154         [ +  + ]:      71240 :   struct Dwarf_CU *newp = libdw_typed_alloc (dbg, struct Dwarf_CU);
     155                 :            : 
     156                 :      71240 :   newp->dbg = dbg;
     157                 :      71240 :   newp->sec_idx = sec_idx;
     158                 :      71240 :   newp->start = oldoff;
     159                 :      71240 :   newp->end = *offsetp;
     160                 :      71240 :   newp->dwp_row = dwp_row;
     161                 :      71240 :   newp->address_size = address_size;
     162                 :      71240 :   newp->offset_size = offset_size;
     163                 :      71240 :   newp->version = version;
     164                 :      71240 :   newp->unit_id8 = unit_id8;
     165                 :      71240 :   newp->subdie_offset = subdie_offset;
     166                 :      71240 :   Dwarf_Abbrev_Hash_init (&newp->abbrev_hash, 41);
     167                 :      71240 :   newp->orig_abbrev_offset = newp->last_abbrev_offset = abbrev_offset;
     168                 :      71240 :   newp->files = NULL;
     169                 :      71240 :   newp->lines = NULL;
     170                 :      71240 :   newp->locs = NULL;
     171                 :      71240 :   newp->split = (Dwarf_CU *) -1;
     172                 :      71240 :   newp->base_address = (Dwarf_Addr) -1;
     173                 :      71240 :   newp->addr_base = (Dwarf_Off) -1;
     174                 :      71240 :   newp->str_off_base = (Dwarf_Off) -1;
     175                 :      71240 :   newp->ranges_base = (Dwarf_Off) -1;
     176                 :      71240 :   newp->locs_base = (Dwarf_Off) -1;
     177                 :            : 
     178                 :      71240 :   newp->startp = data->d_buf + newp->start;
     179                 :      71240 :   newp->endp = data->d_buf + newp->end;
     180                 :            : 
     181                 :            :   /* v4 debug type units have version == 4 and unit_type == DW_UT_type.  */
     182         [ +  + ]:      71240 :   if (debug_types)
     183                 :         44 :     newp->unit_type = DW_UT_type;
     184         [ +  + ]:      71196 :   else if (version < 5)
     185                 :            :     {
     186                 :            :       /* This is a reasonable guess (and needed to get the CUDIE).  */
     187                 :       1410 :       newp->unit_type = DW_UT_compile;
     188                 :            : 
     189                 :            :       /* But set it correctly from the actual CUDIE tag.  */
     190                 :       1410 :       Dwarf_Die cudie = CUDIE (newp);
     191                 :       1410 :       int tag = INTUSE(dwarf_tag) (&cudie);
     192         [ +  + ]:       1410 :       if (tag == DW_TAG_compile_unit)
     193                 :            :         {
     194                 :       1358 :           Dwarf_Attribute dwo_id;
     195         [ +  + ]:       1358 :           if (INTUSE(dwarf_attr) (&cudie, DW_AT_GNU_dwo_id, &dwo_id) != NULL)
     196                 :            :             {
     197                 :        270 :               Dwarf_Word id8;
     198         [ +  - ]:        270 :               if (INTUSE(dwarf_formudata) (&dwo_id, &id8) == 0)
     199                 :            :                 {
     200         [ +  + ]:        270 :                   if (INTUSE(dwarf_haschildren) (&cudie) == 0
     201         [ +  - ]:        132 :                       && INTUSE(dwarf_hasattr) (&cudie,
     202                 :            :                                                 DW_AT_GNU_dwo_name) == 1)
     203                 :        132 :                     newp->unit_type = DW_UT_skeleton;
     204                 :            :                   else
     205                 :        138 :                     newp->unit_type = DW_UT_split_compile;
     206                 :            : 
     207                 :        270 :                   newp->unit_id8 = id8;
     208                 :            :                 }
     209                 :            :             }
     210                 :            :         }
     211         [ +  + ]:         52 :       else if (tag == DW_TAG_partial_unit)
     212                 :         48 :         newp->unit_type = DW_UT_partial;
     213         [ -  + ]:          4 :       else if (tag == DW_TAG_type_unit)
     214                 :          0 :         newp->unit_type = DW_UT_type;
     215                 :            :     }
     216                 :            :   else
     217                 :      69786 :     newp->unit_type = unit_type;
     218                 :            : 
     219                 :            :   /* Store a reference to any type unit ids in the hash for quick lookup.  */
     220         [ +  + ]:      71240 :   if (unit_type == DW_UT_type || unit_type == DW_UT_split_type)
     221                 :         74 :     Dwarf_Sig8_Hash_insert (&dbg->sig8_hash, unit_id8, newp);
     222                 :            : 
     223                 :            :   /* Add the new entry to the search tree.  */
     224         [ -  + ]:      71240 :   if (tsearch (newp, tree, findcu_cb) == NULL)
     225                 :            :     {
     226                 :            :       /* Something went wrong.  Undo the operation.  */
     227                 :          0 :       *offsetp = oldoff;
     228                 :          0 :       __libdw_seterrno (DWARF_E_NOMEM);
     229                 :          0 :       return NULL;
     230                 :            :     }
     231                 :            : 
     232                 :            :   return newp;
     233                 :            : }
     234                 :            : 
     235                 :            : struct Dwarf_CU *
     236                 :            : internal_function
     237                 :     103304 : __libdw_findcu (Dwarf *dbg, Dwarf_Off start, bool v4_debug_types)
     238                 :            : {
     239         [ +  + ]:     103304 :   void **tree = v4_debug_types ? &dbg->tu_tree : &dbg->cu_tree;
     240                 :     206608 :   Dwarf_Off *next_offset
     241                 :     103304 :     = v4_debug_types ? &dbg->next_tu_offset : &dbg->next_cu_offset;
     242                 :            : 
     243                 :            :   /* Maybe we already know that CU.  */
     244                 :     103304 :   struct Dwarf_CU fake = { .start = start, .end = 0 };
     245                 :     103304 :   struct Dwarf_CU **found = tfind (&fake, tree, findcu_cb);
     246         [ +  + ]:     103304 :   if (found != NULL)
     247                 :      32078 :     return *found;
     248                 :            : 
     249         [ +  + ]:      71226 :   if (start < *next_offset)
     250                 :            :     {
     251                 :         10 :       __libdw_seterrno (DWARF_E_INVALID_DWARF);
     252                 :         10 :       return NULL;
     253                 :            :     }
     254                 :            : 
     255                 :            :   /* No.  Then read more CUs.  */
     256                 :      71246 :   while (1)
     257                 :            :     {
     258                 :      71246 :       struct Dwarf_CU *newp = __libdw_intern_next_unit (dbg, v4_debug_types);
     259         [ +  + ]:      71246 :       if (newp == NULL)
     260                 :            :         return NULL;
     261                 :            : 
     262                 :            :       /* Is this the one we are looking for?  */
     263   [ +  +  +  - ]:      71238 :       if (start < *next_offset || start == newp->start)
     264                 :      71208 :         return newp;
     265                 :            :     }
     266                 :            :   /* NOTREACHED */
     267                 :            : }
     268                 :            : 
     269                 :            : struct Dwarf_CU *
     270                 :            : internal_function
     271                 :    1341632 : __libdw_findcu_addr (Dwarf *dbg, void *addr)
     272                 :            : {
     273                 :    1341632 :   void **tree;
     274                 :    1341632 :   Dwarf_Off start;
     275         [ +  + ]:    1341632 :   if (addr >= dbg->sectiondata[IDX_debug_info]->d_buf
     276                 :    1341306 :       && addr < (dbg->sectiondata[IDX_debug_info]->d_buf
     277         [ +  + ]:    1341306 :                  + dbg->sectiondata[IDX_debug_info]->d_size))
     278                 :            :     {
     279                 :    1341274 :       tree = &dbg->cu_tree;
     280                 :    1341274 :       start = addr - dbg->sectiondata[IDX_debug_info]->d_buf;
     281                 :            :     }
     282         [ +  + ]:        358 :   else if (dbg->sectiondata[IDX_debug_types] != NULL
     283         [ +  - ]:         32 :            && addr >= dbg->sectiondata[IDX_debug_types]->d_buf
     284                 :         32 :            && addr < (dbg->sectiondata[IDX_debug_types]->d_buf
     285         [ +  - ]:         32 :                       + dbg->sectiondata[IDX_debug_types]->d_size))
     286                 :            :     {
     287                 :         32 :       tree = &dbg->tu_tree;
     288                 :         32 :       start = addr - dbg->sectiondata[IDX_debug_types]->d_buf;
     289                 :            :     }
     290                 :            :   else
     291                 :            :     return NULL;
     292                 :            : 
     293                 :    1341306 :   struct Dwarf_CU fake = { .start = start, .end = 0 };
     294                 :    1341306 :   struct Dwarf_CU **found = tfind (&fake, tree, findcu_cb);
     295                 :            : 
     296         [ -  + ]:    1341306 :   if (found != NULL)
     297                 :    1341306 :     return *found;
     298                 :            : 
     299                 :            :   return NULL;
     300                 :            : }
     301                 :            : 
     302                 :            : Dwarf *
     303                 :            : internal_function
     304                 :        296 : __libdw_find_split_dbg_addr (Dwarf *dbg, void *addr)
     305                 :            : {
     306                 :            :   /* XXX Assumes split DWARF only has CUs in main IDX_debug_info.  */
     307                 :        296 :   Elf_Data fake_data = { .d_buf = addr, .d_size = 0 };
     308                 :        296 :   Dwarf fake = { .sectiondata[IDX_debug_info] = &fake_data };
     309                 :        296 :   Dwarf **found = tfind (&fake, &dbg->split_tree, __libdw_finddbg_cb);
     310                 :            : 
     311         [ +  - ]:        296 :   if (found != NULL)
     312                 :        296 :     return *found;
     313                 :            : 
     314                 :            :   return NULL;
     315                 :            : }

Generated by: LCOV version 1.16