summaryrefslogtreecommitdiff
path: root/libcilkrts/runtime/stats.c
diff options
context:
space:
mode:
Diffstat (limited to 'libcilkrts/runtime/stats.c')
-rw-r--r--libcilkrts/runtime/stats.c172
1 files changed, 172 insertions, 0 deletions
diff --git a/libcilkrts/runtime/stats.c b/libcilkrts/runtime/stats.c
new file mode 100644
index 00000000000..3a420745039
--- /dev/null
+++ b/libcilkrts/runtime/stats.c
@@ -0,0 +1,172 @@
+/* stats.c -*-C-*-
+ *
+ *************************************************************************
+ *
+ * @copyright
+ * Copyright (C) 2009-2013, Intel Corporation
+ * All rights reserved.
+ *
+ * @copyright
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ *
+ * * Redistributions of source code must retain the above copyright
+ * notice, this list of conditions and the following disclaimer.
+ * * Redistributions in binary form must reproduce the above copyright
+ * notice, this list of conditions and the following disclaimer in
+ * the documentation and/or other materials provided with the
+ * distribution.
+ * * Neither the name of Intel Corporation nor the names of its
+ * contributors may be used to endorse or promote products derived
+ * from this software without specific prior written permission.
+ *
+ * @copyright
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
+ * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
+ * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
+ * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
+ * HOLDER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
+ * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
+ * OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
+ * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY
+ * WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+ * POSSIBILITY OF SUCH DAMAGE.
+ **************************************************************************/
+
+#include "stats.h"
+#include "bug.h"
+#include "os.h"
+#include "local_state.h"
+
+#include <stdio.h>
+
+#define INVALID_START (0ULL - 1ULL)
+
+#ifdef CILK_PROFILE
+/* MSVC does not support designated initializers, grrrr... */
+static const char *names[] = {
+ /*[INTERVAL_IN_SCHEDULER]*/ "in scheduler",
+ /*[INTERVAL_WORKING]*/ " of which: working",
+ /*[INTERVAL_IN_RUNTIME]*/ " of which: in runtime",
+ /*[INTERVAL_STEALING]*/ " of which: stealing",
+ /*[INTERVAL_STEAL_SUCCESS]*/ "steal success: detach",
+ /*[INTERVAL_STEAL_FAIL_EMPTYQ]*/ "steal fail: empty queue",
+ /*[INTERVAL_STEAL_FAIL_LOCK]*/ "steal fail: victim locked",
+ /*[INTERVAL_STEAL_FAIL_USER_WORKER]*/ "steal fail: user worker",
+ /*[INTERVAL_STEAL_FAIL_DEKKER]*/ "steal fail: dekker",
+ /*[INTERVAL_SYNC_CHECK]*/ "sync check",
+ /*[INTERVAL_THE_EXCEPTION_CHECK]*/ "THE exception check",
+ /*[INTERVAL_THE_EXCEPTION_CHECK_USELESS]*/ " of which: useless",
+ /*[INTERVAL_RETURNING]*/ "returning",
+ /*[INTERVAL_FINALIZE_CHILD]*/ "finalize child",
+ /*[INTERVAL_PROVABLY_GOOD_STEAL]*/ "provably good steal",
+ /*[INTERVAL_UNCONDITIONAL_STEAL]*/ "unconditional steal",
+ /*[INTERVAL_ALLOC_FULL_FRAME]*/ "alloc full frame",
+ /*[INTERVAL_FRAME_ALLOC_LARGE]*/ "large frame alloc",
+ /*[INTERVAL_FRAME_ALLOC]*/ "small frame alloc",
+ /*[INTERVAL_FRAME_ALLOC_GLOBAL]*/ " of which: to global pool",
+ /*[INTERVAL_FRAME_FREE_LARGE]*/ "large frame free",
+ /*[INTERVAL_FRAME_FREE]*/ "small frame free",
+ /*[INTERVAL_FRAME_FREE_GLOBAL]*/ " of which: to global pool",
+ /*[INTERVAL_MUTEX_LOCK]*/ "mutex lock",
+ /*[INTERVAL_MUTEX_LOCK_SPINNING]*/ " spinning",
+ /*[INTERVAL_MUTEX_LOCK_YIELDING]*/ " yielding",
+ /*[INTERVAL_MUTEX_TRYLOCK]*/ "mutex trylock",
+ /*[INTERVAL_FIBER_ALLOCATE]*/ "fiber_allocate",
+ /*[INTERVAL_FIBER_DEALLOCATE]*/ "fiber_deallocate",
+ /*[INTERVAL_FIBER_ALLOCATE_FROM_THREAD]*/ "fiber_allocate_from_thread",
+ /*[INTERVAL_FIBER_DEALLOCATE_FROM_THREAD]*/ "fiber_deallocate (thread)",
+ /*[INTERVAL_SUSPEND_RESUME_OTHER]*/ "fiber suspend self + resume",
+ /*[INTERVAL_DEALLOCATE_RESUME_OTHER]*/ "fiber deallocate self + resume",
+};
+#endif
+
+void __cilkrts_init_stats(statistics *s)
+{
+ int i;
+ for (i = 0; i < INTERVAL_N; ++i) {
+ s->start[i] = INVALID_START;
+ s->accum[i] = 0;
+ s->count[i] = 0;
+ }
+
+ s->stack_hwm = 0;
+}
+
+#ifdef CILK_PROFILE
+void __cilkrts_accum_stats(statistics *to, statistics *from)
+{
+ int i;
+
+ for (i = 0; i < INTERVAL_N; ++i) {
+ to->accum[i] += from->accum[i];
+ to->count[i] += from->count[i];
+ from->accum[i] = 0;
+ from->count[i] = 0;
+ }
+
+ if (from->stack_hwm > to->stack_hwm)
+ to->stack_hwm = from->stack_hwm;
+ from->stack_hwm = 0;
+}
+
+void __cilkrts_note_interval(__cilkrts_worker *w, enum interval i)
+{
+ if (w) {
+ statistics *s = w->l->stats;
+ CILK_ASSERT(s->start[i] == INVALID_START);
+ s->count[i]++;
+ }
+}
+
+void __cilkrts_start_interval(__cilkrts_worker *w, enum interval i)
+{
+ if (w) {
+ statistics *s = w->l->stats;
+ CILK_ASSERT(s->start[i] == INVALID_START);
+ s->start[i] = __cilkrts_getticks();
+ s->count[i]++;
+ }
+}
+
+void __cilkrts_stop_interval(__cilkrts_worker *w, enum interval i)
+{
+ if (w) {
+ statistics *s = w->l->stats;
+ CILK_ASSERT(s->start[i] != INVALID_START);
+ s->accum[i] += __cilkrts_getticks() - s->start[i];
+ s->start[i] = INVALID_START;
+ }
+}
+
+void dump_stats_to_file(FILE *stat_file, statistics *s)
+{
+ int i;
+ fprintf(stat_file, "\nCILK PLUS RUNTIME SYSTEM STATISTICS:\n\n");
+
+ fprintf(stat_file,
+ " %-32s: %15s %10s %12s %10s\n",
+ "event",
+ "count",
+ "ticks",
+ "ticks/count",
+ "%total"
+ );
+ for (i = 0; i < INTERVAL_N; ++i) {
+ fprintf(stat_file, " %-32s: %15llu", names[i], s->count[i]);
+ if (s->accum[i]) {
+ fprintf(stat_file, " %10.3g %12.3g %10.2f",
+ (double)s->accum[i],
+ (double)s->accum[i] / (double)s->count[i],
+ 100.0 * (double)s->accum[i] /
+ (double)s->accum[INTERVAL_IN_SCHEDULER]);
+ }
+ fprintf(stat_file, "\n");
+ }
+}
+#endif // CILK_PROFILE
+
+/* End stats.c */