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

   1 /*      $NetBSD: dwarf_ranges.c,v 1.2 2014/03/09 16:58:04 christos Exp $        */
   2
   3 /*-
   4  * Copyright (c) 2009,2011 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: dwarf_ranges.c,v 1.2 2014/03/09 16:58:04 christos Exp $");
  32 ELFTC_VCSID("Id: dwarf_ranges.c 2075 2011-10-27 03:47:28Z jkoshy ");
  33
  34 static int
  35 _dwarf_get_ranges(Dwarf_Debug dbg, Dwarf_CU cu, Dwarf_Off off,
  36     Dwarf_Ranges **ranges, Dwarf_Signed *ret_cnt, Dwarf_Unsigned *ret_byte_cnt,
  37     Dwarf_Error *error)
  38 {
  39         Dwarf_Rangelist rl;
  40         int ret;
  41
  42         assert(cu != NULL);
  43         if (_dwarf_ranges_find(dbg, off, &rl) == DW_DLE_NO_ENTRY) {
  44                 ret = _dwarf_ranges_add(dbg, cu, off, &rl, error);
  45                 if (ret != DW_DLE_NONE)
  46                         return (DW_DLV_ERROR);
  47         }
  48
  49         *ranges = rl->rl_rgarray;
  50         *ret_cnt = rl->rl_rglen;
  51
  52         if (ret_byte_cnt != NULL)
  53                 *ret_byte_cnt = cu->cu_pointer_size * rl->rl_rglen * 2;
  54
  55         return (DW_DLV_OK);
  56 }
  57
  58 int
  59 dwarf_get_ranges(Dwarf_Debug dbg, Dwarf_Off offset, Dwarf_Ranges **ranges,
  60     Dwarf_Signed *ret_cnt, Dwarf_Unsigned *ret_byte_cnt, Dwarf_Error *error)
  61 {
  62
  63         if (dbg == NULL || ranges == NULL || ret_cnt == NULL) {
  64                 DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
  65                 return (DW_DLV_ERROR);
  66         }
  67
  68         if (!dbg->dbg_info_loaded) {
  69                 if (_dwarf_info_load(dbg, 1, error) != DW_DLE_NONE)
  70                         return (DW_DLV_ERROR);
  71         }
  72
  73         return (_dwarf_get_ranges(dbg, STAILQ_FIRST(&dbg->dbg_cu), offset,
  74             ranges, ret_cnt, ret_byte_cnt, error));
  75 }
  76
  77 int
  78 dwarf_get_ranges_a(Dwarf_Debug dbg, Dwarf_Off offset, Dwarf_Die die,
  79     Dwarf_Ranges **ranges, Dwarf_Signed *ret_cnt, Dwarf_Unsigned *ret_byte_cnt,
  80     Dwarf_Error *error)
  81 {
  82
  83         if (dbg == NULL || die == NULL || ranges == NULL || ret_cnt == NULL) {
  84                 DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
  85                 return (DW_DLV_ERROR);
  86         }
  87
  88         return (_dwarf_get_ranges(dbg, die->die_cu, offset, ranges, ret_cnt,
  89             ret_byte_cnt, error));
  90 }