- added support for (mips-sgi-irix6.4) native compiler build
[dyninst.git] / common / src / timing.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 // $Id: timing.C,v 1.12 1999/08/09 05:45:06 csserra Exp $
43
44 #include "util/h/Timer.h"
45
46 #if defined(rs6000_ibm_aix4_1)
47 #define NOPS_4  asm("oril 0,0,0"); asm("oril 0,0,0"); asm("oril 0,0,0"); asm("oril 0,0,0")
48 #elif defined(i386_unknown_nt4_0)
49 #define NOPS_4 { __asm nop __asm nop __asm nop __asm nop }
50 #elif defined(mips_sgi_irix6_4)
51 #  ifndef USES_NATIVE_CC
52 #define NOPS_4  __asm__("nop"); __asm__("nop"); __asm__("nop"); __asm__("nop")
53 #  else
54 #define NOPS_4  ; ; ; 
55 #  endif
56 #else
57 #define NOPS_4  asm("nop"); asm("nop"); asm("nop"); asm("nop")
58 #endif
59
60 #define NOPS_16 NOPS_4; NOPS_4; NOPS_4; NOPS_4
61
62 double timing_loop(const unsigned TRIES, const unsigned LOOP_LIMIT) {
63   const double MILLION = 1.0e6;
64   unsigned       i, j;
65   double         speed;
66   timer stopwatch;
67   double max_speed=0;
68
69   for (j=0; j<TRIES; j++) {
70     stopwatch.start();
71     for (i = 0; i < LOOP_LIMIT; i++) {
72       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
73       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
74       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
75       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
76     }
77     stopwatch.stop();
78     speed   = ((256*LOOP_LIMIT)/stopwatch.usecs())/MILLION;
79     stopwatch.clear();
80     if (speed > max_speed)
81       max_speed = speed;
82   }
83
84   for (j=0; j<TRIES; j++) {
85     stopwatch.start();
86     for (i = 0; i < LOOP_LIMIT; i++) {
87       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
88       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
89       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
90       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
91       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
92       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
93       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
94       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
95     }
96     stopwatch.stop();
97     speed   = ((512*LOOP_LIMIT)/stopwatch.usecs())/MILLION;
98     stopwatch.clear();
99     if (speed > max_speed)
100       max_speed = speed;
101   }
102
103   for (j=0; j<TRIES; j++) {
104     stopwatch.start();
105     for (i = 0; i < LOOP_LIMIT; i++) {
106       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
107       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
108       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
109       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
110       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
111       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
112       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
113       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
114       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
115       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
116       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
117       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
118       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
119       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
120       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
121       NOPS_16; NOPS_16; NOPS_16; NOPS_16;
122     }
123     stopwatch.stop();
124     speed   = ((1024*LOOP_LIMIT)/stopwatch.usecs())/MILLION;
125     stopwatch.clear();
126     if (speed > max_speed)
127       max_speed = speed;
128   }
129
130 #if defined(i386_unknown_solaris2_5) \
131  || defined(i386_unknown_nt4_0) \
132  || defined(i386_unknown_linux2_0)
133   // the speed of the pentium is being overestimated by a factor of 2
134   max_speed /= 2;
135 #elif defined(mips_sgi_irix6_4)
136   max_speed /= 4;
137 #endif
138
139   return max_speed;
140 }
141
142 int cyclesPerSecond_default(unsigned &cps)
143 {
144   double raw = timing_loop(1, 100000) * 1000000.0;
145   cps = (unsigned)raw;
146   return 0; // never fails
147 }
148