bestack: Fetch the start block only once.
[libfirm] / ir / be / bestat.c
index 2f9453a..fbc8b64 100644 (file)
@@ -1,5 +1,5 @@
 /*
- * Copyright (C) 1995-2008 University of Karlsruhe.  All right reserved.
+ * Copyright (C) 1995-2011 University of Karlsruhe.  All right reserved.
  *
  * This file is part of libFirm.
  *
@@ -21,7 +21,6 @@
  * @file
  * @brief       Provides several statistic functions for the backend.
  * @author      Christian Wuerdig, Matthias Braun
- * @version     $Id$
  */
 #include "config.h"
 
@@ -34,8 +33,8 @@
 #include "execfreq.h"
 #include "firmstat_t.h"
 #include "irtools.h"
-#include "statev.h"
 #include "error.h"
+#include "statev_t.h"
 
 #include "bearch.h"
 #include "beirg.h"
@@ -52,7 +51,7 @@ struct pressure_walker_env_t {
        be_lv_t  *lv;
        double    insn_count;
        double    regpressure;
-       int       max_pressure;
+       size_t    max_pressure;
        const arch_register_class_t *cls;
 };
 
@@ -60,10 +59,9 @@ static void check_reg_pressure_class(pressure_walker_env_t *env,
                                      ir_node *block,
                                      const arch_register_class_t *cls)
 {
-       ir_graph     *irg  = env->irg;
-       ir_node      *irn;
-       ir_nodeset_t  live_nodes;
-       int           max_live;
+       ir_graph    *irg  = env->irg;
+       ir_nodeset_t live_nodes;
+       size_t       max_live;
 
        ir_nodeset_init(&live_nodes);
        be_liveness_end_of_block(env->lv, cls, block, &live_nodes);
@@ -71,7 +69,7 @@ static void check_reg_pressure_class(pressure_walker_env_t *env,
        env->regpressure += max_live;
 
        sched_foreach_reverse(block, irn) {
-               int cnt;
+               size_t cnt;
 
                if (is_Phi(irn))
                        break;
@@ -86,15 +84,13 @@ static void check_reg_pressure_class(pressure_walker_env_t *env,
        if (max_live > env->max_pressure)
                env->max_pressure = max_live;
 
-#ifdef FIRM_STATISTICS
        stat_be_block_regpressure(irg, block, max_live, cls->name);
-#endif
        ir_nodeset_destroy(&live_nodes);
 }
 
 static void stat_reg_pressure_block(ir_node *block, void *data)
 {
-       pressure_walker_env_t *env = data;
+       pressure_walker_env_t *env = (pressure_walker_env_t*)data;
 
        check_reg_pressure_class(env, block, env->cls);
 }
@@ -108,7 +104,7 @@ void be_do_stat_reg_pressure(ir_graph *irg, const arch_register_class_t *cls)
        env.insn_count   = 0;
        env.max_pressure = 0;
        env.regpressure  = 0;
-       be_liveness_assure_sets(be_assure_liveness(irg));
+       be_assure_live_sets(irg);
        env.lv           = be_get_irg_liveness(irg);
        env.cls          = cls;
 
@@ -116,37 +112,33 @@ void be_do_stat_reg_pressure(ir_graph *irg, const arch_register_class_t *cls)
        irg_block_walk_graph(irg, stat_reg_pressure_block, NULL, &env);
 
        average_pressure = env.regpressure / env.insn_count;
-       stat_ev_emit("bechordal_average_register_pressure", average_pressure);
-       stat_ev_emit("bechordal_maximum_register_pressure", env.max_pressure);
+       stat_ev_dbl("bechordal_average_register_pressure", average_pressure);
+       stat_ev_dbl("bechordal_maximum_register_pressure", env.max_pressure);
 }
 
 
 
 
-typedef struct _estimate_irg_costs_env_t {
-       ir_exec_freq     *execfreqs;
-       double           costs;
+typedef struct estimate_irg_costs_env_t {
+       double costs;
 } estimate_irg_costs_env_t;
 
 static void estimate_block_costs(ir_node *block, void *data)
 {
-       estimate_irg_costs_env_t *env = data;
-       ir_node *node;
-       double  costs = 0.0;
+       estimate_irg_costs_env_t *env = (estimate_irg_costs_env_t*)data;
+       double costs = 0.0;
 
        sched_foreach(block, node) {
                costs += arch_get_op_estimated_cost(node);
        }
 
-       env->costs += costs * get_block_execfreq(env->execfreqs, block);
+       env->costs += costs * get_block_execfreq(block);
 }
 
-double be_estimate_irg_costs(ir_graph *irg, ir_exec_freq *execfreqs)
+double be_estimate_irg_costs(ir_graph *irg)
 {
        estimate_irg_costs_env_t env;
-
-       env.execfreqs = execfreqs;
-       env.costs     = 0.0;
+       env.costs = 0.0;
 
        irg_block_walk_graph(irg, estimate_block_costs, NULL, &env);
 
@@ -157,7 +149,7 @@ double be_estimate_irg_costs(ir_graph *irg, ir_exec_freq *execfreqs)
 
 static void node_stat_walker(ir_node *irn, void *data)
 {
-       be_node_stats_t *const stats = data;
+       be_node_stats_t *const stats = (be_node_stats_t*)data;
 
        /* if the node is a normal phi */
        if (is_Phi(irn)) {
@@ -166,19 +158,10 @@ static void node_stat_walker(ir_node *irn, void *data)
                } else {
                        (*stats)[BE_STAT_PHIS]++;
                }
-       } else if (!is_Proj(irn)) {
-               arch_irn_class_t classify = arch_irn_classify(irn);
-
-               if (classify & arch_irn_class_spill)
-                       (*stats)[BE_STAT_SPILLS]++;
-               if (classify & arch_irn_class_reload)
-                       (*stats)[BE_STAT_RELOADS]++;
-               if (classify & arch_irn_class_remat)
-                       (*stats)[BE_STAT_REMATS]++;
-               if (classify & arch_irn_class_copy)
-                       (*stats)[BE_STAT_COPIES]++;
-               if (classify & arch_irn_class_perm)
-                       (*stats)[BE_STAT_PERMS]++;
+       } else if (be_is_Perm(irn)) {
+               (*stats)[BE_STAT_PERMS]++;
+       } else if (be_is_Copy(irn)) {
+               (*stats)[BE_STAT_COPIES]++;
        }
 }
 
@@ -208,19 +191,16 @@ static const char *get_stat_name(enum be_stat_tag_t tag)
        case BE_STAT_MEM_PHIS: return "mem_phis";
        case BE_STAT_COPIES:   return "copies";
        case BE_STAT_PERMS:    return "perms";
-       case BE_STAT_SPILLS:   return "spills";
-       case BE_STAT_RELOADS:  return "reloads";
-       case BE_STAT_REMATS:   return "remats";
        default:               panic("unknown stat tag found");
        }
 }
 
 void be_emit_node_stats(be_node_stats_t *stats, const char *prefix)
 {
-       static char buf[256];
-       int         i;
+       static char   buf[256];
+       be_stat_tag_t i;
 
-       for (i = 0; i < BE_STAT_COUNT; ++i) {
+       for (i = BE_STAT_FIRST; i < BE_STAT_COUNT; ++i) {
                snprintf(buf, sizeof(buf), "%s%s", prefix, get_stat_name(i));
                stat_ev_dbl(buf, (*stats)[i]);
        }
@@ -230,7 +210,7 @@ void be_emit_node_stats(be_node_stats_t *stats, const char *prefix)
 
 static void insn_count_walker(ir_node *irn, void *data)
 {
-       unsigned long *cnt = data;
+       unsigned long *cnt = (unsigned long*)data;
 
        switch (get_irn_opcode(irn)) {
        case iro_Proj:
@@ -252,8 +232,8 @@ unsigned long be_count_insns(ir_graph *irg)
 
 static void block_count_walker(ir_node *node, void *data)
 {
-       unsigned long *cnt = data;
-       if (node == get_irg_end_block(current_ir_graph))
+       unsigned long *cnt = (unsigned long*)data;
+       if (node == get_irg_end_block(get_irn_irg(node)))
                return;
        (*cnt)++;
 }