source: branches/libc-0.6/src/binutils/gprof/vax.c

Last change on this file was 610, checked in by bird, 22 years ago

This commit was generated by cvs2svn to compensate for changes in r609,
which included commits to RCS files with non-trunk default branches.
  • Property cvs2svn:cvs-rev set to 1.1.1.2
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 9.3 KB
Line 
1/*
2 * Copyright (c) 1983, 1993, 2001
3 * The Regents of the University of California. All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 * notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 * notice, this list of conditions and the following disclaimer in the
12 * documentation and/or other materials provided with the distribution.
13 * 3. Neither the name of the University nor the names of its contributors
14 * may be used to endorse or promote products derived from this software
15 * without specific prior written permission.
16 *
17 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
18 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
19 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
20 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
21 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
22 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
23 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
24 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
25 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
26 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
27 * SUCH DAMAGE.
28 */
29#include "gprof.h"
30#include "search_list.h"
31#include "source.h"
32#include "symtab.h"
33#include "cg_arcs.h"
34#include "corefile.h"
35#include "hist.h"
36
37 /*
38 * opcode of the `calls' instruction
39 */
40#define CALLS 0xfb
41
42 /*
43 * register for pc relative addressing
44 */
45#define PC 0xf
46
47enum opermodes
48 {
49 literal, indexed, reg, regdef, autodec, autoinc, autoincdef,
50 bytedisp, bytedispdef, worddisp, worddispdef, longdisp, longdispdef,
51 immediate, absolute, byterel, bytereldef, wordrel, wordreldef,
52 longrel, longreldef
53 };
54typedef enum opermodes operandenum;
55
56#if 0
57/* Here to document only. We can't use this when cross compiling as
58 the bitfield layout might not be the same as native. */
59struct modebyte
60 {
61 unsigned int regfield:4;
62 unsigned int modefield:4;
63 };
64#endif
65
66/*
67 * A symbol to be the child of indirect calls:
68 */
69static Sym indirectchild;
70
71static operandenum vax_operandmode PARAMS ((unsigned char *));
72static char *vax_operandname PARAMS ((operandenum));
73static long vax_operandlength PARAMS ((unsigned char *));
74static bfd_signed_vma vax_offset PARAMS ((unsigned char *));
75void vax_find_call PARAMS ((Sym *, bfd_vma, bfd_vma));
76
77static operandenum
78vax_operandmode (modep)
79 unsigned char *modep;
80{
81 int usesreg = *modep & 0xf;
82
83 switch ((*modep >> 4) & 0xf)
84 {
85 case 0:
86 case 1:
87 case 2:
88 case 3:
89 return literal;
90 case 4:
91 return indexed;
92 case 5:
93 return reg;
94 case 6:
95 return regdef;
96 case 7:
97 return autodec;
98 case 8:
99 return usesreg != PC ? autoinc : immediate;
100 case 9:
101 return usesreg != PC ? autoincdef : absolute;
102 case 10:
103 return usesreg != PC ? bytedisp : byterel;
104 case 11:
105 return usesreg != PC ? bytedispdef : bytereldef;
106 case 12:
107 return usesreg != PC ? worddisp : wordrel;
108 case 13:
109 return usesreg != PC ? worddispdef : wordreldef;
110 case 14:
111 return usesreg != PC ? longdisp : longrel;
112 case 15:
113 return usesreg != PC ? longdispdef : longreldef;
114 }
115 /* NOTREACHED */
116 abort ();
117}
118
119static char *
120vax_operandname (mode)
121 operandenum mode;
122{
123
124 switch (mode)
125 {
126 case literal:
127 return "literal";
128 case indexed:
129 return "indexed";
130 case reg:
131 return "register";
132 case regdef:
133 return "register deferred";
134 case autodec:
135 return "autodecrement";
136 case autoinc:
137 return "autoincrement";
138 case autoincdef:
139 return "autoincrement deferred";
140 case bytedisp:
141 return "byte displacement";
142 case bytedispdef:
143 return "byte displacement deferred";
144 case byterel:
145 return "byte relative";
146 case bytereldef:
147 return "byte relative deferred";
148 case worddisp:
149 return "word displacement";
150 case worddispdef:
151 return "word displacement deferred";
152 case wordrel:
153 return "word relative";
154 case wordreldef:
155 return "word relative deferred";
156 case immediate:
157 return "immediate";
158 case absolute:
159 return "absolute";
160 case longdisp:
161 return "long displacement";
162 case longdispdef:
163 return "long displacement deferred";
164 case longrel:
165 return "long relative";
166 case longreldef:
167 return "long relative deferred";
168 }
169 /* NOTREACHED */
170 abort ();
171}
172
173static long
174vax_operandlength (modep)
175 unsigned char *modep;
176{
177
178 switch (vax_operandmode (modep))
179 {
180 case literal:
181 case reg:
182 case regdef:
183 case autodec:
184 case autoinc:
185 case autoincdef:
186 return 1;
187 case bytedisp:
188 case bytedispdef:
189 case byterel:
190 case bytereldef:
191 return 2;
192 case worddisp:
193 case worddispdef:
194 case wordrel:
195 case wordreldef:
196 return 3;
197 case immediate:
198 case absolute:
199 case longdisp:
200 case longdispdef:
201 case longrel:
202 case longreldef:
203 return 5;
204 case indexed:
205 return 1 + vax_operandlength (modep + 1);
206 }
207 /* NOTREACHED */
208 abort ();
209}
210
211static bfd_signed_vma
212vax_offset (modep)
213 unsigned char *modep;
214{
215 operandenum mode = vax_operandmode (modep);
216
217 ++modep; /* skip over the mode */
218 switch (mode)
219 {
220 default:
221 fprintf (stderr, "[reladdr] not relative address\n");
222 return 0;
223 case byterel:
224 return 1 + bfd_get_signed_8 (core_bfd, modep);
225 case wordrel:
226 return 2 + bfd_get_signed_16 (core_bfd, modep);
227 case longrel:
228 return 4 + bfd_get_signed_32 (core_bfd, modep);
229 }
230}
231
232
233void
234vax_find_call (parent, p_lowpc, p_highpc)
235 Sym *parent;
236 bfd_vma p_lowpc;
237 bfd_vma p_highpc;
238{
239 unsigned char *instructp;
240 long length;
241 Sym *child;
242 operandenum mode;
243 operandenum firstmode;
244 bfd_vma pc, destpc;
245 static bfd_boolean inited = FALSE;
246
247 if (!inited)
248 {
249 inited = TRUE;
250 sym_init (&indirectchild);
251 indirectchild.cg.prop.fract = 1.0;
252 indirectchild.cg.cyc.head = &indirectchild;
253 }
254
255 if (core_text_space == 0)
256 {
257 return;
258 }
259 if (p_lowpc < s_lowpc)
260 {
261 p_lowpc = s_lowpc;
262 }
263 if (p_highpc > s_highpc)
264 {
265 p_highpc = s_highpc;
266 }
267 DBG (CALLDEBUG, printf ("[findcall] %s: 0x%lx to 0x%lx\n",
268 parent->name, (unsigned long) p_lowpc,
269 (unsigned long) p_highpc));
270 for (pc = p_lowpc; pc < p_highpc; pc += length)
271 {
272 length = 1;
273 instructp = ((unsigned char *) core_text_space
274 + pc - core_text_sect->vma);
275 if ((*instructp & 0xff) == CALLS)
276 {
277 /*
278 * maybe a calls, better check it out.
279 * skip the count of the number of arguments.
280 */
281 DBG (CALLDEBUG,
282 printf ("[findcall]\t0x%lx:calls", (unsigned long) pc));
283 firstmode = vax_operandmode (instructp + length);
284 switch (firstmode)
285 {
286 case literal:
287 case immediate:
288 break;
289 default:
290 goto botched;
291 }
292 length += vax_operandlength (instructp + length);
293 mode = vax_operandmode (instructp + length);
294 DBG (CALLDEBUG,
295 printf ("\tfirst operand is %s", vax_operandname (firstmode));
296 printf ("\tsecond operand is %s\n", vax_operandname (mode)));
297 switch (mode)
298 {
299 case regdef:
300 case bytedispdef:
301 case worddispdef:
302 case longdispdef:
303 case bytereldef:
304 case wordreldef:
305 case longreldef:
306 /*
307 * indirect call: call through pointer
308 * either *d(r) as a parameter or local
309 * (r) as a return value
310 * *f as a global pointer
311 * [are there others that we miss?,
312 * e.g. arrays of pointers to functions???]
313 */
314 arc_add (parent, &indirectchild, (unsigned long) 0);
315 length += vax_operandlength (instructp + length);
316 continue;
317 case byterel:
318 case wordrel:
319 case longrel:
320 /*
321 * regular pc relative addressing
322 * check that this is the address of
323 * a function.
324 */
325 destpc = pc + vax_offset (instructp + length);
326 if (destpc >= s_lowpc && destpc <= s_highpc)
327 {
328 child = sym_lookup (&symtab, destpc);
329 DBG (CALLDEBUG,
330 printf ("[findcall]\tdestpc 0x%lx",
331 (unsigned long) destpc);
332 printf (" child->name %s", child->name);
333 printf (" child->addr 0x%lx\n",
334 (unsigned long) child->addr);
335 );
336 if (child->addr == destpc)
337 {
338 /*
339 * a hit
340 */
341 arc_add (parent, child, (unsigned long) 0);
342 length += vax_operandlength (instructp + length);
343 continue;
344 }
345 goto botched;
346 }
347 /*
348 * else:
349 * it looked like a calls,
350 * but it wasn't to anywhere.
351 */
352 goto botched;
353 default:
354 botched:
355 /*
356 * something funny going on.
357 */
358 DBG (CALLDEBUG, printf ("[findcall]\tbut it's a botch\n"));
359 length = 1;
360 continue;
361 }
362 }
363 }
364}
Note: See TracBrowser for help on using the repository browser.