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