Commit | Line | Data |
---|---|---|
ec0806ec | 1 | /* |
5ec4a8f3 NC |
2 | * Copyright (c) 1983, 1993, 1998 |
3 | * The Regents of the University of California. All rights reserved. | |
ec0806ec | 4 | * |
5ec4a8f3 NC |
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. | |
ec0806ec JT |
28 | */ |
29 | #include "gprof.h" | |
6d9c411a AM |
30 | #include "search_list.h" |
31 | #include "source.h" | |
32 | #include "symtab.h" | |
ec0806ec JT |
33 | #include "cg_arcs.h" |
34 | #include "corefile.h" | |
35 | #include "hist.h" | |
ec0806ec JT |
36 | |
37 | static Sym indirect_child; | |
38 | ||
39 | void mips_find_call PARAMS ((Sym *, bfd_vma, bfd_vma)); | |
40 | ||
41 | void | |
42 | mips_find_call (parent, p_lowpc, p_highpc) | |
43 | Sym *parent; | |
44 | bfd_vma p_lowpc; | |
45 | bfd_vma p_highpc; | |
46 | { | |
47 | bfd_vma pc, dest_pc; | |
48 | unsigned int op; | |
49 | int offset; | |
50 | Sym *child; | |
bde52789 | 51 | static boolean inited = false; |
ec0806ec JT |
52 | |
53 | if (!inited) | |
54 | { | |
bde52789 | 55 | inited = true; |
ec0806ec JT |
56 | sym_init (&indirect_child); |
57 | indirect_child.name = _("<indirect child>"); | |
58 | indirect_child.cg.prop.fract = 1.0; | |
59 | indirect_child.cg.cyc.head = &indirect_child; | |
60 | } | |
61 | ||
62 | if (!core_text_space) | |
63 | { | |
64 | return; | |
65 | } | |
66 | if (p_lowpc < s_lowpc) | |
67 | { | |
68 | p_lowpc = s_lowpc; | |
69 | } | |
70 | if (p_highpc > s_highpc) | |
71 | { | |
72 | p_highpc = s_highpc; | |
73 | } | |
74 | DBG (CALLDEBUG, printf (_("[find_call] %s: 0x%lx to 0x%lx\n"), | |
75 | parent->name, (unsigned long) p_lowpc, | |
76 | (unsigned long) p_highpc)); | |
77 | for (pc = p_lowpc; pc < p_highpc; pc += 4) | |
78 | { | |
79 | op = bfd_get_32 (core_bfd, &((char *)core_text_space)[pc - s_lowpc]); | |
80 | if ((op & 0xfc000000) == 0x0c000000) | |
81 | { | |
82 | /* This is a "jal" instruction. Check that the destination | |
83 | is the address of a function. */ | |
84 | DBG (CALLDEBUG, | |
85 | printf (_("[find_call] 0x%lx: jal"), (unsigned long) pc)); | |
86 | offset = (op & 0x03ffffff) << 2; | |
1355568a | 87 | dest_pc = (pc & ~(bfd_vma) 0xfffffff) | offset; |
ec0806ec JT |
88 | if (dest_pc >= s_lowpc && dest_pc <= s_highpc) |
89 | { | |
90 | child = sym_lookup (&symtab, dest_pc); | |
91 | DBG (CALLDEBUG, | |
92 | printf (" 0x%lx\t; name=%s, addr=0x%lx", | |
93 | (unsigned long) dest_pc, child->name, | |
94 | (unsigned long) child->addr)); | |
95 | if (child->addr == dest_pc) | |
96 | { | |
97 | DBG (CALLDEBUG, printf ("\n")); | |
98 | /* a hit: */ | |
99 | arc_add (parent, child, (unsigned long) 0); | |
100 | continue; | |
101 | } | |
102 | } | |
103 | /* Something funny going on. */ | |
104 | DBG (CALLDEBUG, printf ("\tbut it's a botch\n")); | |
105 | } | |
106 | else if ((op & 0xfc00f83f) == 0x0000f809) | |
107 | { | |
108 | /* This is a "jalr" instruction (indirect call). */ | |
109 | DBG (CALLDEBUG, | |
110 | printf (_("[find_call] 0x%lx: jalr\n"), (unsigned long) pc)); | |
111 | arc_add (parent, &indirect_child, (unsigned long) 0); | |
112 | } | |
113 | } | |
114 | } |