Added missing headers for Alpha/Tru64.
[dyninst.git] / paradynd / src / init-osf.C
1 /*
2  * Copyright (c) 1996-2000 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 /* $Id: init-osf.C,v 1.3 2000/12/15 21:38:43 pcroth Exp $ */
43
44 #include "paradynd/src/metric.h"
45 #include "paradynd/src/internalMetrics.h"
46 #include "dyninstAPI/src/inst.h"
47 #include "paradynd/src/init.h"
48 #include "dyninstAPI/src/ast.h"
49 #include "dyninstAPI/src/util.h"
50 #include "dyninstAPI/src/os.h"
51 #include "common/h/Time.h"
52 #include "common/h/timing.h"
53 #include "paradynd/src/timeMgr.h"
54
55
56 // NOTE - the tagArg integer number starting with 0.  
57 bool initOS() {
58
59 //  initialRequests += new instMapping("main", "DYNINSTinit", FUNC_ENTRY);
60 // (obsoleted by installBootstrapInst() --ari)
61
62
63   AstNode *retVal;
64
65   initialRequests += new instMapping("main", "DYNINSTexit", FUNC_EXIT);
66
67   initialRequests += new instMapping(EXIT_NAME, "DYNINSTexit", FUNC_ENTRY);
68
69   if (process::pdFlavor == "mpi") {
70           instMPI();
71           retVal = new AstNode(AstNode::ReturnVal, (void *) 0);
72           initialRequests += new instMapping("fork", "DYNINSTmpi_fork", 
73                                              FUNC_EXIT|FUNC_ARG, retVal);
74           retVal = new AstNode(AstNode::ReturnVal, (void *) 0);
75           initialRequests += new instMapping("_fork", "DYNINSTmpi_fork", 
76                                              FUNC_EXIT|FUNC_ARG, retVal);
77   } else { /* Fork and exec */
78           retVal = new AstNode(AstNode::ReturnVal, (void *) 0);
79           initialRequests += new instMapping("fork", "DYNINSTfork", 
80                                              FUNC_EXIT|FUNC_ARG, retVal);
81
82           //libthread _fork
83           retVal = new AstNode(AstNode::ReturnVal, (void *) 0);
84           initialRequests += new instMapping("_fork", "DYNINSTfork", 
85                                              FUNC_EXIT|FUNC_ARG, retVal);
86
87
88           //initialRequests += new instMapping("execve", "DYNINSTexec",
89           //                                   FUNC_ENTRY|FUNC_ARG, tidArg);
90           //initialRequests += new instMapping("execve", "DYNINSTexecFailed", 
91           //                                   FUNC_EXIT);
92           AstNode *tidArg = new AstNode(AstNode::Param, (void *) 0);
93           initialRequests += new instMapping("_execve", "DYNINSTexec",
94                                              FUNC_ENTRY|FUNC_ARG, tidArg);
95           initialRequests += new instMapping("_execve", "DYNINSTexecFailed", 
96                                              FUNC_EXIT);
97   }
98   
99 #ifndef SHM_SAMPLING
100   initialRequests += new instMapping("DYNINSTsampleValues", "DYNINSTreportNewTags",
101                                  FUNC_ENTRY);
102 #endif
103
104         AstNode *cmdArg = new AstNode(AstNode::Param, (void *) 4);
105         initialRequests += new instMapping("rexec", "DYNINSTrexec",
106                                  FUNC_ENTRY|FUNC_ARG, cmdArg);
107 //   initialRequests += new instMapping("PROCEDURE_LINKAGE_TABLE","DYNINSTdynlinker",FUNC_ENTRY);
108
109
110 #ifdef PARADYND_PVM
111   char *doPiggy;
112
113   AstNode *tagArg = new AstNode(AstNode::Param, (void *) 1);
114   initialRequests += new instMapping("pvm_send", "DYNINSTrecordTag",
115                                  FUNC_ENTRY|FUNC_ARG, tagArg);
116
117   // kludge to get Critical Path to work.
118   // XXX - should be tunable constant.
119   doPiggy = getenv("DYNINSTdoPiggy");
120   if (doPiggy) {
121       initialRequests += new instMapping("main", "DYNINSTpvmPiggyInit", FUNC_ENTRY);
122       AstNode *tidArg = new AstNode(AstNode::Param, (void *) 0);
123       initialRequests+= new instMapping("pvm_send", "DYNINSTpvmPiggySend",
124                            FUNC_ENTRY|FUNC_ARG, tidArg);
125       initialRequests += new instMapping("pvm_recv", "DYNINSTpvmPiggyRecv", FUNC_EXIT);
126       tidArg = new AstNode(AstNode::Param, (void *) 0);
127       initialRequests += new instMapping("pvm_mcast", "DYNINSTpvmPiggyMcast",
128                            FUNC_ENTRY|FUNC_ARG, tidArg);
129   }
130 #endif
131
132   return true;
133 };
134
135 void initWallTimeMgrPlt() {
136   getWallTimeMgr().installLevel(wallTimeMgr_t::LEVEL_TWO, yesFunc,
137                                 timeUnit::us(), timeBase::b1970(), 
138                                 &getRawTime1970, "DYNINSTgetWalltime_sw");
139 }
140
141