* elf64-mips.c (mips_elf64_howto_table_rela): Set src_mask to
[binutils.git] / gprof / symtab.c
blob3436f1b4c8fada940bf4e5a7528bcfb6f7343a1e
1 /* symtab.c
3 Copyright 1999, 2000, 2001, 2002, 2004, 2007, 2008
4 Free Software Foundation, Inc.
6 This file is part of GNU Binutils.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
21 02110-1301, USA. */
23 #include "gprof.h"
24 #include "search_list.h"
25 #include "source.h"
26 #include "symtab.h"
27 #include "cg_arcs.h"
28 #include "corefile.h"
30 static int cmp_addr (const PTR, const PTR);
32 Sym_Table symtab;
35 /* Initialize a symbol (so it's empty). */
37 void
38 sym_init (Sym *sym)
40 memset (sym, 0, sizeof (*sym));
42 /* It is not safe to assume that a binary zero corresponds
43 to a floating-point 0.0, so initialize floats explicitly. */
44 sym->hist.time = 0.0;
45 sym->cg.child_time = 0.0;
46 sym->cg.prop.fract = 0.0;
47 sym->cg.prop.self = 0.0;
48 sym->cg.prop.child = 0.0;
52 /* Compare the function entry-point of two symbols and return <0, =0,
53 or >0 depending on whether the left value is smaller than, equal
54 to, or greater than the right value. If two symbols are equal
55 but one has is_func set and the other doesn't, we make the
56 non-function symbol one "bigger" so that the function symbol will
57 survive duplicate removal. Finally, if both symbols have the
58 same is_func value, we discriminate against is_static such that
59 the global symbol survives. */
61 static int
62 cmp_addr (const PTR lp, const PTR rp)
64 const Sym *left = (const Sym *) lp;
65 const Sym *right = (const Sym *) rp;
67 if (left->addr > right->addr)
68 return 1;
69 else if (left->addr < right->addr)
70 return -1;
72 if (left->is_func != right->is_func)
73 return right->is_func - left->is_func;
75 return left->is_static - right->is_static;
79 void
80 symtab_finalize (Sym_Table *tab)
82 Sym *src, *dst;
83 bfd_vma prev_addr;
85 if (!tab->len)
86 return;
88 /* Sort symbol table in order of increasing function addresses. */
89 qsort (tab->base, tab->len, sizeof (Sym), cmp_addr);
91 /* Remove duplicate entries to speed-up later processing and
92 set end_addr if its not set yet. */
93 prev_addr = tab->base[0].addr + 1;
95 for (src = dst = tab->base; src < tab->limit; ++src)
97 if (src->addr == prev_addr)
99 /* If same address, favor global symbol over static one,
100 then function over line number. If both symbols are
101 either static or global and either function or line, check
102 whether one has name beginning with underscore while
103 the other doesn't. In such cases, keep sym without
104 underscore. This takes cares of compiler generated
105 symbols (such as __gnu_compiled, __c89_used, etc.). */
106 if ((!src->is_static && dst[-1].is_static)
107 || ((src->is_static == dst[-1].is_static)
108 && ((src->is_func && !dst[-1].is_func)
109 || ((src->is_func == dst[-1].is_func)
110 && ((src->name[0] != '_' && dst[-1].name[0] == '_')
111 || (src->name[0]
112 && src->name[1] != '_'
113 && dst[-1].name[1] == '_'))))))
115 DBG (AOUTDEBUG | IDDEBUG,
116 printf ("[symtab_finalize] favor %s@%c%c over %s@%c%c",
117 src->name, src->is_static ? 't' : 'T',
118 src->is_func ? 'F' : 'f',
119 dst[-1].name, dst[-1].is_static ? 't' : 'T',
120 dst[-1].is_func ? 'F' : 'f');
121 printf (" (addr=%lx)\n", (unsigned long) src->addr));
123 dst[-1] = *src;
125 else
127 DBG (AOUTDEBUG | IDDEBUG,
128 printf ("[symtab_finalize] favor %s@%c%c over %s@%c%c",
129 dst[-1].name, dst[-1].is_static ? 't' : 'T',
130 dst[-1].is_func ? 'F' : 'f',
131 src->name, src->is_static ? 't' : 'T',
132 src->is_func ? 'F' : 'f');
133 printf (" (addr=%lx)\n", (unsigned long) src->addr));
136 else
138 if (dst > tab->base && dst[-1].end_addr == 0)
139 dst[-1].end_addr = src->addr - 1;
141 /* Retain sym only if it has a non-empty address range. */
142 if (!src->end_addr || src->addr <= src->end_addr)
144 *dst = *src;
145 dst++;
146 prev_addr = src->addr;
151 if (tab->len > 0 && dst[-1].end_addr == 0)
152 dst[-1].end_addr
153 = core_text_sect->vma + bfd_get_section_size (core_text_sect) - 1;
155 DBG (AOUTDEBUG | IDDEBUG,
156 printf ("[symtab_finalize]: removed %d duplicate entries\n",
157 tab->len - (int) (dst - tab->base)));
159 tab->limit = dst;
160 tab->len = tab->limit - tab->base;
162 DBG (AOUTDEBUG | IDDEBUG,
163 unsigned int j;
165 for (j = 0; j < tab->len; ++j)
167 printf ("[symtab_finalize] 0x%lx-0x%lx\t%s\n",
168 (unsigned long) tab->base[j].addr,
169 (unsigned long) tab->base[j].end_addr,
170 tab->base[j].name);
176 #ifdef DEBUG
178 Sym *
179 dbg_sym_lookup (Sym_Table *sym_tab, bfd_vma address)
181 unsigned long low, mid, high;
182 Sym *sym;
184 fprintf (stderr, "[dbg_sym_lookup] address 0x%lx\n",
185 (unsigned long) address);
187 sym = sym_tab->base;
188 for (low = 0, high = sym_tab->len - 1; low != high;)
190 mid = (high + low) >> 1;
192 fprintf (stderr, "[dbg_sym_lookup] low=0x%lx, mid=0x%lx, high=0x%lx\n",
193 low, mid, high);
194 fprintf (stderr, "[dbg_sym_lookup] sym[m]=0x%lx sym[m + 1]=0x%lx\n",
195 (unsigned long) sym[mid].addr,
196 (unsigned long) sym[mid + 1].addr);
198 if (sym[mid].addr <= address && sym[mid + 1].addr > address)
199 return &sym[mid];
201 if (sym[mid].addr > address)
202 high = mid;
203 else
204 low = mid + 1;
207 fprintf (stderr, "[dbg_sym_lookup] binary search fails???\n");
209 return 0;
212 #endif /* DEBUG */
215 /* Look up an address in the symbol-table that is sorted by address.
216 If address does not hit any symbol, 0 is returned. */
217 Sym *
218 sym_lookup (Sym_Table *sym_tab, bfd_vma address)
220 long low, high;
221 long mid = -1;
222 Sym *sym;
223 #ifdef DEBUG
224 int probes = 0;
225 #endif /* DEBUG */
227 if (!sym_tab->len)
228 return 0;
230 sym = sym_tab->base;
231 for (low = 0, high = sym_tab->len - 1; low != high;)
233 DBG (LOOKUPDEBUG, ++probes);
234 mid = (high + low) / 2;
236 if (sym[mid].addr <= address && sym[mid + 1].addr > address)
238 if (address > sym[mid].end_addr)
240 /* Address falls into gap between
241 sym[mid] and sym[mid + 1]. */
242 return 0;
244 else
246 DBG (LOOKUPDEBUG,
247 printf ("[sym_lookup] %d probes (symtab->len=%u)\n",
248 probes, sym_tab->len - 1));
249 return &sym[mid];
253 if (sym[mid].addr > address)
254 high = mid;
255 else
256 low = mid + 1;
259 if (sym[mid + 1].addr <= address)
261 if (address > sym[mid + 1].end_addr)
263 /* Address is beyond end of sym[mid + 1]. */
264 return 0;
266 else
268 DBG (LOOKUPDEBUG, printf ("[sym_lookup] %d (%u) probes, fall off\n",
269 probes, sym_tab->len - 1));
270 return &sym[mid + 1];
274 return 0;