1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
/*
* Copyright (c) 2006, 2012, Oracle and/or its affiliates. All rights reserved.
*/
#include <jni.h>
#include <stdio.h>
#include <stdlib.h>
#include <stdlib.h>
#include <sys/time.h>
#include "jsynprog.h"
typedef long long hrtime_t;
extern "C" {
hrtime_t gethrtime();
hrtime_t gethrvtime();
}
static jdouble testtime = 3.0 * 1e9;
int cfunc(int);
JNIEXPORT jdouble JNICALL
Java_jsynprog_Timer (JNIEnv *env, jclass obj)
{
jdouble jd;
hrtime_t start;
start = gethrtime();
jd = (double)(start);
return jd;
}
JNIEXPORT jdouble JNICALL
Java_jsynprog_cTimer (JNIEnv *env, jclass obj)
{
jdouble jd;
hrtime_t vstart;
vstart = gethrvtime();
jd = (double)(vstart);
return jd;
}
JNIEXPORT jdouble JNICALL
Java_jsynprog_computeSet (JNIEnv *env, jclass obj)
{
char *s;
testtime = 3.0;
s = getenv("SP_COLLECTOR_TEST_TIMER");
if( s ) {
testtime = atof(s);
if (testtime < 1.0)
testtime = 1.0;
}
testtime *= 1e9;
return testtime;
}
JNIEXPORT jint JNICALL
Java_jsynprog_JavaJavaC (JNIEnv *env, jclass obj, jint n, int scale )
{
// fprintf(stderr, "Entering Java_jsynprog_JavaJavaC, scale = %d\n", scale);
int imax = 100000;
n = 0;
for (int i =0; i<imax; i++) {
n=n+((i%2==0)?1:2);
}
return n;
}
JNIEXPORT void JNICALL
Java_jsynprog_JavaCC (JNIEnv *env, jclass obj, int scale)
{
fprintf(stderr, "Entering Java_jsynprog_JavaCC, scale = %d\n", scale);
int n =0;
if (scale == 1) {
scale *= 1000;
}
int imax = 4*scale;
double tEnd = gethrtime() + testtime;
do { n = 0;
for (int i =0; i<imax; i++) {
n = cfunc(n);
}
} while (gethrtime() < tEnd);
}
int cfunc (int n) {
for (int j =0; j<100000;j++) {
n=n+1;
}
return n;
}
JNIEXPORT void JNICALL
Java_jsynprog_JavaCJava (JNIEnv *env, jclass obj, int scale)
{
fprintf(stderr, "Entering Java_jsynprog_JavaCJava, scale = %d\n", scale);
int pnum = 0;
jmethodID mid = (env)->GetStaticMethodID(obj, "javafunc", "(I)I");
if (mid == 0) {
fprintf(stderr, "Can't get jmethodID for \"javafunc\", \"(I)I\"\n");
return;
}
fprintf(stderr, "Calling CallStaticIntMethod, scale = %d\n", scale);
pnum = (env)->CallStaticIntMethod(obj, mid, scale);
}
JNIEXPORT jint JNICALL
Java_jsynprog_isJVMPI (JNIEnv *env, jclass obj)
{
char *jvmpi = getenv("SP_COLLECTOR_USE_JVMPI");
return jvmpi ? 1 : 0;
}
|
