panic() instead of assert(0).

[libfirm] / ir / stat / statev.c

diff --git a/ir/stat/statev.c b/ir/stat/statev.c
index 060fd4f..b628ad1 100644 (file)
--- a/ir/stat/statev.c
+++ b/ir/stat/statev.c
@@ -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.
  *
@@ -31,101 +31,130 @@
 #include <assert.h>
 #include <string.h>
 #include <stdio.h>
-
-#include <libcore/lc_timing.h>
+#include <stdlib.h>
+#include <stdarg.h>
 
 #include "util.h"
-#include "hashptr.h"
+#include "stat_timing.h"
 #include "irprintf.h"
+#include "statev.h"
 
-#define MAX_CTX 128
-
-typedef struct {
-       char key[32];
-       char value[96];
-       unsigned hash;
-} ctx_t;
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
 
-static ctx_t ctx_stack[MAX_CTX];
+#ifdef HAVE_REGEX_H
+#define FIRM_HAVE_REGEX
+#endif
 
-static unsigned long time_in_ev = 0;
-static int ctx_sp     = -1;
-static FILE *file_ev  = NULL;
+#if defined HAVE_LIBZ && defined HAVE_ZLIB_H
+#define FIRM_HAVE_LIBZ
+#endif
 
-static lc_timer_t *timer = NULL;
 
-int stat_ev_enabled = 0;
+#define MAX_TIMER 256
 
-#define get_time() lc_timer_elapsed_msec(timer)
+#ifdef FIRM_HAVE_LIBZ
+#include <zlib.h>
 
-void stat_ev_ctx_push(const char *key, const char *value)
-{
-       if (file_ev) {
-               unsigned long start = get_time();
-               ctx_t *ctx    = &ctx_stack[ctx_sp + 1];
-               unsigned hash = firm_fnv_hash_str(key);
+#define mfprintf   gzprintf
+static gzFile*     stat_ev_file  = NULL;
 
-               hash = HASH_COMBINE(hash, firm_fnv_hash_str(value));
-               if (ctx_sp >= 0)
-                       hash = HASH_COMBINE(hash, ctx_stack[ctx_sp].hash);
+#else
 
-               strncpy(ctx->key, key, array_size(ctx->key));
-               strncpy(ctx->value, value, array_size(ctx->key));
-               ctx->hash  = hash | 1;
-               ++ctx_sp;
+#define mfprintf   fprintf
+static FILE*       stat_ev_file  = NULL;
 
-               fprintf(file_ev, "P %10x %30s %30s\n", ctx->hash, key, value);
+#endif /* FIRM_HAVE_LIBZ */
 
-               time_in_ev += get_time() - start;
-       }
-}
+int                stat_ev_enabled = 0;
+int                stat_ev_timer_sp = 0;
+timing_ticks_t     stat_ev_timer_elapsed[MAX_TIMER];
+timing_ticks_t     stat_ev_timer_start[MAX_TIMER];
+timing_sched_env_t stat_ev_sched_rt;
+timing_sched_env_t stat_ev_sched_normal;
 
-void stat_ev_ctx_push_fobj(const char *key, const void *firm_object)
+#ifdef FIRM_HAVE_REGEX
+#include <regex.h>
+static regex_t regex;
+static regex_t *filter = NULL;
+static INLINE int key_matches(const char *key)
 {
-       char buf[96];
-       ir_snprintf(buf, sizeof(buf), "%+F", firm_object);
-       stat_ev_ctx_push(key, buf);
+       if (!filter)
+               return 1;
+
+       return regexec(filter, key, 0, NULL, 0) == 0;
 }
 
-void stat_ev_ctx_pop(void)
+#else
+static char filter[128] = { '\0' };
+static INLINE int key_matches(const char *key)
 {
-       if (ctx_sp >= 0) {
-               if (file_ev)
-                       fprintf(file_ev, "O %10x\n", ctx_stack[ctx_sp].hash);
-               --ctx_sp;
+       int i = 0;
+
+       for (i = 0; filter[i] != '\0'; ++i) {
+               if (key[i] != filter[i])
+                       return 0;
        }
+
+       return 1;
 }
+#endif /* FIRM_HAVE_REGEX */
 
-void stat_ev_emit(const char *name, double value)
-{
-       if (file_ev) {
-               unsigned long start = get_time();
-               unsigned         id = ctx_sp >= 0 ? ctx_stack[ctx_sp].hash : 0;
 
-               fprintf(file_ev, "E %10x %30s %30f %10ld %10ld\n", id, name, value, start, time_in_ev);
-               time_in_ev += get_time() - start;
+void stat_ev_printf(char ev, const char *key, const char *fmt, ...)
+{
+       if (ev == 'E' && !key_matches(key))
+               return;
+
+       mfprintf(stat_ev_file, "%c;%s", ev, key);
+       if (fmt != NULL) {
+               char buf[256];
+               va_list args;
+
+               va_start(args, fmt);
+               ir_vsnprintf(buf, sizeof(buf), fmt, args);
+               va_end(args);
+               mfprintf(stat_ev_file, ";%s", buf);
        }
+       mfprintf(stat_ev_file, "\n");
 }
 
-void stat_ev_begin(const char *prefix)
+void stat_ev_begin(const char *prefix, const char *filt)
 {
        char buf[512];
 
+#ifdef FIRM_HAVE_LIBZ
+       snprintf(buf, sizeof(buf), "%s.ev.gz", prefix);
+       stat_ev_file    = gzopen(buf, "wt9");
+#else
        snprintf(buf, sizeof(buf), "%s.ev", prefix);
+       stat_ev_file    = fopen(buf, "wt");
+#endif
 
-       stat_ev_enabled = 1;
-       ctx_sp     = -1;
-       time_in_ev = 0;
-       file_ev    = fopen(buf, "wt");
-       timer      = lc_timer_register("stat_ev", "firm stat event timer");
+       if (filt && filt[0] != '\0') {
+#ifdef FIRM_HAVE_REGEX
+               filter = NULL;
+               if (regcomp(&regex, filt, REG_EXTENDED) == 0)
+                       filter = &regex;
+#else
+               strncpy(filter, filt, sizeof(filter) - sizeof(filter[0]));
+#endif /* FIRM_HAVE_REGEX */
+       }
 
-       lc_timer_start(timer);
+       stat_ev_enabled = stat_ev_file != NULL;
+       timing_sched_get(&stat_ev_sched_normal);
+       timing_sched_prepare_max_prio(&stat_ev_sched_rt);
 }
 
 void stat_ev_end(void)
 {
-       if (timer)
-               lc_timer_stop(timer);
-       if (file_ev)
-               fclose(file_ev);
+       if (stat_ev_file) {
+#ifdef FIRM_HAVE_LIBZ
+               gzflush(stat_ev_file, 1);
+               gzclose(stat_ev_file);
+#else
+               fclose(stat_ev_file);
+#endif
+       }
 }