X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fstat%2Fstatev.c;h=972935acc42a8f42f0d56fef91ecf41a71f326c5;hb=20a0283f7453dfdb20894df38d860b27de4997b9;hp=b7c88322edf5659ab1334abacd70842ff1915d22;hpb=1ce363f80e6a204d4011f85813362d9bd1d0e7e4;p=libfirm diff --git a/ir/stat/statev.c b/ir/stat/statev.c index b7c88322e..972935acc 100644 --- a/ir/stat/statev.c +++ b/ir/stat/statev.c @@ -22,63 +22,35 @@ * @brief Statistic events. * @author Sebastian Hack * @date 17.06.2007 - * @version $Id$ */ -#ifdef HAVE_CONFIG_H #include "config.h" -#endif #include #include #include #include #include +#include #include "util.h" -#include "timing.h" +#include "stat_timing.h" #include "irprintf.h" -#include "statev.h" +#include "statev_t.h" -#ifdef HAVE_CONFIG_H #include "config.h" -#endif - -#ifdef HAVE_REGEX_H -#define FIRM_HAVE_REGEX -#endif - -#if defined HAVE_LIBZ && defined HAVE_ZLIB_H -#define FIRM_HAVE_LIBZ -#endif - #define MAX_TIMER 256 -#ifdef FIRM_HAVE_LIBZ -#include - -#define mfprintf gzprintf -static gzFile* stat_ev_file = NULL; - -#else - -#define mfprintf fprintf -static FILE* stat_ev_file = NULL; - -#endif /* FIRM_HAVE_LIBZ */ +int (stat_ev_enabled) = 0; -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; +static FILE *stat_ev_file = NULL; +static int stat_ev_timer_sp = 0; +static timing_ticks_t stat_ev_timer_elapsed[MAX_TIMER]; +static timing_ticks_t stat_ev_timer_start[MAX_TIMER]; -#ifdef FIRM_HAVE_REGEX -#include -static regex_t regex; +static regex_t regex; static regex_t *filter = NULL; -static INLINE int key_matches(const char *key) +static inline int key_matches(const char *key) { if (!filter) return 1; @@ -86,75 +58,165 @@ static INLINE int key_matches(const char *key) return regexec(filter, key, 0, NULL, 0) == 0; } -#else -static char filter[128] = { '\0' }; -static INLINE int key_matches(const char *key) +static void stat_ev_vprintf(char ev, const char *key, const char *fmt, va_list ap) { - int i = 0; + if (!key_matches(key)) + return; + + fprintf(stat_ev_file, "%c;%s", ev, key); + if (fmt != NULL) { + char buf[256]; - for (i = 0; filter[i] != '\0'; ++i) { - if (key[i] != filter[i]) - return 0; + ir_vsnprintf(buf, sizeof(buf), fmt, ap); + fprintf(stat_ev_file, ";%s", buf); } + fprintf(stat_ev_file, "\n"); +} - return 1; +static void stat_ev_printf(char ev, const char *key, const char *fmt, ...) +{ + va_list ap; + va_start(ap, fmt); + stat_ev_vprintf(ev, key, fmt, ap); + va_end(ap); } -#endif /* FIRM_HAVE_REGEX */ +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]); +} -void stat_ev_printf(char ev, const char *key, const char *fmt, ...) +void stat_ev_tim_pop(const char *name) { - if (!key_matches(key)) + 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]); + } +} + +void do_stat_ev_ctx_push_vfmt(const char *key, const char *fmt, va_list ap) +{ + stat_ev_tim_push(); + stat_ev_vprintf('P', key, fmt, ap); + stat_ev_tim_pop(NULL); +} + +void (stat_ev_ctx_push_fmt)(const char *key, const char *fmt, ...) +{ + if (!stat_ev_enabled) return; - mfprintf(stat_ev_file, "%c;%s", ev, key); - if (fmt != NULL) { - char buf[256]; - va_list args; + va_list ap; + va_start(ap, fmt); + do_stat_ev_ctx_push_vfmt(key, fmt, ap); + va_end(ap); +} - 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_ctx_push_str)(const char *key, const char *str) +{ + stat_ev_ctx_push_str_(key, str); +} + +void do_stat_ev_ctx_pop(const char *key) +{ + stat_ev_tim_push(); + stat_ev_printf('O', key, NULL); + stat_ev_tim_pop(NULL); +} + +void (stat_ev_ctx_pop)(const char *key) +{ + stat_ev_ctx_pop_(key); +} + +void do_stat_ev_dbl(const char *name, double value) +{ + stat_ev_tim_push(); + stat_ev_printf('E', name, "%g", value); + stat_ev_tim_pop(NULL); +} + +void (stat_ev_dbl)(const char *name, double value) +{ + stat_ev_dbl_(name, value); +} + +void do_stat_ev_int(const char *name, int value) +{ + stat_ev_tim_push(); + stat_ev_printf('E', name, "%d", value); + stat_ev_tim_pop(NULL); +} + +void (stat_ev_int)(const char *name, int value) +{ + stat_ev_int_(name, value); +} + +void do_stat_ev_ull(const char *name, unsigned long long value) +{ + stat_ev_tim_push(); + stat_ev_printf('E', name, "%llu", value); + stat_ev_tim_pop(NULL); +} + +void (stat_ev_ull)(const char *name, unsigned long long value) +{ + stat_ev_ull_(name, value); +} + +void do_stat_ev(const char *name) +{ + stat_ev_tim_push(); + stat_ev_printf('E', name, "0.0"); + stat_ev_tim_pop(NULL); +} + +void (stat_ev)(const char *name) +{ + stat_ev_(name); } 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_file = fopen(buf, "wt"); if (filt && filt[0] != '\0') { -#ifdef FIRM_HAVE_REGEX filter = NULL; if (regcomp(®ex, filt, REG_EXTENDED) == 0) filter = ®ex; -#else - strncpy(filter, filt, sizeof(filter) - sizeof(filter[0])); -#endif /* FIRM_HAVE_REGEX */ } 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 (stat_ev_file) { -#ifdef FIRM_HAVE_LIBZ - gzflush(stat_ev_file, 1); - gzclose(stat_ev_file); -#else fclose(stat_ev_file); -#endif } + if (filter != NULL) + regfree(filter); }