external/bsd/elftoolchain/dist/libdwarf/libdwarf_ranges.c

   1 /*      $NetBSD: libdwarf_ranges.c,v 1.2 2014/03/09 16:58:04 christos Exp $     */
   2
   3 /*-
   4  * Copyright (c) 2009 Kai Wang
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  *
  16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
  17  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  19  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
  20  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  21  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  22  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  23  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  24  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  25  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  26  * SUCH DAMAGE.
  27  */
  28
  29 #include "_libdwarf.h"
  30
  31 __RCSID("$NetBSD: libdwarf_ranges.c,v 1.2 2014/03/09 16:58:04 christos Exp $");
  32 ELFTC_VCSID("Id: libdwarf_ranges.c 2972 2013-12-23 06:46:04Z kaiwang27 ");
  33
  34 static int
  35 _dwarf_ranges_parse(Dwarf_Debug dbg, Dwarf_CU cu, Dwarf_Section *ds,
  36     uint64_t off, Dwarf_Ranges *rg, Dwarf_Unsigned *cnt)
  37 {
  38         Dwarf_Unsigned start, end;
  39         int i;
  40
  41         i = 0;
  42         while (off < ds->ds_size) {
  43
  44                 start = dbg->read(ds->ds_data, &off, cu->cu_pointer_size);
  45                 end = dbg->read(ds->ds_data, &off, cu->cu_pointer_size);
  46
  47                 if (rg != NULL) {
  48                         rg[i].dwr_addr1 = start;
  49                         rg[i].dwr_addr2 = end;
  50                         if (start == 0 && end == 0)
  51                                 rg[i].dwr_type = DW_RANGES_END;
  52                         else if ((start == ~0U && cu->cu_pointer_size == 4) ||
  53                             (start == ~0ULL && cu->cu_pointer_size == 8))
  54                                 rg[i].dwr_type = DW_RANGES_ADDRESS_SELECTION;
  55                         else
  56                                 rg[i].dwr_type = DW_RANGES_ENTRY;
  57                 }
  58
  59                 i++;
  60
  61                 if (start == 0 && end == 0)
  62                         break;
  63         }
  64
  65         if (cnt != NULL)
  66                 *cnt = i;
  67
  68         return (DW_DLE_NONE);
  69 }
  70
  71 int
  72 _dwarf_ranges_find(Dwarf_Debug dbg, uint64_t off, Dwarf_Rangelist *ret_rl)
  73 {
  74         Dwarf_Rangelist rl;
  75
  76         STAILQ_FOREACH(rl, &dbg->dbg_rllist, rl_next)
  77                 if (rl->rl_offset == off)
  78                         break;
  79
  80         if (rl == NULL)
  81                 return (DW_DLE_NO_ENTRY);
  82
  83         if (ret_rl != NULL)
  84                 *ret_rl = rl;
  85
  86         return (DW_DLE_NONE);
  87 }
  88
  89 void
  90 _dwarf_ranges_cleanup(Dwarf_Debug dbg)
  91 {
  92         Dwarf_Rangelist rl, trl;
  93
  94         if (STAILQ_EMPTY(&dbg->dbg_rllist))
  95                 return;
  96
  97         STAILQ_FOREACH_SAFE(rl, &dbg->dbg_rllist, rl_next, trl) {
  98                 STAILQ_REMOVE(&dbg->dbg_rllist, rl, _Dwarf_Rangelist, rl_next);
  99                 if (rl->rl_rgarray)
 100                         free(rl->rl_rgarray);
 101                 free(rl);
 102         }
 103 }
 104
 105 int
 106 _dwarf_ranges_add(Dwarf_Debug dbg, Dwarf_CU cu, uint64_t off,
 107     Dwarf_Rangelist *ret_rl, Dwarf_Error *error)
 108 {
 109         Dwarf_Section *ds;
 110         Dwarf_Rangelist rl;
 111         Dwarf_Unsigned cnt;
 112         int ret;
 113
 114         if ((ds = _dwarf_find_section(dbg, ".debug_ranges")) == NULL) {
 115                 DWARF_SET_ERROR(dbg, error, DW_DLE_NO_ENTRY);
 116                 return (DW_DLE_NO_ENTRY);
 117         }
 118
 119         if ((rl = malloc(sizeof(struct _Dwarf_Rangelist))) == NULL) {
 120                 DWARF_SET_ERROR(dbg, error, DW_DLE_MEMORY);
 121                 return (DW_DLE_MEMORY);
 122         }
 123
 124         rl->rl_offset = off;
 125
 126         ret = _dwarf_ranges_parse(dbg, cu, ds, off, NULL, &cnt);
 127         if (ret != DW_DLE_NONE) {
 128                 free(rl);
 129                 return (ret);
 130         }
 131
 132         rl->rl_rglen = cnt;
 133         if (cnt != 0) {
 134                 if ((rl->rl_rgarray = calloc(cnt, sizeof(Dwarf_Ranges))) ==
 135                     NULL) {
 136                         free(rl);
 137                         DWARF_SET_ERROR(dbg, error, DW_DLE_MEMORY);
 138                         return (DW_DLE_MEMORY);
 139                 }
 140
 141                 ret = _dwarf_ranges_parse(dbg, cu, ds, off, rl->rl_rgarray,
 142                     NULL);
 143                 if (ret != DW_DLE_NONE) {
 144                         free(rl->rl_rgarray);
 145                         free(rl);
 146                         return (ret);
 147                 }
 148         } else
 149                 rl->rl_rgarray = NULL;
 150
 151         STAILQ_INSERT_TAIL(&dbg->dbg_rllist, rl, rl_next);
 152         *ret_rl = rl;
 153
 154         return (DW_DLE_NONE);
 155 }