mostang.com!davidm | 12876ef | 2003-09-24 05:02:14 +0000 | [diff] [blame] | 1 | #include <stdio.h> |
| 2 | #include <stdlib.h> |
| 3 | |
| 4 | #include <sys/time.h> |
| 5 | |
| 6 | #include <libunwind.h> |
| 7 | |
hp.com!davidm | 5e446b2 | 2003-11-27 06:52:54 +0000 | [diff] [blame] | 8 | #define ITERATIONS 10000 |
| 9 | |
mostang.com!davidm | 12876ef | 2003-09-24 05:02:14 +0000 | [diff] [blame] | 10 | #define panic(args...) \ |
| 11 | do { fprintf (stderr, args); exit (-1); } while (0) |
| 12 | |
hp.com!davidm | 5e446b2 | 2003-11-27 06:52:54 +0000 | [diff] [blame] | 13 | static int maxlevel = 100; |
| 14 | |
mostang.com!davidm | 12876ef | 2003-09-24 05:02:14 +0000 | [diff] [blame] | 15 | static inline double |
| 16 | gettime (void) |
| 17 | { |
| 18 | struct timeval tv; |
| 19 | |
| 20 | gettimeofday(&tv, NULL); |
| 21 | return tv.tv_sec + 1e-6*tv.tv_usec; |
| 22 | } |
| 23 | |
| 24 | static int |
hp.com!davidm | 5e446b2 | 2003-11-27 06:52:54 +0000 | [diff] [blame] | 25 | measure_unwind (int maxlevel, double *init, double *step) |
mostang.com!davidm | 12876ef | 2003-09-24 05:02:14 +0000 | [diff] [blame] | 26 | { |
| 27 | double stop, mid, start; |
| 28 | unw_cursor_t cursor; |
| 29 | unw_context_t uc; |
| 30 | int ret, level = 0; |
| 31 | |
| 32 | start = gettime (); |
| 33 | |
| 34 | unw_getcontext (&uc); |
| 35 | if (unw_init_local (&cursor, &uc) < 0) |
| 36 | panic ("unw_init_local() failed\n"); |
| 37 | |
| 38 | mid = gettime (); |
| 39 | |
| 40 | do |
| 41 | { |
| 42 | ret = unw_step (&cursor); |
| 43 | if (ret < 0) |
| 44 | panic ("unw_step() failed\n"); |
| 45 | ++level; |
| 46 | } |
| 47 | while (ret > 0); |
| 48 | |
| 49 | stop = gettime (); |
| 50 | |
| 51 | if (level <= maxlevel) |
| 52 | panic ("Unwound only %d levels, expected at least %d levels", |
| 53 | level, maxlevel); |
| 54 | |
hp.com!davidm | 5e446b2 | 2003-11-27 06:52:54 +0000 | [diff] [blame] | 55 | *init = mid - start; |
| 56 | *step = (stop - mid) / (double) level; |
hp.com!davidm | 29f2f89 | 2003-09-25 05:29:14 +0000 | [diff] [blame] | 57 | return 0; |
mostang.com!davidm | 12876ef | 2003-09-24 05:02:14 +0000 | [diff] [blame] | 58 | } |
| 59 | |
| 60 | static int |
hp.com!davidm | 5e446b2 | 2003-11-27 06:52:54 +0000 | [diff] [blame] | 61 | f1 (int level, int maxlevel, double *init, double *step) |
mostang.com!davidm | 12876ef | 2003-09-24 05:02:14 +0000 | [diff] [blame] | 62 | { |
| 63 | if (level == maxlevel) |
hp.com!davidm | 5e446b2 | 2003-11-27 06:52:54 +0000 | [diff] [blame] | 64 | return measure_unwind (maxlevel, init, step); |
mostang.com!davidm | 12876ef | 2003-09-24 05:02:14 +0000 | [diff] [blame] | 65 | else |
| 66 | /* defeat last-call/sibcall optimization */ |
hp.com!davidm | 5e446b2 | 2003-11-27 06:52:54 +0000 | [diff] [blame] | 67 | return f1 (level + 1, maxlevel, init, step) + level; |
| 68 | } |
| 69 | |
| 70 | static void |
| 71 | doit (const char *label) |
| 72 | { |
| 73 | double init, step, min_init, first_init, min_step, first_step, sum_init, sum_step; |
| 74 | int i; |
| 75 | |
| 76 | sum_init = sum_step = first_init = first_step = 0.0; |
| 77 | min_init = min_step = 1e99; |
| 78 | for (i = 0; i < ITERATIONS; ++i) |
| 79 | { |
| 80 | f1 (0, maxlevel, &init, &step); |
| 81 | |
| 82 | sum_init += init; |
| 83 | sum_step += step; |
| 84 | |
| 85 | if (init < min_init) |
| 86 | min_init = init; |
| 87 | if (step < min_step) |
| 88 | min_step = step; |
| 89 | |
| 90 | if (i == 0) |
| 91 | { |
| 92 | first_init = init; |
| 93 | first_step = step; |
| 94 | } |
| 95 | } |
| 96 | printf ("%s:\n" |
| 97 | " unw_{getcontext+init_local}: first=%9.3f min=%9.3f avg=%9.3f nsec\n" |
| 98 | " unw_step : first=%9.3f min=%9.3f avg=%9.3f nsec\n", |
| 99 | label, |
| 100 | 1e9*first_init, 1e9*min_init, 1e9*sum_init/ITERATIONS, |
| 101 | 1e9*first_step, 1e9*min_step, 1e9*sum_step/ITERATIONS); |
mostang.com!davidm | 12876ef | 2003-09-24 05:02:14 +0000 | [diff] [blame] | 102 | } |
| 103 | |
| 104 | int |
| 105 | main (int argc, char **argv) |
| 106 | { |
mostang.com!davidm | 12876ef | 2003-09-24 05:02:14 +0000 | [diff] [blame] | 107 | if (argc > 1) |
| 108 | maxlevel = atol (argv[1]); |
| 109 | |
mostang.com!davidm | 7a346fb | 2003-11-20 01:10:03 +0000 | [diff] [blame] | 110 | unw_set_caching_policy (unw_local_addr_space, UNW_CACHE_NONE); |
hp.com!davidm | 5e446b2 | 2003-11-27 06:52:54 +0000 | [diff] [blame] | 111 | doit ("Caching: none"); |
mostang.com!davidm | 7a346fb | 2003-11-20 01:10:03 +0000 | [diff] [blame] | 112 | |
mostang.com!davidm | 7a346fb | 2003-11-20 01:10:03 +0000 | [diff] [blame] | 113 | unw_set_caching_policy (unw_local_addr_space, UNW_CACHE_GLOBAL); |
hp.com!davidm | 5e446b2 | 2003-11-27 06:52:54 +0000 | [diff] [blame] | 114 | doit ("Caching: global"); |
mostang.com!davidm | 7a346fb | 2003-11-20 01:10:03 +0000 | [diff] [blame] | 115 | |
mostang.com!davidm | 7a346fb | 2003-11-20 01:10:03 +0000 | [diff] [blame] | 116 | unw_set_caching_policy (unw_local_addr_space, UNW_CACHE_PER_THREAD); |
hp.com!davidm | 5e446b2 | 2003-11-27 06:52:54 +0000 | [diff] [blame] | 117 | doit ("Caching: per-thread"); |
| 118 | |
mostang.com!davidm | 12876ef | 2003-09-24 05:02:14 +0000 | [diff] [blame] | 119 | return 0; |
| 120 | } |