Home | History | Annotate | Line # | Download | only in libdwarf 
      1 /*	$NetBSD: libdwarf_ranges.c,v 1.5 2024/03/03 17:37:32 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.5 2024/03/03 17:37:32 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 }
    156