in initOS(), main no longer calls DYNINSTinit
[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.12  1996/10/31 08:44:32  tamches
45  * in initOS(), main no longer calls DYNINSTinit
46  *
47  * Revision 1.11  1996/09/26 18:58:32  newhall
48  * added support for instrumenting dynamic executables on sparc-solaris
49  * platform
50  *
51  * Revision 1.10  1996/08/16 21:18:44  tamches
52  * updated copyright for release 1.1
53  *
54  * Revision 1.9  1996/08/12 16:27:16  mjrg
55  * Code cleanup: removed cm5 kludges and some unused code
56  *
57  * Revision 1.8  1996/05/08 23:54:45  mjrg
58  * added support for handling fork and exec by an application
59  * use /proc instead of ptrace on solaris
60  * removed warnings
61  *
62  * Revision 1.7  1996/03/20 17:02:44  mjrg
63  * Added multiple arguments to calls.
64  * Instrument pvm_send instead of pvm_recv to get tags.
65  *
66  * Revision 1.6  1996/03/01 22:31:59  mjrg
67  * Replaced calls at the exit point by a call to DYNINSTexit
68  *
69  * Revision 1.5  1995/12/15 22:26:48  mjrg
70  * Merged paradynd and paradyndPVM
71  * Get module name for functions from symbol table in solaris
72  * Fixed code generation for multiple instrumentation statements
73  * Changed syntax of MDL resource lists
74  *
75  * Revision 1.4  1995/08/24  15:03:54  hollings
76  * AIX/SP-2 port (including option for split instruction/data heaps)
77  * Tracing of rexec (correctly spawns a paradynd if needed)
78  * Added rtinst function to read getrusage stats (can now be used in metrics)
79  * Critical Path
80  * Improved Error reporting in MDL sematic checks
81  * Fixed MDL Function call statement
82  * Fixed bugs in TK usage (strings passed where UID expected)
83  *
84  */
85
86 #include "metric.h"
87 #include "internalMetrics.h"
88 #include "inst.h"
89 #include "init.h"
90 #include "ast.h"
91 #include "util.h"
92 #include "os.h"
93
94 // NOTE - the tagArg integer number starting with 0.  
95 static AstNode tagArg(AstNode::Param, (void *) 1);
96 static AstNode cmdArg(AstNode::Param, (void *) 4);
97 static AstNode tidArg(AstNode::Param, (void *) 0);
98
99 bool initOS() {
100
101 //  initialRequests += new instMapping("main", "DYNINSTinit", FUNC_ENTRY);
102 // (obsoleted by installBootstrapInst() --ari)
103
104
105   initialRequests += new instMapping("main", "DYNINSTexit", FUNC_EXIT);
106
107   initialRequests += new instMapping(EXIT_NAME, "DYNINSTexit", FUNC_ENTRY);
108
109   initialRequests += new instMapping("fork", "DYNINSTfork", 
110                                      FUNC_EXIT|FUNC_ARG, &tidArg);
111   initialRequests += new instMapping("execve", "DYNINSTexec",
112                                      FUNC_ENTRY|FUNC_ARG, &tidArg);
113   initialRequests += new instMapping("execve", "DYNINSTexecFailed", FUNC_EXIT);
114
115 #ifndef SHM_SAMPLING
116   initialRequests += new instMapping("DYNINSTsampleValues", "DYNINSTreportNewTags",
117                                  FUNC_ENTRY);
118 #endif
119
120   initialRequests += new instMapping("rexec", "DYNINSTrexec",
121                                  FUNC_ENTRY|FUNC_ARG, &cmdArg);
122 //   initialRequests += new instMapping("PROCEDURE_LINKAGE_TABLE","DYNINSTdynlinker",FUNC_ENTRY);
123
124
125 #ifdef PARADYND_PVM
126   char *doPiggy;
127
128   initialRequests += new instMapping("pvm_send", "DYNINSTrecordTag",
129                                  FUNC_ENTRY|FUNC_ARG, &tagArg);
130
131   // kludge to get Critical Path to work.
132   // XXX - should be tunable constant.
133   doPiggy = getenv("DYNINSTdoPiggy");
134   if (doPiggy) {
135       initialRequests += new instMapping("main", "DYNINSTpvmPiggyInit", FUNC_ENTRY);
136       initialRequests+= new instMapping("pvm_send", "DYNINSTpvmPiggySend",
137                            FUNC_ENTRY|FUNC_ARG, &tidArg);
138       initialRequests += new instMapping("pvm_recv", "DYNINSTpvmPiggyRecv", FUNC_EXIT);
139       initialRequests += new instMapping("pvm_mcast", "DYNINSTpvmPiggyMcast",
140                            FUNC_ENTRY|FUNC_ARG, &tidArg);
141   }
142 #endif
143
144   return true;
145 };