1b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper/* Find a named variable or parameter within given scopes. 208277bac843e776849e8282ba1c7a9d73cad0632Roland McGrath Copyright (C) 2005-2009 Red Hat, Inc. 3de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard This file is part of elfutils. 4b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 5de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard This file is free software; you can redistribute it and/or modify 6de2ed97f33139af5c7a0811e4ec66fc896a13cf2Mark Wielaard it under the terms of either 7b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 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/>. */ 28b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 29b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper#ifdef HAVE_CONFIG_H 30b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper# include <config.h> 31b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper#endif 32b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 33b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper#include <stdbool.h> 34b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper#include <string.h> 35b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper#include "libdwP.h" 36b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper#include <dwarf.h> 37b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 38b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 39b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper/* Find the containing CU's files. */ 40b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepperstatic int 41b08d5a8fb42f4586d756068065186b5af7e48daUlrich Dreppergetfiles (Dwarf_Die *die, Dwarf_Files **files) 42b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper{ 436724c90d02659f7466b67b357563042e403d154eRoland McGrath return INTUSE(dwarf_getsrcfiles) (&CUDIE (die->cu), files, NULL); 44b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper} 45b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 46b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper/* Fetch an attribute that should have a constant integer form. */ 47b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepperstatic int 48b08d5a8fb42f4586d756068065186b5af7e48daUlrich Dreppergetattr (Dwarf_Die *die, int search_name, Dwarf_Word *value) 49b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper{ 50b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper Dwarf_Attribute attr_mem; 51b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper return INTUSE(dwarf_formudata) (INTUSE(dwarf_attr) (die, search_name, 52b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper &attr_mem), value); 53b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper} 54b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 55b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsiehstatic inline int 56b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsiehfile_matches (const char *lastfile, 57b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh size_t match_file_len, const char *match_file, 58b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh Dwarf_Files *files, size_t idx, 59b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh bool *lastfile_matches) 60b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh{ 61b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh if (idx >= files->nfiles) 62b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh return false; 63b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh const char *file = files->info[idx].name; 64b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh if (file != lastfile) 65b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh { 66b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh size_t len = strlen (file); 67b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh *lastfile_matches = (len >= match_file_len 68b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh && !memcmp (match_file, file, match_file_len) 69b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh && (len == match_file_len 70b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh || file[len - match_file_len - 1] == '/')); 71b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh } 72b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh return *lastfile_matches; 73b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh} 74b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh 75b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper/* Search SCOPES[0..NSCOPES-1] for a variable called NAME. 76b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper Ignore the first SKIP_SHADOWS scopes that match the name. 77b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper If MATCH_FILE is not null, accept only declaration in that source file; 78b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper if MATCH_LINENO or MATCH_LINECOL are also nonzero, accept only declaration 79b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper at that line and column. 80b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 81b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper If successful, fill in *RESULT with the DIE of the variable found, 82b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper and return N where SCOPES[N] is the scope defining the variable. 83b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper Return -1 for errors or -2 for no matching variable found. */ 84b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 85b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepperint 86b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepperdwarf_getscopevar (Dwarf_Die *scopes, int nscopes, 87b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper const char *name, int skip_shadows, 88b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper const char *match_file, int match_lineno, int match_linecol, 89b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper Dwarf_Die *result) 90b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper{ 91b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper /* Match against the given file name. */ 92b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper size_t match_file_len = match_file == NULL ? 0 : strlen (match_file); 93b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper bool lastfile_matches = false; 94b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper const char *lastfile = NULL; 95b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 96b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper /* Start with the innermost scope and move out. */ 97b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper for (int out = 0; out < nscopes; ++out) 98b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper if (INTUSE(dwarf_haschildren) (&scopes[out])) 99b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper { 100b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper if (INTUSE(dwarf_child) (&scopes[out], result) != 0) 101b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper return -1; 102b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper do 103b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper { 104b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper switch (INTUSE(dwarf_tag) (result)) 105b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper { 106b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper case DW_TAG_variable: 107b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper case DW_TAG_formal_parameter: 108b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper break; 109b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 110b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper default: 111b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper continue; 112b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper } 113b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 114b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper /* Only get here for a variable or parameter. Check the name. */ 11508277bac843e776849e8282ba1c7a9d73cad0632Roland McGrath const char *diename = INTUSE(dwarf_diename) (result); 116b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper if (diename != NULL && !strcmp (name, diename)) 117b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper { 118b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper /* We have a matching name. */ 119b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 120b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper if (skip_shadows > 0) 121b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper { 122b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper /* Punt this scope for the one it shadows. */ 123b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper --skip_shadows; 124b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper break; 125b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper } 126b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 127b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper if (match_file != NULL) 128b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper { 129b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper /* Check its decl_file. */ 130b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 131b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper Dwarf_Word i; 132b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper Dwarf_Files *files; 133b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper if (getattr (result, DW_AT_decl_file, &i) != 0 134b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper || getfiles (&scopes[out], &files) != 0) 135b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper break; 136b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 137b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh if (!file_matches (lastfile, match_file_len, match_file, 138b926e56b7ae5fc31aee3d4bb8f40906c9aa001c2Chih-Hung Hsieh files, i, &lastfile_matches)) 139b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper break; 140b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 141b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper if (match_lineno > 0 142b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper && (getattr (result, DW_AT_decl_line, &i) != 0 143b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper || (int) i != match_lineno)) 144b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper break; 145b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper if (match_linecol > 0 146b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper && (getattr (result, DW_AT_decl_column, &i) != 0 147b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper || (int) i != match_linecol)) 148b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper break; 149b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper } 150b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 151b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper /* We have a winner! */ 152b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper return out; 153b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper } 154b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper } 155b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper while (INTUSE(dwarf_siblingof) (result, result) == 0); 156b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper } 157b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper 158b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper return -2; 159b08d5a8fb42f4586d756068065186b5af7e48daUlrich Drepper} 160