use of standard integer (and other) types from util/h/Types.h
[dyninst.git] / dyninstAPI_RT / src / RTlinux.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 /************************************************************************
43  * $Id: RTlinux.c,v 1.5 1999/11/11 00:58:16 wylie Exp $
44  * RTlinux.c: mutatee-side library function specific to Linux
45  ************************************************************************/
46
47 #include <signal.h>
48 #include <assert.h>
49 #include <stdio.h>
50 #include <dlfcn.h>
51 #include <link.h>
52
53 #include <sys/ptrace.h>
54
55 #include "dyninstAPI_RT/h/dyninstAPI_RT.h"
56
57 /************************************************************************
58  * void DYNINSTos_init(void)
59  *
60  * os initialization function
61 ************************************************************************/
62
63 void DYNINSTtrapHandler(int sig, struct sigcontext uap );
64
65 void
66 DYNINSTos_init(int calledByFork, int calledByAttach)
67 {
68     /*
69        Install trap handler.
70        This is currently being used only on the x86 platform.
71     */
72     
73     struct sigaction act;
74     act.sa_handler = (void(*)(int))DYNINSTtrapHandler;
75     act.sa_flags = 0;
76     sigfillset(&act.sa_mask);
77     if (sigaction(SIGTRAP, &act, 0) != 0) {
78         perror("sigaction(SIGTRAP)");
79         assert(0);
80         abort();
81     }
82     
83     ptrace( PTRACE_TRACEME, 0, 0, 0 );
84 }
85
86
87 \f
88
89
90 /****************************************************************************
91    The trap handler. Currently being used only on x86 platform.
92
93    Traps are used when we can't insert a jump at a point. The trap
94    handler looks up the address of the base tramp for the point that
95    uses the trap, and set the pc to this base tramp.
96    The paradynd is responsible for updating the tramp table when it
97    inserts instrumentation.
98 *****************************************************************************/
99
100 trampTableEntry DYNINSTtrampTable[TRAMPTABLESZ];
101 unsigned DYNINSTtotalTraps = 0;
102
103 static unsigned lookup(unsigned key) {
104     unsigned u;
105     unsigned k;
106     for (u = HASH1(key); 1; u = (u + HASH2(key)) % TRAMPTABLESZ) {
107       k = DYNINSTtrampTable[u].key;
108       if (k == 0)
109         return 0;
110       else if (k == key)
111         return DYNINSTtrampTable[u].val;
112     }
113     /* not reached */
114     assert(0);
115     abort();
116 }
117
118 void DYNINSTtrapHandler(int sig, struct sigcontext uap ) {
119     unsigned pc = uap.eip;
120     unsigned nextpc = lookup(pc);
121
122     if (!nextpc) {
123       /* kludge: maybe the PC was not automatically adjusted after the trap */
124       /* this happens for a forked process */
125       pc--;
126       nextpc = lookup(pc);
127     }
128
129     if (nextpc) {
130                 /* WARNING -- Remove before using in real use, it could KILL anything
131                    that instruments libc */
132                 /*fprintf( stderr, "DYNINST trap %#.8x -> %#.8x\n", pc, nextpc );*/
133       uap.eip = nextpc;
134     } else {
135       assert(0);
136       abort();
137     }
138     DYNINSTtotalTraps++;
139 }
140
141 int DYNINSTloadLibrary(char *libname)
142 {
143     void *res;
144
145     res = dlopen( libname, RTLD_NOW | RTLD_GLOBAL );
146
147     if( res == NULL ) {
148         perror( "DYNINSTloadLibrary -- dlopen" );
149         return 0;  // An error has occurred
150     } else
151         return 1;
152
153     /*
154      * All of this is necessary because on linux, dlopen is not in libc, but
155      * in a separate library libdl.  Not all programs are linked with libdl,
156      * but libc does contain the underlying functions.  This is gross and
157      * may break with new versions of glibc.  It is based on glibc 2.0.6
158      */
159 /*
160     struct link_map *new;
161     char *errstr;
162     int err;
163     
164     void doit (void) {
165         new = _dl_open( libname ?: "", RTLD_NOW | RTLD_GLOBAL );
166     }
167
168     err = _dl_catch_error( &errstr, doit );
169     
170     if( errstr == NULL )
171         return 1;
172     else {
173         fprintf( stderr, errstr );
174         free( errstr );
175         return 0;
176     }
177 */
178 }