171e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath/* Return scope DIEs containing given DIE. 2daf278fda6d9bd329b517757f9ba2d74619f3be7Mark Wielaard Copyright (C) 2005, 2015 Red Hat, Inc. 3de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard This file is part of elfutils. 471e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath 5de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard This file is free software; you can redistribute it and/or modify 6de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard it under the terms of either 771e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath 8de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard * the GNU Lesser General Public License as published by the Free 9de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard Software Foundation; either version 3 of the License, or (at 10de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard your option) any later version 11de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard 12de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard or 13de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard 14de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard * the GNU General Public License as published by the Free 15de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard Software Foundation; either version 2 of the License, or (at 16de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard your option) any later version 17de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard 18de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard or both in parallel, as here. 19de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard 20de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard elfutils is distributed in the hope that it will be useful, but 21361df7da6dfecd817b27e62b91752ac316d7cdd4Ulrich Drepper WITHOUT ANY WARRANTY; without even the implied warranty of 22361df7da6dfecd817b27e62b91752ac316d7cdd4Ulrich Drepper MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 23361df7da6dfecd817b27e62b91752ac316d7cdd4Ulrich Drepper General Public License for more details. 24361df7da6dfecd817b27e62b91752ac316d7cdd4Ulrich Drepper 25de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard You should have received copies of the GNU General Public License and 26de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard the GNU Lesser General Public License along with this program. If 27de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard not, see <http://www.gnu.org/licenses/>. */ 2871e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath 2971e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath#ifdef HAVE_CONFIG_H 3071e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath# include <config.h> 3171e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath#endif 3271e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath#include "libdwP.h" 3371e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath#include <assert.h> 3471e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath#include <stdlib.h> 3571e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath 3671e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrathstatic int 3771e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrathscope_visitor (unsigned int depth, struct Dwarf_Die_Chain *die, void *arg) 3871e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath{ 3971e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath if (die->die.addr != *(void **) arg) 4071e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath return 0; 4171e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath 4271e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath Dwarf_Die *scopes = malloc (depth * sizeof scopes[0]); 4371e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath if (scopes == NULL) 4471e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath { 4571e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath __libdw_seterrno (DWARF_E_NOMEM); 4671e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath return -1; 4771e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath } 4871e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath 4971e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath unsigned int i = 0; 5071e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath do 5171e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath { 5271e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath scopes[i++] = die->die; 5371e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath die = die->parent; 5471e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath } 5571e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath while (die != NULL); 5671e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath assert (i == depth); 5771e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath 5871e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath *(void **) arg = scopes; 5971e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath return depth; 6071e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath} 6171e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath 6271e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrathint 6371e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrathdwarf_getscopes_die (Dwarf_Die *die, Dwarf_Die **scopes) 6471e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath{ 6571e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath if (die == NULL) 6671e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath return -1; 6771e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath 686724c90d02659f7466b67b357563042e403d154eRoland McGrath struct Dwarf_Die_Chain cu = { .die = CUDIE (die->cu), .parent = NULL }; 6971e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath void *info = die->addr; 70daf278fda6d9bd329b517757f9ba2d74619f3be7Mark Wielaard int result = __libdw_visit_scopes (1, &cu, NULL, &scope_visitor, NULL, &info); 7171e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath if (result > 0) 7271e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath *scopes = info; 7371e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath return result; 7471e15a01742e5d5de9c6260d4526146be54e5a8aRoland McGrath} 75