Make sure the useCount of the DAG generated are correct
[dyninst.git] / paradynd / src / init-sunos.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  * $Log: init-sunos.C,v $
44  * Revision 1.23  1998/08/28 01:38:10  zhichen
45  * Make sure the useCount of the DAG generated are correct
46  *
47  * Revision 1.22  1997/12/01 02:15:45  tung
48  * modified for Linux/X86 Platform
49  *
50  * Revision 1.21  1997/07/22 19:09:56  naim
51  * Changes to make fork work on aix. Also, some change to make exec work on
52  * solaris. Althought it works now, there are still some things to be done
53  * for exec related to the visis - naim
54  *
55  * Revision 1.20  1997/07/16 19:13:55  naim
56  * Fixing fork on sunos - naim
57  *
58  * Revision 1.19  1997/07/14 20:43:23  naim
59  * Fixing problem with fork on x86 - naim
60  *
61  * Revision 1.18  1997/05/07 19:01:55  naim
62  * Getting rid of old support for threads and turning it off until the new
63  * version is finished. Additionally, new superTable, baseTable and superVector
64  * classes for future support of multiple threads. The fastInferiorHeap class has
65  * also changed - naim
66  *
67  * Revision 1.17  1997/03/23 16:53:11  zhichen
68  * based on process::pdFlavor, set initial inst accordingly.
69  *
70  * Revision 1.16  1997/02/21 20:15:47  naim
71  * Moving files from paradynd to dyninstAPI + eliminating references to
72  * dataReqNode from the ast class. This is the first pre-dyninstAPI commit! - naim
73  *
74  * Revision 1.15  1997/01/27 19:40:41  naim
75  * Part of the base instrumentation for supporting multithreaded applications
76  * (vectors of counter/timers) implemented for all current platforms +
77  * different bug fixes - naim
78  *
79  * Revision 1.14  1996/12/11 17:02:48  mjrg
80  * fixed problems with handling of fork and exec
81  *
82  * Revision 1.13  1996/11/14 14:27:00  naim
83  * Changing AstNodes back to pointers to improve performance - naim
84  *
85  * Revision 1.12  1996/10/31 08:44:32  tamches
86  * in initOS(), main no longer calls DYNINSTinit
87  *
88  * Revision 1.11  1996/09/26 18:58:32  newhall
89  * added support for instrumenting dynamic executables on sparc-solaris
90  * platform
91  *
92  * Revision 1.10  1996/08/16 21:18:44  tamches
93  * updated copyright for release 1.1
94  *
95  * Revision 1.9  1996/08/12 16:27:16  mjrg
96  * Code cleanup: removed cm5 kludges and some unused code
97  *
98  * Revision 1.8  1996/05/08 23:54:45  mjrg
99  * added support for handling fork and exec by an application
100  * use /proc instead of ptrace on solaris
101  * removed warnings
102  *
103  * Revision 1.7  1996/03/20 17:02:44  mjrg
104  * Added multiple arguments to calls.
105  * Instrument pvm_send instead of pvm_recv to get tags.
106  *
107  * Revision 1.6  1996/03/01 22:31:59  mjrg
108  * Replaced calls at the exit point by a call to DYNINSTexit
109  *
110  * Revision 1.5  1995/12/15 22:26:48  mjrg
111  * Merged paradynd and paradyndPVM
112  * Get module name for functions from symbol table in solaris
113  * Fixed code generation for multiple instrumentation statements
114  * Changed syntax of MDL resource lists
115  *
116  * Revision 1.4  1995/08/24  15:03:54  hollings
117  * AIX/SP-2 port (including option for split instruction/data heaps)
118  * Tracing of rexec (correctly spawns a paradynd if needed)
119  * Added rtinst function to read getrusage stats (can now be used in metrics)
120  * Critical Path
121  * Improved Error reporting in MDL sematic checks
122  * Fixed MDL Function call statement
123  * Fixed bugs in TK usage (strings passed where UID expected)
124  *
125  */
126
127 #include "paradynd/src/metric.h"
128 #include "paradynd/src/internalMetrics.h"
129 #include "dyninstAPI/src/inst.h"
130 #include "paradynd/src/init.h"
131 #include "dyninstAPI/src/ast.h"
132 #include "dyninstAPI/src/util.h"
133 #include "dyninstAPI/src/os.h"
134
135 // NOTE - the tagArg integer number starting with 0.  
136 bool initOS() {
137
138 //  initialRequests += new instMapping("main", "DYNINSTinit", FUNC_ENTRY);
139 // (obsoleted by installBootstrapInst() --ari)
140
141
142   initialRequests += new instMapping("main", "DYNINSTexit", FUNC_EXIT);
143
144   initialRequests += new instMapping(EXIT_NAME, "DYNINSTexit", FUNC_ENTRY);
145   if(process::pdFlavor != string("cow"))
146   {
147 #if defined(i386_unknown_solaris2_5) || defined(sparc_sun_sunos4_1_3) || defined(i386_unknown_linux2_0)
148         AstNode *retVal = new AstNode(AstNode::ReturnVal, (void *) 0);
149         initialRequests += new instMapping("_fork", "DYNINSTfork", 
150                                      FUNC_EXIT|FUNC_ARG, retVal);
151 #else
152         AstNode *retVal = new AstNode(AstNode::ReturnVal, (void *) 0);
153         initialRequests += new instMapping("fork", "DYNINSTfork", 
154                                      FUNC_EXIT|FUNC_ARG, retVal);
155
156         retVal = new AstNode(AstNode::ReturnVal, (void *) 0);
157         initialRequests += new instMapping("_libc_fork", "DYNINSTfork", 
158                                      FUNC_EXIT|FUNC_ARG, retVal);
159 #endif
160   }
161 #if defined(SHM_SAMPLING) && defined(MT_THREAD)
162   AstNode *THRidArg = new AstNode(AstNode::Param, (void *) 5);
163   initialRequests += new instMapping("MY_thr_create", "DYNINSTthreadCreate", 
164                                      FUNC_EXIT|FUNC_ARG, THRidArg);
165 #endif
166
167   if(process::pdFlavor != string("cow"))
168   {
169     //initialRequests += new instMapping("execve", "DYNINSTexec",
170     //                       FUNC_ENTRY|FUNC_ARG, tidArg);
171     //initialRequests += new instMapping("execve", "DYNINSTexecFailed", FUNC_EXIT);
172     AstNode *tidArg = new AstNode(AstNode::Param, (void *) 0);
173     initialRequests += new instMapping("_execve", "DYNINSTexec",
174                                      FUNC_ENTRY|FUNC_ARG, tidArg);
175     initialRequests += new instMapping("_execve", "DYNINSTexecFailed", FUNC_EXIT);
176   }
177
178 #ifndef SHM_SAMPLING
179   initialRequests += new instMapping("DYNINSTsampleValues", "DYNINSTreportNewTags",
180                                  FUNC_ENTRY);
181 #endif
182
183   if(process::pdFlavor != string("cow"))
184   {
185         AstNode *cmdArg = new AstNode(AstNode::Param, (void *) 4);
186         initialRequests += new instMapping("rexec", "DYNINSTrexec",
187                                  FUNC_ENTRY|FUNC_ARG, cmdArg);
188   }
189 //   initialRequests += new instMapping("PROCEDURE_LINKAGE_TABLE","DYNINSTdynlinker",FUNC_ENTRY);
190
191
192 #ifdef PARADYND_PVM
193   char *doPiggy;
194
195   AstNode *tagArg = new AstNode(AstNode::Param, (void *) 1);
196   initialRequests += new instMapping("pvm_send", "DYNINSTrecordTag",
197                                  FUNC_ENTRY|FUNC_ARG, tagArg);
198
199   // kludge to get Critical Path to work.
200   // XXX - should be tunable constant.
201   doPiggy = getenv("DYNINSTdoPiggy");
202   if (doPiggy) {
203       initialRequests += new instMapping("main", "DYNINSTpvmPiggyInit", FUNC_ENTRY);
204       AstNode *tidArg = new AstNode(AstNode::Param, (void *) 0);
205       initialRequests+= new instMapping("pvm_send", "DYNINSTpvmPiggySend",
206                            FUNC_ENTRY|FUNC_ARG, tidArg);
207       initialRequests += new instMapping("pvm_recv", "DYNINSTpvmPiggyRecv", FUNC_EXIT);
208       tidArg = new AstNode(AstNode::Param, (void *) 0);
209       initialRequests += new instMapping("pvm_mcast", "DYNINSTpvmPiggyMcast",
210                            FUNC_ENTRY|FUNC_ARG, tidArg);
211   }
212 #endif
213
214   return true;
215 };