Added BPatch_thread::oneTimeCode, BPatch_thread::loadLibrary, and other
[dyninst.git] / dyninstAPI / src / BPatch_point.C
1 /*
2  * Copyright (c) 1996 Barton P. Miller
3  * 
4  * We provide the Paradyn Parallel Performance Tools (below
5  * described as Paradyn") on an AS IS basis, and do not warrant its
6  * validity or performance.  We reserve the right to update, modify,
7  * or discontinue this software at any time.  We shall have no
8  * obligation to supply such updates or modifications or any other
9  * form of support to you.
10  * 
11  * This license is for research uses.  For such uses, there is no
12  * charge. We define "research use" to mean you may freely use it
13  * inside your organization for whatever purposes you see fit. But you
14  * may not re-distribute Paradyn or parts of Paradyn, in any form
15  * source or binary (including derivatives), electronic or otherwise,
16  * to any other organization or entity without our permission.
17  * 
18  * (for other uses, please contact us at paradyn@cs.wisc.edu)
19  * 
20  * All warranties, including without limitation, any warranty of
21  * merchantability or fitness for a particular purpose, are hereby
22  * excluded.
23  * 
24  * By your use of Paradyn, you understand and agree that we (or any
25  * other person or entity with proprietary rights in Paradyn) are
26  * under no obligation to provide either maintenance services,
27  * update services, notices of latent defects, or correction of
28  * defects for Paradyn.
29  * 
30  * Even if advised of the possibility of such damages, under no
31  * circumstances shall we (or any other person or entity with
32  * proprietary rights in the software licensed hereunder) be liable
33  * to you or any third party for direct, indirect, or consequential
34  * damages of any character regardless of type of action, including,
35  * without limitation, loss of profits, loss of use, loss of good
36  * will, or computer failure or malfunction.  You agree to indemnify
37  * us (and any other person or entity with proprietary rights in the
38  * software licensed hereunder) for any and all liability it may
39  * incur to third parties resulting from your use of Paradyn.
40  */
41
42 #include <stdio.h>
43 #ifdef rs6000_ibm_aix4_1
44 #include <memory.h>
45 #endif
46
47 #include "BPatch_point.h"
48 #include "BPatch_snippet.h"
49 #include "process.h"
50 #include "symtab.h"
51 #include "instPoint.h"
52
53
54 /*
55  * BPatch_point::getCalledFunction
56  *
57  * For a BPatch_point representing a call site, returns a pointer to a
58  * BPatch_function that represents the function being called.  If the point
59  * isn't a call site, returns NULL.
60  */
61 BPatch_function *BPatch_point::getCalledFunction()
62 {
63     assert(point);
64
65     // XXX Should get rid of the machine-dependent stuff here
66 #if defined(sparc_sun_sunos4_1_3) || defined(sparc_sun_solaris2_4)
67     if (point->ipType != callSite)
68         return NULL;
69 #elif defined(rs6000_ibm_aix3_2) || defined(rs6000_ibm_aix4_1)
70     if (point->ipLoc != ipFuncCallPoint)
71         return NULL;
72 #elif defined(i386_unknown_solaris2_5) || defined(i386_unknown_nt4_0)
73     if (!point->insnAtPoint().isCall())
74         return NULL;
75 #endif
76
77     function_base *func;
78     if (!proc->findCallee(*point, func))
79         return NULL;
80
81     if (func != NULL)
82         return new BPatch_function(proc, func);
83     else
84         return NULL;
85 }
86
87
88 /*
89  * BPatch_point::getAddress
90  *
91  * Returns the original address of the first instruction at this point.
92  */
93 void *BPatch_point::getAddress()
94 {
95     return point->iPgetAddress();
96 }
97
98
99 /*
100  * BPatch_point::getDisplacedInstructions
101  *
102  * Returns the instructions to be relocated when instrumentation is inserted
103  * at this point.  Returns the number of bytes taken up by these instructions.
104  *
105  * maxSize      The maximum number of bytes of instructions to return.
106  * insns        A pointer to a buffer in which to return the instructions.
107  */
108 int BPatch_point::getDisplacedInstructions(int maxSize, void *insns)
109 {
110 #ifdef rs6000_ibm_aix4_1
111     if (maxSize >= sizeof(instruction))
112         memcpy(insns, &point->originalInstruction.raw, sizeof(instruction));
113
114     return sizeof(instruction);
115 #else
116     // Not implemented except on AIX
117     return -1;
118 #endif
119 }
120
121
122 /*
123  * BPatch_point::usesTrap_NP
124  *
125  * Returns true if this point is or would be instrumented with a trap, rather
126  * than a jump to the base tramp, false otherwise.  On platforms that do not
127  * use traps (everything other than x86), it always returns false;
128  */
129 bool BPatch_point::usesTrap_NP()
130 {
131 #if defined(i386_unknown_solaris2_5) || defined(i386_unknown_nt4_0)
132     assert(point);
133     assert(proc);
134
135     return point->usesTrap(proc);
136 #else
137     return false;
138 #endif
139 }