1cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng/* Return location expression list. 2cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Copyright (C) 2000, 2001, 2002, 2004, 2005, 2006 Red Hat, Inc. 3cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng This file is part of Red Hat elfutils. 4cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Written by Ulrich Drepper <drepper@redhat.com>, 2000. 5cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 6cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Red Hat elfutils is free software; you can redistribute it and/or modify 7cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng it under the terms of the GNU General Public License as published by the 8cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Free Software Foundation; version 2 of the License. 9cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 10cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Red Hat elfutils is distributed in the hope that it will be useful, but 11cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng WITHOUT ANY WARRANTY; without even the implied warranty of 12cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 13cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng General Public License for more details. 14cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 15cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng You should have received a copy of the GNU General Public License along 16cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng with Red Hat elfutils; if not, write to the Free Software Foundation, 17cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA. 18cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 19cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng In addition, as a special exception, Red Hat, Inc. gives You the 20cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng additional right to link the code of Red Hat elfutils with code licensed 21cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng under any Open Source Initiative certified open source license 22cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng (http://www.opensource.org/licenses/index.php) which requires the 23cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng distribution of source code with any binary distribution and to 24cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng distribute linked combinations of the two. Non-GPL Code permitted under 25cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng this exception must only link to the code of Red Hat elfutils through 26cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng those well defined interfaces identified in the file named EXCEPTION 27cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng found in the source code files (the "Approved Interfaces"). The files 28cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng of Non-GPL Code may instantiate templates or use macros or inline 29cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng functions from the Approved Interfaces without causing the resulting 30cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng work to be covered by the GNU General Public License. Only Red Hat, 31cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Inc. may make changes or additions to the list of Approved Interfaces. 32cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Red Hat's grant of this exception is conditioned upon your not adding 33cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng any new exceptions. If you wish to add a new Approved Interface or 34cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng exception, please contact Red Hat. You must obey the GNU General Public 35cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng License in all respects for all of the Red Hat elfutils code and other 36cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng code used in conjunction with Red Hat elfutils except the Non-GPL Code 37cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng covered by this exception. If you modify this file, you may extend this 38cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng exception to your version of the file, but you are not obligated to do 39cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng so. If you do not wish to provide this exception without modification, 40cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng you must delete this exception statement from your version and license 41cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng this file solely under the GPL without exception. 42cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 43cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Red Hat elfutils is an included package of the Open Invention Network. 44cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng An included package of the Open Invention Network is a package for which 45cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Open Invention Network licensees cross-license their patents. No patent 46cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng license is granted, either expressly or impliedly, by designation as an 47cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng included package. Should you wish to participate in the Open Invention 48cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Network licensing program, please visit www.openinventionnetwork.com 49cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng <http://www.openinventionnetwork.com>. */ 50cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 51cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#ifdef HAVE_CONFIG_H 52cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng# include <config.h> 53cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#endif 54cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 55cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <dwarf.h> 56cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <search.h> 57cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <stdlib.h> 58cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 59cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <libdwP.h> 60cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 61cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 62cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstatic bool 63cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengattr_ok (Dwarf_Attribute *attr) 64cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 65cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (attr == NULL) 66cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return false; 67cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 68cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Must be one of the attributes listed below. */ 69cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng switch (attr->code) 70cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 71cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_AT_location: 72cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_AT_data_member_location: 73cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_AT_vtable_elem_location: 74cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_AT_string_length: 75cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_AT_use_location: 76cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_AT_frame_base: 77cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_AT_return_addr: 78cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_AT_static_link: 79cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 80cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 81cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng default: 82cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng __libdw_seterrno (DWARF_E_NO_LOCLIST); 83cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return false; 84cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 85cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 86cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return true; 87cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 88cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 89cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 90cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstruct loclist 91cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 92cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng uint8_t atom; 93cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Word number; 94cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Word number2; 95cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Word offset; 96cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng struct loclist *next; 97cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng}; 98cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 99cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 100cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstatic int 101cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengloc_compare (const void *p1, const void *p2) 102cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 103cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng const struct loc_s *l1 = (const struct loc_s *) p1; 104cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng const struct loc_s *l2 = (const struct loc_s *) p2; 105cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 106cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if ((uintptr_t) l1->addr < (uintptr_t) l2->addr) 107cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 108cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if ((uintptr_t) l1->addr > (uintptr_t) l2->addr) 109cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return 1; 110cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 111cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return 0; 112cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 113cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 114cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstatic int 115cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chenggetlocation (struct Dwarf_CU *cu, const Dwarf_Block *block, 116cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Op **llbuf, size_t *listlen) 117cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 118cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf *dbg = cu->dbg; 119cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 120cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Check whether we already looked at this list. */ 121cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng struct loc_s fake = { .addr = block->data }; 122cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng struct loc_s **found = tfind (&fake, &cu->locs, loc_compare); 123cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (found != NULL) 124cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 125cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* We already saw it. */ 126cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng *llbuf = (*found)->loc; 127cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng *listlen = (*found)->nloc; 128cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 129cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return 0; 130cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 131cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 132cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng const unsigned char *data = block->data; 133cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng const unsigned char *const end_data = data + block->length; 134cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 135cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng struct loclist *loclist = NULL; 136cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng unsigned int n = 0; 137cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Decode the opcodes. It is possible in some situations to have a 138cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng block of size zero. */ 139cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while (data < end_data) 140cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 141cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng struct loclist *newloc; 142cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newloc = (struct loclist *) alloca (sizeof (struct loclist)); 143cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newloc->number = 0; 144cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newloc->number2 = 0; 145cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newloc->offset = data - block->data; 146cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newloc->next = loclist; 147cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng loclist = newloc; 148cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng ++n; 149cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 150cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng switch ((newloc->atom = *data++)) 151cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 152cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_addr: 153cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Address, depends on address size of CU. */ 154cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (cu->address_size == 4) 155cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 156cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (data + 4 > end_data)) 157cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 158cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng invalid: 159cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng __libdw_seterrno (DWARF_E_INVALID_DWARF); 160cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 161cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 162cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 163cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newloc->number = read_4ubyte_unaligned_inc (dbg, data); 164cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 165cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng else 166cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 167cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (data + 8 > end_data)) 168cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng goto invalid; 169cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 170cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newloc->number = read_8ubyte_unaligned_inc (dbg, data); 171cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 172cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 173cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 174cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_deref: 175cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_dup: 176cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_drop: 177cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_over: 178cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_swap: 179cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_rot: 180cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_xderef: 181cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_abs: 182cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_and: 183cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_div: 184cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_minus: 185cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_mod: 186cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_mul: 187cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_neg: 188cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_not: 189cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_or: 190cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_plus: 191cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_shl: 192cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_shr: 193cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_shra: 194cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_xor: 195cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_eq: 196cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_ge: 197cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_gt: 198cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_le: 199cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_lt: 200cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_ne: 201cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_lit0 ... DW_OP_lit31: 202cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_reg0 ... DW_OP_reg31: 203cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_nop: 204cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_push_object_address: 205cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_call_ref: 206cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* No operand. */ 207cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 208cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 209cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_const1u: 210cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_pick: 211cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_deref_size: 212cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_xderef_size: 213cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (data >= end_data)) 214cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng goto invalid; 215cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 216cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newloc->number = *data++; 217cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 218cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 219cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_const1s: 220cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (data >= end_data)) 221cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng goto invalid; 222cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 223cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newloc->number = *((int8_t *) data); 224cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng ++data; 225cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 226cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 227cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_const2u: 228cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (data + 2 > end_data)) 229cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng goto invalid; 230cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 231cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newloc->number = read_2ubyte_unaligned_inc (dbg, data); 232cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 233cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 234cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_const2s: 235cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_skip: 236cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_bra: 237cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_call2: 238cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (data + 2 > end_data)) 239cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng goto invalid; 240cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 241cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newloc->number = read_2sbyte_unaligned_inc (dbg, data); 242cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 243cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 244cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_const4u: 245cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (data + 4 > end_data)) 246cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng goto invalid; 247cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 248cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newloc->number = read_4ubyte_unaligned_inc (dbg, data); 249cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 250cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 251cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_const4s: 252cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_call4: 253cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (data + 4 > end_data)) 254cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng goto invalid; 255cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 256cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newloc->number = read_4sbyte_unaligned_inc (dbg, data); 257cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 258cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 259cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_const8u: 260cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (data + 8 > end_data)) 261cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng goto invalid; 262cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 263cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newloc->number = read_8ubyte_unaligned_inc (dbg, data); 264cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 265cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 266cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_const8s: 267cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (data + 8 > end_data)) 268cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng goto invalid; 269cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 270cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newloc->number = read_8sbyte_unaligned_inc (dbg, data); 271cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 272cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 273cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_constu: 274cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_plus_uconst: 275cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_regx: 276cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_piece: 277cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* XXX Check size. */ 278cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng get_uleb128 (newloc->number, data); 279cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 280cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 281cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_consts: 282cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_breg0 ... DW_OP_breg31: 283cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_fbreg: 284cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* XXX Check size. */ 285cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng get_sleb128 (newloc->number, data); 286cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 287cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 288cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng case DW_OP_bregx: 289cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* XXX Check size. */ 290cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng get_uleb128 (newloc->number, data); 291cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng get_sleb128 (newloc->number2, data); 292cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 293cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 294cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng default: 295cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng goto invalid; 296cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 297cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 298cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 299cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (n == 0)) 300cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 301cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* This is not allowed. 302cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 303cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng XXX Is it? */ 304cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng goto invalid; 305cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 306cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 307cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Allocate the array. */ 308cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Op *result = libdw_alloc (dbg, Dwarf_Op, sizeof (Dwarf_Op), n); 309cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 310cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Store the result. */ 311cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng *llbuf = result; 312cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng *listlen = n; 313cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 314cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng do 315cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 316cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* We populate the array from the back since the list is 317cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng backwards. */ 318cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng --n; 319cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng result[n].atom = loclist->atom; 320cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng result[n].number = loclist->number; 321cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng result[n].number2 = loclist->number2; 322cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng result[n].offset = loclist->offset; 323cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 324cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng loclist = loclist->next; 325cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 326cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while (n > 0); 327cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 328cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Insert a record in the search tree so that we can find it again 329cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng later. */ 330cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng struct loc_s *newp = libdw_alloc (dbg, struct loc_s, sizeof (struct loc_s), 331cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 1); 332cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newp->addr = block->data; 333cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newp->loc = result; 334cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng newp->nloc = *listlen; 335cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng (void) tsearch (newp, &cu->locs, loc_compare); 336cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 337cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* We did it. */ 338cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return 0; 339cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 340cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 341cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengint 342cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengdwarf_getlocation (attr, llbuf, listlen) 343cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Attribute *attr; 344cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Op **llbuf; 345cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng size_t *listlen; 346cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 347cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (! attr_ok (attr)) 348cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 349cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 350cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* If it has a block form, it's a single location expression. */ 351cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Block block; 352cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (INTUSE(dwarf_formblock) (attr, &block) != 0) 353cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 354cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 355cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return getlocation (attr->cu, &block, llbuf, listlen); 356cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 357cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 358cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengint 359cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengdwarf_getlocation_addr (attr, address, llbufs, listlens, maxlocs) 360cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Attribute *attr; 361cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Addr address; 362cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Op **llbufs; 363cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng size_t *listlens; 364cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng size_t maxlocs; 365cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 366cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (! attr_ok (attr)) 367cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 368cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 369cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (llbufs == NULL) 370cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng maxlocs = SIZE_MAX; 371cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 372cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* If it has a block form, it's a single location expression. */ 373cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Block block; 374cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (INTUSE(dwarf_formblock) (attr, &block) == 0) 375cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 376cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (maxlocs == 0) 377cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return 0; 378cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (llbufs != NULL && 379cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng getlocation (attr->cu, &block, &llbufs[0], &listlens[0]) != 0) 380cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 381cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return listlens[0] == 0 ? 0 : 1; 382cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 383cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 384cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng int error = INTUSE(dwarf_errno) (); 385cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (error != DWARF_E_NO_BLOCK)) 386cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 387cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng __libdw_seterrno (error); 388cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 389cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 390cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 391cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Must have the form data4 or data8 which act as an offset. */ 392cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Word offset; 393cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (INTUSE(dwarf_formudata) (attr, &offset) != 0)) 394cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 395cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 396cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng const Elf_Data *d = attr->cu->dbg->sectiondata[IDX_debug_loc]; 397cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (d == NULL)) 398cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 399cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng __libdw_seterrno (DWARF_E_NO_LOCLIST); 400cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 401cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 402cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 403cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Addr base = (Dwarf_Addr) -1; 404cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng unsigned char *readp = d->d_buf + offset; 405cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng size_t got = 0; 406cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while (got < maxlocs) 407cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 408cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if ((unsigned char *) d->d_buf + d->d_size - readp 409cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng < attr->cu->address_size * 2) 410cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 411cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng invalid: 412cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng __libdw_seterrno (DWARF_E_INVALID_DWARF); 413cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 414cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 415cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 416cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Addr begin; 417cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Addr end; 418cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (attr->cu->address_size == 8) 419cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 420cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng begin = read_8ubyte_unaligned_inc (attr->cu->dbg, readp); 421cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng end = read_8ubyte_unaligned_inc (attr->cu->dbg, readp); 422cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 423cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (begin == (Elf64_Addr) -1l) /* Base address entry. */ 424cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 425cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng base = end; 426cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (base == (Dwarf_Addr) -1)) 427cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng goto invalid; 428cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng continue; 429cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 430cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 431cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng else 432cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 433cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng begin = read_4ubyte_unaligned_inc (attr->cu->dbg, readp); 434cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng end = read_4ubyte_unaligned_inc (attr->cu->dbg, readp); 435cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 436cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (begin == (Elf32_Addr) -1) /* Base address entry. */ 437cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 438cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng base = end; 439cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng continue; 440cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 441cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 442cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 443cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (begin == 0 && end == 0) /* End of list entry. */ 444cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 445cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 446cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if ((unsigned char *) d->d_buf + d->d_size - readp < 2) 447cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng goto invalid; 448cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 449cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* We have a location expression. */ 450cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng block.length = read_2ubyte_unaligned_inc (attr->cu->dbg, readp); 451cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng block.data = readp; 452cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if ((unsigned char *) d->d_buf + d->d_size - readp 453cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng < (ptrdiff_t) block.length) 454cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng goto invalid; 455cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng readp += block.length; 456cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 457cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (base == (Dwarf_Addr) -1) 458cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 459cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Fetch the CU's base address. */ 460cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Die cudie = CUDIE (attr->cu); 461cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 462cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Find the base address of the compilation unit. It will 463cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng normally be specified by DW_AT_low_pc. In DWARF-3 draft 4, 464cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng the base address could be overridden by DW_AT_entry_pc. It's 465cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng been removed, but GCC emits DW_AT_entry_pc and not DW_AT_lowpc 466cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng for compilation units with discontinuous ranges. */ 467cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Attribute attr_mem; 468cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (INTUSE(dwarf_lowpc) (&cudie, &base) != 0) 469cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && INTUSE(dwarf_formaddr) (INTUSE(dwarf_attr) (&cudie, 470cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng DW_AT_entry_pc, 471cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng &attr_mem), 472cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng &base) != 0) 473cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 474cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (INTUSE(dwarf_errno) () != 0) 475cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 476cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 477cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* The compiler provided no base address when it should 478cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng have. Buggy GCC does this when it used absolute 479cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng addresses in the location list and no DW_AT_ranges. */ 480cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng base = 0; 481cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 482cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 483cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 484cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (address >= base + begin && address < base + end) 485cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 486cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* This one matches the address. */ 487cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (llbufs != NULL 488cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && unlikely (getlocation (attr->cu, &block, 489cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng &llbufs[got], &listlens[got]) != 0)) 490cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 491cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng ++got; 492cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 493cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 494cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 495cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return got; 496cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 497