1cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng/* Find matching source locations in a module. 2cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Copyright (C) 2005 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#include "libdwflP.h" 51cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng#include "../libdw/libdwP.h" 52cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 53cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengint 54cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Chengdwfl_module_getsrc_file (Dwfl_Module *mod, 55cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng const char *fname, int lineno, int column, 56cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwfl_Line ***srcsp, size_t *nsrcs) 57cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng{ 58cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (mod == NULL) 59cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 60cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 61cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (mod->dw == NULL) 62cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 63cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Addr bias; 64cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (INTUSE(dwfl_module_getdwarf) (mod, &bias) == NULL) 65cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 66cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 67cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 68cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng bool is_basename = strchr (fname, '/') == NULL; 69cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 70cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng size_t max_match = *nsrcs ?: ~0u; 71cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng size_t act_match = *nsrcs; 72cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng size_t cur_match = 0; 73cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwfl_Line **match = *nsrcs == 0 ? NULL : *srcsp; 74cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 75cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng struct dwfl_cu *cu = NULL; 76cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwfl_Error error; 77cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng while ((error = __libdwfl_nextcu (mod, cu, &cu)) == DWFL_E_NOERROR 78cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && cu != NULL 79cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && (error = __libdwfl_cu_getsrclines (cu)) == DWFL_E_NOERROR) 80cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 81cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng inline const char *INTUSE(dwarf_line_file) (const Dwarf_Line *line) 82cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 83cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return line->files->info[line->file].name; 84cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 85cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng inline Dwarf_Line *dwfl_line (const Dwfl_Line *line) 86cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 87cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return &dwfl_linecu (line)->die.cu->lines->info[line->idx]; 88cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 89cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng inline const char *dwfl_line_file (const Dwfl_Line *line) 90cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 91cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return INTUSE(dwarf_line_file) (dwfl_line (line)); 92cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 93cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 94cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Search through all the line number records for a matching 95cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng file and line/column number. If any of the numbers is zero, 96cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng no match is performed. */ 97cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng const char *lastfile = NULL; 98cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng bool lastmatch = false; 99cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng for (size_t cnt = 0; cnt < cu->die.cu->lines->nlines; ++cnt) 100cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 101cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwarf_Line *line = &cu->die.cu->lines->info[cnt]; 102cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 103cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (unlikely (line->file >= line->files->nfiles)) 104cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 105cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng __libdwfl_seterrno (DWFL_E (LIBDW, DWARF_E_INVALID_DWARF)); 106cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 107cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 108cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng else 109cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 110cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng const char *file = INTUSE(dwarf_line_file) (line); 111cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (file != lastfile) 112cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 113cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Match the name with the name the user provided. */ 114cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng lastfile = file; 115cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng lastmatch = !strcmp (is_basename ? basename (file) : file, 116cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng fname); 117cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 118cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 119cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (!lastmatch) 120cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng continue; 121cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 122cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* See whether line and possibly column match. */ 123cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (lineno != 0 124cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && (lineno > line->line 125cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng || (column != 0 && column > line->column))) 126cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Cannot match. */ 127cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng continue; 128cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 129cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Determine whether this is the best match so far. */ 130cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng size_t inner; 131cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng for (inner = 0; inner < cur_match; ++inner) 132cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (dwfl_line_file (match[inner]) 133cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng == INTUSE(dwarf_line_file) (line)) 134cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng break; 135cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (inner < cur_match 136cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && (dwfl_line (match[inner])->line != line->line 137cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng || dwfl_line (match[inner])->line != lineno 138cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng || (column != 0 139cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && (dwfl_line (match[inner])->column != line->column 140cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng || dwfl_line (match[inner])->column != column)))) 141cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 142cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* We know about this file already. If this is a better 143cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng match for the line number, use it. */ 144cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (dwfl_line (match[inner])->line >= line->line 145cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng && (dwfl_line (match[inner])->line != line->line 146cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng || dwfl_line (match[inner])->column >= line->column)) 147cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Use the new line. Otherwise the old one. */ 148cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng match[inner] = &cu->lines->idx[cnt]; 149cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng continue; 150cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 151cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 152cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (cur_match < max_match) 153cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 154cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (cur_match == act_match) 155cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 156cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng /* Enlarge the array for the results. */ 157cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng act_match += 10; 158cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng Dwfl_Line **newp = realloc (match, 159cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng act_match 160cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng * sizeof (Dwfl_Line *)); 161cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (newp == NULL) 162cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 163cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng free (match); 164cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng __libdwfl_seterrno (DWFL_E_NOMEM); 165cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 166cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 167cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng match = newp; 168cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 169cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 170cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng match[cur_match++] = &cu->lines->idx[cnt]; 171cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 172cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 173cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 174cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 175cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng if (cur_match > 0) 176cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng { 177cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng assert (*nsrcs == 0 || *srcsp == match); 178cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 179cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng *nsrcs = cur_match; 180cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng *srcsp = match; 181cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 182cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return 0; 183cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng } 184cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng 185cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng __libdwfl_seterrno (DWFL_E_NO_MATCH); 186cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng return -1; 187cc6695e2684ce93cdf8bd2da63d55d2cf49ff076Ben Cheng} 188