X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fstat%2Fstatev.h;h=886a223c90afee233d3adef2622d9a9d07b83df6;hb=67553de44f77855233fb2dfb0251eb9098f2b467;hp=eed576f81dc4af5eda189c5dce31c98e43432f53;hpb=af109afbf71762ec216c011a6d8f5b7761be078d;p=libfirm

diff --git a/ir/stat/statev.h b/ir/stat/statev.h
index eed576f81..886a223c9 100644
--- a/ir/stat/statev.h
+++ b/ir/stat/statev.h
@@ -1,5 +1,5 @@
 /*
- * Copyright (C) 1995-2007 University of Karlsruhe.  All right reserved.
+ * Copyright (C) 1995-2008 University of Karlsruhe.  All right reserved.
  *
  * This file is part of libFirm.
  *
@@ -28,40 +28,127 @@
 #ifndef FIRM_STATEVENT_H
 #define FIRM_STATEVENT_H
 
-#ifndef FIRM_STATISTICS
+#if !defined(FIRM_STATISTICS) || defined(DISABLE_STATEV)
+
+#define stat_ev_do(expr)
+#define stat_ev_enabled             0
+#define stat_ev_if                  if (0)
+#define stat_ev_dbl(name, val)
+#define stat_ev_int(name, val)
+#define stat_ev(name)
+#define stat_ev_emit(name, value)
 
 #define stat_ev_cnt_decl(var)
 #define stat_ev_cnt_inc(var)
 #define stat_ev_cnt_done(name, var)
-#define stat_ev(name)
+#define stat_ev_tim_push()
+#define stat_ev_tim_pop(name)
 
+#define stat_ev_ctx_push(key)
+#define stat_ev_ctx_push_str(key, str)
+#define stat_ev_ctx_push_fmt(key, fmt, value)
 #define stat_ev_ctx_push_fobj(key, firm_object)
-#define stat_ev_ctx_push(key, value)
-#define stat_ev_ctx_pop()
-#define stat_ev_begin(prefix)
-#define stat_ev_end()
+#define stat_ev_ctx_pop(key)
+#define stat_ev_flush()
 
 #else
 
-extern int stat_ev_enabled;
+#include <stdio.h>
+#include "stat_timing.h"
 
-#define stat_ev_do(expr)            (stat_ev_enabled ? ((expr), 1) : 0)
+extern void           stat_ev_printf(char ev_type, const char *key, const char *fmt, ...);
+
+extern int            stat_ev_enabled;
+extern int            stat_ev_timer_sp;
+extern timing_ticks_t stat_ev_timer_elapsed[];
+extern timing_ticks_t stat_ev_timer_start[];
+
+static inline void stat_ev_tim_push(void) {
+	timing_ticks_t temp;
+	int sp = stat_ev_timer_sp++;
+	timing_ticks(temp);
+	if (sp == 0) {
+		timing_enter_max_prio();
+	} else {
+		timing_ticks_sub(temp, stat_ev_timer_start[sp - 1]);
+		timing_ticks_add(stat_ev_timer_elapsed[sp - 1], temp);
+	}
+	timing_ticks_init(stat_ev_timer_elapsed[sp]);
+	timing_ticks(stat_ev_timer_start[sp]);
+}
+
+static inline void stat_ev_tim_pop(const char *name) {
+	int sp;
+	timing_ticks_t temp;
+	timing_ticks(temp);
+	sp = --stat_ev_timer_sp;
+	timing_ticks_sub(temp, stat_ev_timer_start[sp]);
+	timing_ticks_add(stat_ev_timer_elapsed[sp], temp);
+	if (name != NULL && stat_ev_enabled)
+		stat_ev_printf('E', name, "%g", timing_ticks_dbl(stat_ev_timer_elapsed[sp]));
+	if (sp == 0) {
+		timing_leave_max_prio();
+	} else {
+		timing_ticks(stat_ev_timer_start[sp - 1]);
+	}
+}
+
+#define stat_ev_ctx_push_fmt(key, fmt, value) \
+	do { \
+		if (stat_ev_enabled) { \
+			stat_ev_tim_push(); \
+			stat_ev_printf('P', key, fmt, (value)); \
+			stat_ev_tim_pop(NULL); \
+		} \
+	} while(0)
 
-#define stat_ev_dbl(name, val)      if (stat_ev_enabled) { stat_ev_emit(name, val); }
+#define stat_ev_ctx_pop(key) \
+	do { \
+		if (stat_ev_enabled) { \
+			stat_ev_tim_push(); \
+			stat_ev_printf('O', key, NULL); \
+			stat_ev_tim_pop(NULL); \
+		} \
+	} while(0)
+
+#define stat_ev_emit(name, value) \
+	do { \
+		if (stat_ev_enabled) { \
+			stat_ev_tim_push(); \
+			stat_ev_printf('E', name, "%g", (double) (value)); \
+			stat_ev_tim_pop(NULL); \
+		} \
+	} while(0)
+
+#define stat_ev_ctx_push_fobj(key, firm_object) stat_ev_ctx_push_fmt((key), "%+F", (firm_object))
+#define stat_ev_ctx_push_str(key, str)          stat_ev_ctx_push_fmt((key), "%s", (str))
+#define stat_ev_ctx_push(key)                   stat_ev_ctx_push_fmt((key), "X", NULL)
+
+#define stat_ev_dbl(name, val)      stat_ev_emit((name), (val))
+#define stat_ev_int(name, val)      stat_ev_dbl((name), (double) (val))
+#define stat_ev(name)               stat_ev_emit((name), 0.0)
 
 #define stat_ev_cnt_decl(var)       int stat_ev_cnt_var_ ## var = 0
-#define stat_ev_cnt_inc(var)        (void) ++stat_ev_cnt_var_ ## var
-#define stat_ev_cnt_done(var, name) stat_ev_dbl((name), stat_ev_cnt_var_ ## var)
+#define stat_ev_cnt_inc(var)        do { ++stat_ev_cnt_var_ ## var; } while(0)
+#define stat_ev_cnt_done(var, name) stat_ev_emit((name), stat_ev_cnt_var_ ## var)
 
-#define stat_ev(name)               stat_ev_dbl((name), 0.0)
+#define stat_ev_do(expr)            (stat_ev_enabled ? ((expr), 1) : 0)
+#define stat_ev_if                  if (stat_ev_enabled)
 
-void stat_ev_ctx_push_fobj(const char *key, const void *firm_object);
-void stat_ev_ctx_push(const char *key, const char *value);
-void stat_ev_ctx_pop(void);
-void stat_ev_emit(const char *name, double val);
-void stat_ev_begin(const char *prefix);
+/**
+ * Initialize the stat ev machinery.
+ * @param filename_prefix  The prefix of the filename (.ev or .ev.gz will be appended).
+ * @param filter           All pushes, pops and events will be filtered by this.
+ *                         If we have regex support, you can give an extended regex here.
+ *                         If not, each key will be matched against this.
+ *                         Matched means, we look if the key starts with @p filter.
+ *                         If NULL is given, each key passes, ie thefilter is always TRUE.
+ */
+void stat_ev_begin(const char *filename_prefix, const char *filter);
 void stat_ev_end(void);
 
+#define stat_ev_flush()             do { if (stat_ev_enabled) fflush(stat_ev_enabled); } while(0)
+
 #endif
 
 #endif /* FIRM_STATEVENT_H */