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
115
116
117
118
119
120
|
/******************************************************************************
* Copyright (c) Intel Corporation - All rights reserved. *
* This file is part of the LIBXSMM library. *
* *
* For information on the license, see the LICENSE file. *
* Further information: https://github.com/hfp/libxsmm/ *
* SPDX-License-Identifier: BSD-3-Clause *
******************************************************************************/
/* Hans Pabst (Intel Corp.)
******************************************************************************/
#if !defined(INCLUDE_LIBXSMM_LAST)
# include <libxsmm.h>
#endif
#include <math.h>
#if defined(INCLUDE_LIBXSMM_LAST)
# include <libxsmm.h>
#endif
#if !defined(USE_NOINIT)
# define USE_NOINIT
#endif
#if !defined(MAX_NSECONDS)
# define MAX_NSECONDS 16
#endif
#if !defined(MAX_TOLPERC)
# define MAX_TOLPERC 12
#endif
#if defined(_WIN32)
# include <Windows.h>
#else
# include <unistd.h>
#endif
LIBXSMM_INLINE int timer_sleep(unsigned int seconds)
{
int result;
#if defined(_WIN32)
Sleep((DWORD)(1000 * seconds));
result = EXIT_SUCCESS;
#else
result = (0 == sleep(seconds) ? EXIT_SUCCESS : EXIT_FAILURE);
#endif
return result;
}
int main(int argc, char* argv[])
{
const int max_nseconds_input = (1 < argc ? atoi(argv[1]) : MAX_NSECONDS);
const unsigned int max_nseconds = (unsigned int)LIBXSMM_UP2POT(LIBXSMM_MAX(max_nseconds_input, 1));
const char *const env_delta = getenv("TIMER_DELTA");
const int max_delta = (NULL == env_delta || 0 == *env_delta)
#if defined(_DEBUG)
? -1
#else
? 0
#endif
: atoi(env_delta);
unsigned int n = max_nseconds, ninterrupts = 0;
libxsmm_timer_tickint begin, start;
double total = 0, delta = 0, d, t;
libxsmm_timer_info info;
int result;
#if !defined(USE_NOINIT)
libxsmm_init();
#endif
start = begin = libxsmm_timer_tick();
for (n >>= 1; 0 < n; n >>= 1) {
if (EXIT_SUCCESS == timer_sleep(n)) {
t = libxsmm_timer_duration(start, libxsmm_timer_tick());
d = 100.0 * LIBXSMM_DELTA(t, (double)n) / n;
if (delta < d) delta = d;
total += t;
}
else {
total += (double)n;
++ninterrupts;
}
start = libxsmm_timer_tick();
}
start = libxsmm_timer_tick();
if (EXIT_SUCCESS == timer_sleep(1)) {
t = libxsmm_timer_duration(start, libxsmm_timer_tick());
d = 100.0 * LIBXSMM_DELTA(t, 1.0);
if (delta < d) delta = d;
total += t;
}
else {
++ninterrupts;
total += 1.0;
}
start = libxsmm_timer_tick();
d = 100.0 * LIBXSMM_DELTA(total, (double)max_nseconds) / max_nseconds;
if (delta < d) delta = d;
result = libxsmm_get_timer_info(&info);
if (EXIT_SUCCESS == result) {
result = (int)LIBXSMM_ROUND(delta);
if ((0 != max_delta || 0 == info.tsc) && (0 > max_delta || result <= max_delta)) {
d = libxsmm_timer_duration(begin, start);
fprintf(stderr, "seconds=%f delta=%s%i%% interrupted=%u tsc=%s\n",
d, 0 == result ? "" : (total <= d ? "+" : "-"), result,
ninterrupts, 0 != info.tsc ? "true" : "false");
result = EXIT_SUCCESS;
}
else if ((MAX_TOLPERC) >= result) {
result = EXIT_SUCCESS;
}
}
return result;
}
|
