X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fbe%2Fbestat.c;h=0b25be92ba5a377b504c452b79913c7a3406021c;hb=493edb72be97161f5c8762e4589631a6e7083a29;hp=a4f16aa74201d805aba6d53ae0e28efc86b498cd;hpb=0fbcef83aa6060534172bb13e71cdadb04428806;p=libfirm diff --git a/ir/be/bestat.c b/ir/be/bestat.c index a4f16aa74..0b25be92b 100644 --- a/ir/be/bestat.c +++ b/ir/be/bestat.c @@ -1,27 +1,12 @@ /* - * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved. - * * This file is part of libFirm. - * - * This file may be distributed and/or modified under the terms of the - * GNU General Public License version 2 as published by the Free Software - * Foundation and appearing in the file LICENSE.GPL included in the - * packaging of this file. - * - * Licensees holding valid libFirm Professional Edition licenses may use - * this file in accordance with the libFirm Commercial License. - * Agreement provided with the Software. - * - * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE - * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR - * PURPOSE. + * Copyright (C) 2012 University of Karlsruhe. */ /** * @file * @brief Provides several statistic functions for the backend. * @author Christian Wuerdig, Matthias Braun - * @version $Id$ */ #include "config.h" @@ -34,25 +19,25 @@ #include "execfreq.h" #include "firmstat_t.h" #include "irtools.h" -#include "statev.h" #include "error.h" +#include "statev_t.h" -#include "bearch_t.h" -#include "beirg_t.h" +#include "bearch.h" +#include "beirg.h" #include "bestat.h" #include "belive_t.h" #include "besched.h" -#include "benode_t.h" +#include "benode.h" typedef struct pressure_walker_env_t pressure_walker_env_t; struct pressure_walker_env_t { - be_irg_t *birg; + ir_graph *irg; be_lv_t *lv; double insn_count; double regpressure; - int max_pressure; + size_t max_pressure; const arch_register_class_t *cls; }; @@ -60,11 +45,9 @@ static void check_reg_pressure_class(pressure_walker_env_t *env, ir_node *block, const arch_register_class_t *cls) { - be_irg_t *birg = env->birg; - ir_graph *irg = be_get_birg_irg(birg); - 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); @@ -72,9 +55,9 @@ 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)) + if (is_Phi(irn)) break; be_liveness_transfer(cls, irn, &live_nodes); @@ -84,69 +67,64 @@ static void check_reg_pressure_class(pressure_walker_env_t *env, env->insn_count++; } - if(max_live > env->max_pressure) + if (max_live > env->max_pressure) env->max_pressure = max_live; stat_be_block_regpressure(irg, block, max_live, cls->name); ir_nodeset_destroy(&live_nodes); } -static void stat_reg_pressure_block(ir_node *block, void *data) { - pressure_walker_env_t *env = data; +static void stat_reg_pressure_block(ir_node *block, void *data) +{ + pressure_walker_env_t *env = (pressure_walker_env_t*)data; check_reg_pressure_class(env, block, env->cls); } -void be_do_stat_reg_pressure(be_irg_t *birg, const arch_register_class_t *cls) { +void be_do_stat_reg_pressure(ir_graph *irg, const arch_register_class_t *cls) +{ pressure_walker_env_t env; - ir_graph *irg = be_get_birg_irg(birg); double average_pressure; - env.birg = birg; + env.irg = irg; env.insn_count = 0; env.max_pressure = 0; env.regpressure = 0; - be_liveness_assure_sets(be_assure_liveness(birg)); - env.lv = be_get_birg_liveness(birg); + be_assure_live_sets(irg); + env.lv = be_get_irg_liveness(irg); env.cls = cls; /* Collect register pressure information for each block */ 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 { - const arch_env_t *arch_env; - 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, const arch_env_t *arch_env, ir_exec_freq *execfreqs) +double be_estimate_irg_costs(ir_graph *irg) { estimate_irg_costs_env_t env; - - env.arch_env = arch_env; - env.execfreqs = execfreqs; - env.costs = 0.0; + env.costs = 0.0; irg_block_walk_graph(irg, estimate_block_costs, NULL, &env); @@ -155,41 +133,28 @@ double be_estimate_irg_costs(ir_graph *irg, const arch_env_t *arch_env, ir_exec_ -static be_node_stats_t *stats; - static void node_stat_walker(ir_node *irn, void *data) { - (void) data; + be_node_stats_t *const stats = (be_node_stats_t*)data; /* if the node is a normal phi */ - if(is_Phi(irn)) { + if (is_Phi(irn)) { if (get_irn_mode(irn) == mode_M) { (*stats)[BE_STAT_MEM_PHIS]++; } else { (*stats)[BE_STAT_PHIS]++; } - } else { - 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]++; } } -void be_collect_node_stats(be_node_stats_t *new_stats, be_irg_t *birg) +void be_collect_node_stats(be_node_stats_t *new_stats, ir_graph *irg) { - stats = new_stats; - - memset(stats, 0, sizeof(*stats)); - irg_walk_graph(birg->irg, NULL, node_stat_walker, NULL); + memset(new_stats, 0, sizeof(*new_stats)); + irg_walk_graph(irg, NULL, node_stat_walker, new_stats); } void be_subtract_node_stats(be_node_stats_t *stats, be_node_stats_t *sub) @@ -207,24 +172,21 @@ void be_copy_node_stats(be_node_stats_t *dest, be_node_stats_t *src) static const char *get_stat_name(enum be_stat_tag_t tag) { - switch(tag) { + switch (tag) { case BE_STAT_PHIS: return "phis"; 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]); } @@ -234,12 +196,12 @@ 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)) { + switch (get_irn_opcode(irn)) { case iro_Proj: case iro_Phi: - case iro_Start: + case beo_Start: case iro_End: break; default: @@ -256,8 +218,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)++; }