1cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng/* Return scope DIEs containing PC address. 2cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Copyright (C) 2005, 2007 Red Hat, Inc. 3cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng This file is part of Red Hat elfutils. 4cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 5cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Red Hat elfutils is free software; you can redistribute it and/or modify 6cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng it under the terms of the GNU General Public License as published by the 7cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Free Software Foundation; version 2 of the License. 8cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 9cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Red Hat elfutils is distributed in the hope that it will be useful, but 10cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng WITHOUT ANY WARRANTY; without even the implied warranty of 11cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng General Public License for more details. 13cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 14cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng You should have received a copy of the GNU General Public License along 15cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng with Red Hat elfutils; if not, write to the Free Software Foundation, 16cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301 USA. 17cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 18cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng In addition, as a special exception, Red Hat, Inc. gives You the 19cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng additional right to link the code of Red Hat elfutils with code licensed 20cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng under any Open Source Initiative certified open source license 21cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng (http://www.opensource.org/licenses/index.php) which requires the 22cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng distribution of source code with any binary distribution and to 23cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng distribute linked combinations of the two. Non-GPL Code permitted under 24cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng this exception must only link to the code of Red Hat elfutils through 25cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng those well defined interfaces identified in the file named EXCEPTION 26cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng found in the source code files (the "Approved Interfaces"). The files 27cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng of Non-GPL Code may instantiate templates or use macros or inline 28cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng functions from the Approved Interfaces without causing the resulting 29cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng work to be covered by the GNU General Public License. Only Red Hat, 30cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Inc. may make changes or additions to the list of Approved Interfaces. 31cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Red Hat's grant of this exception is conditioned upon your not adding 32cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng any new exceptions. If you wish to add a new Approved Interface or 33cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng exception, please contact Red Hat. You must obey the GNU General Public 34cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng License in all respects for all of the Red Hat elfutils code and other 35cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng code used in conjunction with Red Hat elfutils except the Non-GPL Code 36cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng covered by this exception. If you modify this file, you may extend this 37cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng exception to your version of the file, but you are not obligated to do 38cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng so. If you do not wish to provide this exception without modification, 39cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng you must delete this exception statement from your version and license 40cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng this file solely under the GPL without exception. 41cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 42cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Red Hat elfutils is an included package of the Open Invention Network. 43cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng An included package of the Open Invention Network is a package for which 44cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Open Invention Network licensees cross-license their patents. No patent 45cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng license is granted, either expressly or impliedly, by designation as an 46cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng included package. Should you wish to participate in the Open Invention 47cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Network licensing program, please visit www.openinventionnetwork.com 48cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng <http://www.openinventionnetwork.com>. */ 49cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 50cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#ifdef HAVE_CONFIG_H 51cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng# include <config.h> 52cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#endif 53cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 54cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <assert.h> 55cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <stdlib.h> 56cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include "libdwP.h" 57cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include <dwarf.h> 58cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 59cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 60cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstruct args 61cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 62cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Addr pc; 63cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Die *scopes; 64cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng unsigned int inlined, nscopes; 65cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Die inlined_origin; 66cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng}; 67cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 68cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng/* Preorder visitor: prune the traversal if this DIE does not contain PC. */ 69cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstatic int 70cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengpc_match (unsigned int depth, struct Dwarf_Die_Chain *die, void *arg) 71cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 72cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng struct args *a = arg; 73cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 74cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (a->scopes != NULL) 75cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng die->prune = true; 76cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng else 77cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 78cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* dwarf_haspc returns an error if there are no appropriate attributes. 79cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng But we use it indiscriminantly instead of presuming which tags can 80cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng have PC attributes. So when it fails for that reason, treat it just 81cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng as a nonmatching return. */ 82cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng int result = INTUSE(dwarf_haspc) (&die->die, a->pc); 83cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (result < 0) 84cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 85cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng int error = INTUSE(dwarf_errno) (); 86cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (error != DWARF_E_NOERROR && error != DWARF_E_NO_DEBUG_RANGES) 87cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 88cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng __libdw_seterrno (error); 89cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 90cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 91cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng result = 0; 92cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 93cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (result == 0) 94cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng die->prune = true; 95cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 96cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (!die->prune 97cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && INTUSE (dwarf_tag) (&die->die) == DW_TAG_inlined_subroutine) 98cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng a->inlined = depth; 99cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 100cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 101cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return 0; 102cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 103cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 104cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng/* Preorder visitor for second partial traversal after finding a 105cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng concrete inlined instance. */ 106cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstatic int 107cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengorigin_match (unsigned int depth, struct Dwarf_Die_Chain *die, void *arg) 108cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 109cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng struct args *a = arg; 110cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 111cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (die->die.addr != a->inlined_origin.addr) 112cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return 0; 113cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 114cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* We have a winner! This is the abstract definition of the inline 115cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng function of which A->scopes[A->nscopes - 1] is a concrete instance. 116cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng */ 117cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 118cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng unsigned int nscopes = a->nscopes + depth; 119cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Die *scopes = realloc (a->scopes, nscopes * sizeof scopes[0]); 120cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (scopes == NULL) 121cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 122cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng free (a->scopes); 123cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng __libdw_seterrno (DWARF_E_NOMEM); 124cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 125cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 126cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 127cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng a->scopes = scopes; 128cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng do 129cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 130cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng die = die->parent; 131cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng scopes[a->nscopes++] = die->die; 132cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 133cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while (a->nscopes < nscopes); 134cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng assert (die->parent == NULL); 135cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return a->nscopes; 136cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 137cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 138cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng/* Postorder visitor: first (innermost) call wins. */ 139cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengstatic int 140cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengpc_record (unsigned int depth, struct Dwarf_Die_Chain *die, void *arg) 141cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 142cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng struct args *a = arg; 143cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 144cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (die->prune) 145cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return 0; 146cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 147cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (a->scopes == NULL) 148cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 149cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* We have hit the innermost DIE that contains the target PC. */ 150cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 151cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng a->nscopes = depth + 1 - a->inlined; 152cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng a->scopes = malloc (a->nscopes * sizeof a->scopes[0]); 153cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (a->scopes == NULL) 154cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 155cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng __libdw_seterrno (DWARF_E_NOMEM); 156cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 157cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 158cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 159cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng for (unsigned int i = 0; i < a->nscopes; ++i) 160cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 161cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng a->scopes[i] = die->die; 162cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng die = die->parent; 163cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 164cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 165cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (a->inlined == 0) 166cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 167cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng assert (die == NULL); 168cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return a->nscopes; 169cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 170cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 171cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* This is the concrete inlined instance itself. 172cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Record its abstract_origin pointer. */ 173cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Die *const inlinedie = &a->scopes[depth - a->inlined]; 174cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 175cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng assert (INTUSE (dwarf_tag) (inlinedie) == DW_TAG_inlined_subroutine); 176cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Attribute attr_mem; 177cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Attribute *attr = INTUSE (dwarf_attr) (inlinedie, 178cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng DW_AT_abstract_origin, 179cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng &attr_mem); 180cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (INTUSE (dwarf_formref_die) (attr, &a->inlined_origin) == NULL) 181cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 182cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return 0; 183cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 184cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 185cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 186cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* We've recorded the scopes back to one that is a concrete inlined 187cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng instance. Now return out of the traversal back to the scope 188cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng containing that instance. */ 189cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 190cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng assert (a->inlined); 191cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (depth >= a->inlined) 192cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Not there yet. */ 193cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return 0; 194cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 195cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Now we are in a scope that contains the concrete inlined instance. 196cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Search it for the inline function's abstract definition. 197cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng If we don't find it, return to search the containing scope. 198cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng If we do find it, the nonzero return value will bail us out 199cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng of the postorder traversal. */ 200cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return __libdw_visit_scopes (depth, die, &origin_match, NULL, a); 201cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 202cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 203cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 204cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengint 205cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengdwarf_getscopes (Dwarf_Die *cudie, Dwarf_Addr pc, Dwarf_Die **scopes) 206cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 207cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (cudie == NULL) 208cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 209cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 210cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng struct Dwarf_Die_Chain cu = { .parent = NULL, .die = *cudie }; 211cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng struct args a = { .pc = pc }; 212cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 213cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng int result = __libdw_visit_scopes (0, &cu, &pc_match, &pc_record, &a); 214cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 215cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (result == 0 && a.scopes != NULL) 216cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng result = __libdw_visit_scopes (0, &cu, &origin_match, NULL, &a); 217cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 218cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (result > 0) 219cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng *scopes = a.scopes; 220cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 221cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return result; 222cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 223