X-Git-Url: http://nsz.repo.hu/git/?a=blobdiff_plain;f=ir%2Fstat%2Ffirmstat.c;h=3dffface236529ac45b9be41c10b2b17357e449f;hb=289f417b740633fd4caab706441b6e47bb8d19d1;hp=3aa6fe4e019332517500a9e952716d3333060877;hpb=01ddc5c06877693df7d5f286d43e433fedd87103;p=libfirm diff --git a/ir/stat/firmstat.c b/ir/stat/firmstat.c index 3aa6fe4e0..3dffface2 100644 --- a/ir/stat/firmstat.c +++ b/ir/stat/firmstat.c @@ -1,5 +1,5 @@ /* - * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved. + * Copyright (C) 1995-2010 University of Karlsruhe. All right reserved. * * This file is part of libFirm. * @@ -65,12 +65,6 @@ static ir_op _op_DivC; /** The Div by Const node. */ static ir_op _op_ModC; -/** The Div by Const node. */ -static ir_op _op_DivModC; - -/** The Quot by Const node. */ -static ir_op _op_QuotC; - /** The memory Proj node. */ static ir_op _op_ProjM; @@ -83,13 +77,13 @@ static ir_op _op_SelSelSel; /* ---------------------------------------------------------------------------------- */ /** Marks the begin of a statistic (hook) function. */ -#define STAT_ENTER ++status->recursive +#define STAT_ENTER ++status->recursive /** Marks the end of a statistic (hook) functions. */ -#define STAT_LEAVE --status->recursive +#define STAT_LEAVE --status->recursive /** Allows to enter a statistic function only when we are not already in a hook. */ -#define STAT_ENTER_SINGLE do { if (status->recursive > 0) return; ++status->recursive; } while (0) +#define STAT_ENTER_SINGLE do { if (status->recursive > 0) return; ++status->recursive; } while (0) /** * global status @@ -102,8 +96,8 @@ static stat_info_t *status = (stat_info_t *)&status_disable; */ static int opcode_cmp(const void *elt, const void *key) { - const node_entry_t *e1 = elt; - const node_entry_t *e2 = key; + const node_entry_t *e1 = (const node_entry_t*)elt; + const node_entry_t *e2 = (const node_entry_t*)key; return e1->op->code - e2->op->code; } /* opcode_cmp */ @@ -113,8 +107,8 @@ static int opcode_cmp(const void *elt, const void *key) */ static int graph_cmp(const void *elt, const void *key) { - const graph_entry_t *e1 = elt; - const graph_entry_t *e2 = key; + const graph_entry_t *e1 = (const graph_entry_t*)elt; + const graph_entry_t *e2 = (const graph_entry_t*)key; return e1->irg != e2->irg; } /* graph_cmp */ @@ -124,8 +118,8 @@ static int graph_cmp(const void *elt, const void *key) */ static int opt_cmp(const void *elt, const void *key) { - const opt_entry_t *e1 = elt; - const opt_entry_t *e2 = key; + const opt_entry_t *e1 = (const opt_entry_t*)elt; + const opt_entry_t *e2 = (const opt_entry_t*)key; return e1->op->code != e2->op->code; } /* opt_cmp */ @@ -135,8 +129,8 @@ static int opt_cmp(const void *elt, const void *key) */ static int block_cmp(const void *elt, const void *key) { - const block_entry_t *e1 = elt; - const block_entry_t *e2 = key; + const block_entry_t *e1 = (const block_entry_t*)elt; + const block_entry_t *e2 = (const block_entry_t*)key; /* it's enough to compare the block number */ return e1->block_nr != e2->block_nr; @@ -147,8 +141,8 @@ static int block_cmp(const void *elt, const void *key) */ static int be_block_cmp(const void *elt, const void *key) { - const be_block_entry_t *e1 = elt; - const be_block_entry_t *e2 = key; + const be_block_entry_t *e1 = (const be_block_entry_t*)elt; + const be_block_entry_t *e2 = (const be_block_entry_t*)key; return e1->block_nr != e2->block_nr; } /* be_block_cmp */ @@ -158,8 +152,8 @@ static int be_block_cmp(const void *elt, const void *key) */ static int reg_pressure_cmp(const void *elt, const void *key) { - const reg_pressure_entry_t *e1 = elt; - const reg_pressure_entry_t *e2 = key; + const reg_pressure_entry_t *e1 = (const reg_pressure_entry_t*)elt; + const reg_pressure_entry_t *e2 = (const reg_pressure_entry_t*)key; return e1->class_name != e2->class_name; } /* reg_pressure_cmp */ @@ -169,8 +163,8 @@ static int reg_pressure_cmp(const void *elt, const void *key) */ static int perm_stat_cmp(const void *elt, const void *key) { - const perm_stat_entry_t *e1 = elt; - const perm_stat_entry_t *e2 = key; + const perm_stat_entry_t *e1 = (const perm_stat_entry_t*)elt; + const perm_stat_entry_t *e2 = (const perm_stat_entry_t*)key; return e1->perm != e2->perm; } /* perm_stat_cmp */ @@ -180,8 +174,8 @@ static int perm_stat_cmp(const void *elt, const void *key) */ static int perm_class_cmp(const void *elt, const void *key) { - const perm_class_entry_t *e1 = elt; - const perm_class_entry_t *e2 = key; + const perm_class_entry_t *e1 = (const perm_class_entry_t*)elt; + const perm_class_entry_t *e2 = (const perm_class_entry_t*)key; return e1->class_name != e2->class_name; } /* perm_class_cmp */ @@ -191,8 +185,8 @@ static int perm_class_cmp(const void *elt, const void *key) */ static int opcode_cmp_2(const void *elt, const void *key) { - const ir_op *e1 = elt; - const ir_op *e2 = key; + const ir_op *e1 = (const ir_op*)elt; + const ir_op *e2 = (const ir_op*)key; return e1->code != e2->code; } /* opcode_cmp_2 */ @@ -202,8 +196,8 @@ static int opcode_cmp_2(const void *elt, const void *key) */ static int address_mark_cmp(const void *elt, const void *key, size_t size) { - const address_mark_entry_t *e1 = elt; - const address_mark_entry_t *e2 = key; + const address_mark_entry_t *e1 = (const address_mark_entry_t*)elt; + const address_mark_entry_t *e2 = (const address_mark_entry_t*)key; (void) size; /* compare only the nodes, the rest is used as data container */ @@ -235,7 +229,7 @@ static node_entry_t *opcode_get_entry(const ir_op *op, hmap_node_entry_t *hmap) key.op = op; - elem = pset_find(hmap, &key, op->code); + elem = (node_entry_t*)pset_find(hmap, &key, op->code); if (elem) return elem; @@ -246,7 +240,7 @@ static node_entry_t *opcode_get_entry(const ir_op *op, hmap_node_entry_t *hmap) elem->op = op; - return pset_insert(hmap, elem, op->code); + return (node_entry_t*)pset_insert(hmap, elem, op->code); } /* opcode_get_entry */ /** @@ -260,7 +254,7 @@ static ir_op *opcode_find_entry(ir_opcode code, hmap_ir_op *hmap) ir_op key; key.code = code; - return pset_find(hmap, &key, code); + return (ir_op*)pset_find(hmap, &key, code); } /* opcode_find_entry */ /** @@ -306,7 +300,7 @@ static graph_entry_t *graph_get_entry(ir_graph *irg, hmap_graph_entry_t *hmap) key.irg = irg; - elem = pset_find(hmap, &key, HASH_PTR(irg)); + elem = (graph_entry_t*)pset_find(hmap, &key, HASH_PTR(irg)); if (elem) { /* create hash map backend block information */ @@ -335,7 +329,7 @@ static graph_entry_t *graph_get_entry(ir_graph *irg, hmap_graph_entry_t *hmap) for (i = 0; i < sizeof(elem->opt_hash)/sizeof(elem->opt_hash[0]); ++i) elem->opt_hash[i] = new_pset(opt_cmp, 4); - return pset_insert(hmap, elem, HASH_PTR(irg)); + return (graph_entry_t*)pset_insert(hmap, elem, HASH_PTR(irg)); } /* graph_get_entry */ /** @@ -359,7 +353,7 @@ static opt_entry_t *opt_get_entry(const ir_op *op, hmap_opt_entry_t *hmap) key.op = op; - elem = pset_find(hmap, &key, op->code); + elem = (opt_entry_t*)pset_find(hmap, &key, op->code); if (elem) return elem; @@ -370,7 +364,7 @@ static opt_entry_t *opt_get_entry(const ir_op *op, hmap_opt_entry_t *hmap) elem->op = op; - return pset_insert(hmap, elem, op->code); + return (opt_entry_t*)pset_insert(hmap, elem, op->code); } /* opt_get_entry */ /** @@ -397,7 +391,7 @@ static block_entry_t *block_get_entry(struct obstack *obst, long block_nr, hmap_ key.block_nr = block_nr; - elem = pset_find(hmap, &key, block_nr); + elem = (block_entry_t*)pset_find(hmap, &key, block_nr); if (elem) return elem; @@ -408,7 +402,7 @@ static block_entry_t *block_get_entry(struct obstack *obst, long block_nr, hmap_ elem->block_nr = block_nr; - return pset_insert(hmap, elem, block_nr); + return (block_entry_t*)pset_insert(hmap, elem, block_nr); } /* block_get_entry */ /** @@ -443,7 +437,7 @@ static be_block_entry_t *be_block_get_entry(struct obstack *obst, long block_nr, key.block_nr = block_nr; - elem = pset_find(hmap, &key, block_nr); + elem = (be_block_entry_t*)pset_find(hmap, &key, block_nr); if (elem) return elem; @@ -454,7 +448,7 @@ static be_block_entry_t *be_block_get_entry(struct obstack *obst, long block_nr, elem->block_nr = block_nr; - return pset_insert(hmap, elem, block_nr); + return (be_block_entry_t*)pset_insert(hmap, elem, block_nr); } /* be_block_get_entry */ /** @@ -482,7 +476,7 @@ static perm_class_entry_t *perm_class_get_entry(struct obstack *obst, const char key.class_name = class_name; - elem = pset_find(hmap, &key, HASH_PTR(class_name)); + elem = (perm_class_entry_t*)pset_find(hmap, &key, HASH_PTR(class_name)); if (elem) return elem; @@ -493,7 +487,7 @@ static perm_class_entry_t *perm_class_get_entry(struct obstack *obst, const char elem->class_name = class_name; - return pset_insert(hmap, elem, HASH_PTR(class_name)); + return (perm_class_entry_t*)pset_insert(hmap, elem, HASH_PTR(class_name)); } /* perm_class_get_entry */ /** @@ -524,7 +518,7 @@ static perm_stat_entry_t *perm_stat_get_entry(struct obstack *obst, ir_node *per key.perm = perm; - elem = pset_find(hmap, &key, HASH_PTR(perm)); + elem = (perm_stat_entry_t*)pset_find(hmap, &key, HASH_PTR(perm)); if (elem) return elem; @@ -535,7 +529,7 @@ static perm_stat_entry_t *perm_stat_get_entry(struct obstack *obst, ir_node *per elem->perm = perm; - return pset_insert(hmap, elem, HASH_PTR(perm)); + return (perm_stat_entry_t*)pset_insert(hmap, elem, HASH_PTR(perm)); } /* perm_stat_get_entry */ /** @@ -557,7 +551,7 @@ static void clear_optimization_counter(void) static ir_op *stat_get_irn_op(ir_node *node) { ir_op *op = get_irn_op(node); - ir_opcode opc = op->code; + unsigned opc = op->code; switch (opc) { case iro_Phi: @@ -593,18 +587,6 @@ static ir_op *stat_get_irn_op(ir_node *node) op = status->op_ModC ? status->op_ModC : op; } /* if */ break; - case iro_DivMod: - if (is_Const(get_DivMod_right(node))) { - /* special case, a division/modulo by a const, count on extra counter */ - op = status->op_DivModC ? status->op_DivModC : op; - } /* if */ - break; - case iro_Quot: - if (is_Const(get_Quot_right(node))) { - /* special case, a floating point division by a const, count on extra counter */ - op = status->op_QuotC ? status->op_QuotC : op; - } /* if */ - break; case iro_Sel: if (is_Sel(get_Sel_ptr(node))) { /* special case, a Sel of a Sel, count on extra counter */ @@ -648,7 +630,7 @@ static void undate_block_info(ir_node *node, graph_entry_t *graph) ir_node *other_block = get_nodes_block(pred); block_entry_t *b_entry_other = block_get_entry(&graph->recalc_cnts, get_irn_node_nr(other_block), graph->block_hash); - cnt_inc(&b_entry->cnt[bcnt_in_edges]); /* an edge coming from another block */ + cnt_inc(&b_entry->cnt[bcnt_in_edges]); /* an edge coming from another block */ cnt_inc(&b_entry_other->cnt[bcnt_out_edges]); } /* for */ return; @@ -678,11 +660,11 @@ static void undate_block_info(ir_node *node, graph_entry_t *graph) other_block = get_nodes_block(pred); if (other_block == block) - cnt_inc(&b_entry->cnt[bcnt_edges]); /* a in block edge */ + cnt_inc(&b_entry->cnt[bcnt_edges]); /* a in block edge */ else { block_entry_t *b_entry_other = block_get_entry(&graph->recalc_cnts, get_irn_node_nr(other_block), graph->block_hash); - cnt_inc(&b_entry->cnt[bcnt_in_edges]); /* an edge coming from another block */ + cnt_inc(&b_entry->cnt[bcnt_in_edges]); /* an edge coming from another block */ cnt_inc(&b_entry_other->cnt[bcnt_out_edges]); } /* if */ } /* for */ @@ -712,7 +694,7 @@ static void update_extbb_info(ir_node *node, graph_entry_t *graph) if (extbb != other_extbb) { extbb_entry_t *eb_entry_other = block_get_entry(&graph->recalc_cnts, get_extbb_node_nr(other_extbb), graph->extbb_hash); - cnt_inc(&eb_entry->cnt[bcnt_in_edges]); /* an edge coming from another extbb */ + cnt_inc(&eb_entry->cnt[bcnt_in_edges]); /* an edge coming from another extbb */ cnt_inc(&eb_entry_other->cnt[bcnt_out_edges]); } /* if */ } /* for */ @@ -741,11 +723,11 @@ static void update_extbb_info(ir_node *node, graph_entry_t *graph) ir_extblk *other_extbb = get_nodes_extbb(pred); if (other_extbb == extbb) - cnt_inc(&eb_entry->cnt[bcnt_edges]); /* a in extbb edge */ + cnt_inc(&eb_entry->cnt[bcnt_edges]); /* a in extbb edge */ else { extbb_entry_t *eb_entry_other = block_get_entry(&graph->recalc_cnts, get_extbb_node_nr(other_extbb), graph->extbb_hash); - cnt_inc(&eb_entry->cnt[bcnt_in_edges]); /* an edge coming from another extbb */ + cnt_inc(&eb_entry->cnt[bcnt_in_edges]); /* an edge coming from another extbb */ cnt_inc(&eb_entry_other->cnt[bcnt_out_edges]); } /* if */ } /* for */ @@ -925,7 +907,7 @@ static ir_node *find_base_adr(ir_node *sel) */ static void stat_update_address(ir_node *node, graph_entry_t *graph) { - ir_opcode opc = get_irn_opcode(node); + unsigned opc = get_irn_opcode(node); ir_node *base; ir_graph *irg; @@ -937,10 +919,7 @@ static void stat_update_address(ir_node *node, graph_entry_t *graph) case iro_Sel: base = find_base_adr(node); irg = current_ir_graph; - if (base == get_irg_tls(irg)) { - /* a TLS variable, like a global. */ - cnt_inc(&graph->cnt[gcnt_global_adr]); - } else if (base == get_irg_frame(irg)) { + if (base == get_irg_frame(irg)) { /* a local Variable. */ cnt_inc(&graph->cnt[gcnt_local_adr]); } else { @@ -962,7 +941,7 @@ static void stat_update_address(ir_node *node, graph_entry_t *graph) } /* if */ /* other parameter */ cnt_inc(&graph->cnt[gcnt_param_adr]); -end_parameter: ; +end_parameter: ; } else { /* unknown Pointer access */ cnt_inc(&graph->cnt[gcnt_other_adr]); @@ -978,7 +957,7 @@ end_parameter: ; */ static void update_node_stat(ir_node *node, void *env) { - graph_entry_t *graph = env; + graph_entry_t *graph = (graph_entry_t*)env; node_entry_t *entry; ir_op *op = stat_get_irn_op(node); @@ -1047,7 +1026,7 @@ static void update_node_stat(ir_node *node, void *env) */ static void update_node_stat_2(ir_node *node, void *env) { - graph_entry_t *graph = env; + graph_entry_t *graph = (graph_entry_t*)env; /* check for properties that depends on calls like recursion/leaf/indirect call */ if (is_Call(node)) @@ -1059,7 +1038,7 @@ static void update_node_stat_2(ir_node *node, void *env) */ static unsigned get_adr_mark(graph_entry_t *graph, ir_node *node) { - address_mark_entry_t *value = set_find(graph->address_mark, &node, sizeof(*value), HASH_PTR(node)); + address_mark_entry_t *value = (address_mark_entry_t*)set_find(graph->address_mark, &node, sizeof(*value), HASH_PTR(node)); return value ? value->mark : 0; } /* get_adr_mark */ @@ -1069,7 +1048,7 @@ static unsigned get_adr_mark(graph_entry_t *graph, ir_node *node) */ static void set_adr_mark(graph_entry_t *graph, ir_node *node, unsigned val) { - address_mark_entry_t *value = set_insert(graph->address_mark, &node, sizeof(*value), HASH_PTR(node)); + address_mark_entry_t *value = (address_mark_entry_t*)set_insert(graph->address_mark, &node, sizeof(*value), HASH_PTR(node)); value->mark = val; } /* set_adr_mark */ @@ -1113,8 +1092,6 @@ static ir_mode *get_irn_op_mode(ir_node *node) return get_Load_mode(node); case iro_Store: return get_irn_mode(get_Store_value(node)); - case iro_DivMod: - return get_irn_mode(get_DivMod_left(node)); case iro_Div: return get_irn_mode(get_Div_left(node)); case iro_Mod: @@ -1135,7 +1112,7 @@ static ir_mode *get_irn_op_mode(ir_node *node) */ static void mark_address_calc(ir_node *node, void *env) { - graph_entry_t *graph = env; + graph_entry_t *graph = (graph_entry_t*)env; ir_mode *mode = get_irn_op_mode(node); int i, n; unsigned mark_preds = MARK_REF_NON_ADR; @@ -1181,7 +1158,7 @@ static void mark_address_calc(ir_node *node, void *env) */ static void count_adr_ops(ir_node *node, void *env) { - graph_entry_t *graph = env; + graph_entry_t *graph = (graph_entry_t*)env; unsigned mark = get_adr_mark(graph, node); if (mark & MARK_ADDRESS_CALC) @@ -1205,7 +1182,7 @@ static void update_graph_stat(graph_entry_t *global, graph_entry_t *graph) int i; /* clear first the alive counter in the graph */ - foreach_pset(graph->opcode_hash, entry) { + foreach_pset(graph->opcode_hash, node_entry_t*, entry) { cnt_clr(&entry->cnt_alive); } /* foreach_pset */ @@ -1249,7 +1226,7 @@ static void update_graph_stat(graph_entry_t *global, graph_entry_t *graph) graph->is_chain_call = 0; /* assume we walk every graph only ONCE, we could sum here the global count */ - foreach_pset(graph->opcode_hash, entry) { + foreach_pset(graph->opcode_hash, node_entry_t*, entry) { node_entry_t *g_entry = opcode_get_entry(entry->op, global->opcode_hash); /* update the node counter */ @@ -1364,7 +1341,7 @@ static void stat_dump_registered(graph_entry_t *entry) if (dumper->func_map) { dump_graph_FUNC func; - foreach_pset(dumper->func_map, func) + foreach_pset(dumper->func_map, dump_graph_FUNC, func) func(dumper, entry); } /* if */ } /* for */ @@ -1445,7 +1422,7 @@ void stat_register_dumper_func(dump_graph_FUNC func) for (dumper = status->dumper; dumper; dumper = dumper->next) { if (! dumper->func_map) dumper->func_map = pset_new_ptr(3); - pset_insert_ptr(dumper->func_map, func); + pset_insert_ptr(dumper->func_map, (void*)func); } /* for */ } /* stat_register_dumper_func */ @@ -1791,7 +1768,7 @@ static void stat_merge_nodes( xopt = HOOK_OPT_CONFIRM_C; } /* if */ - removed_due_opt(old_node_array[i], graph->opt_hash[xopt], xopt); + removed_due_opt(old_node_array[i], graph->opt_hash[xopt], (hook_opt_kind)xopt); } /* if */ } /* for */ } @@ -2134,7 +2111,7 @@ void stat_dump_snapshot(const char *name, const char *phase) { char fname[2048]; const char *p; - int l; + size_t l; if (! status->stat_options) return; @@ -2186,7 +2163,8 @@ void stat_dump_snapshot(const char *name, const char *phase) stat_dump_init(fname); /* calculate the graph statistics */ - for (entry = pset_first(status->irg_hash); entry; entry = pset_next(status->irg_hash)) { + for (entry = (graph_entry_t*)pset_first(status->irg_hash); + entry != NULL; entry = (graph_entry_t*)pset_next(status->irg_hash)) { if (entry->irg == NULL) { /* special entry for the global count */ continue; @@ -2199,13 +2177,14 @@ void stat_dump_snapshot(const char *name, const char *phase) /* some calculations are dependent, we pushed them on the wait_q */ while (! pdeq_empty(status->wait_q)) { - entry = pdeq_getr(status->wait_q); + entry = (graph_entry_t*)pdeq_getr(status->wait_q); update_graph_stat_2(global, entry); } /* while */ /* dump per graph */ - for (entry = pset_first(status->irg_hash); entry; entry = pset_next(status->irg_hash)) { + for (entry = (graph_entry_t*)pset_first(status->irg_hash); + entry != NULL; entry = (graph_entry_t*)pset_next(status->irg_hash)) { if (entry->irg == NULL) { /* special entry for the global count */ continue; @@ -2244,7 +2223,8 @@ void stat_dump_snapshot(const char *name, const char *phase) { node_entry_t *entry; - for (entry = pset_first(global->opcode_hash); entry; entry = pset_next(global->opcode_hash)) { + for (entry = (node_entry_t*)pset_first(global->opcode_hash); + entry != NULL; entry = (node_entry_t*)pset_next(global->opcode_hash)) { opcode_clear_entry(entry); } /* for */ /* clear all global counter */ @@ -2254,18 +2234,18 @@ void stat_dump_snapshot(const char *name, const char *phase) STAT_LEAVE; } /* stat_dump_snapshot */ -struct pass_t { +typedef struct pass_t { ir_prog_pass_t pass; const char *fname; const char *phase; -}; +} pass_t; /** * Wrapper to run stat_dump_snapshot() as a ir_prog wrapper. */ static int stat_dump_snapshot_wrapper(ir_prog *irp, void *context) { - struct pass_t *pass = context; + pass_t *pass = (pass_t*)context; (void)irp; stat_dump_snapshot(pass->fname, pass->phase); @@ -2296,7 +2276,7 @@ static void no_dump(ir_prog *prog, void *ctx, unsigned idx) ir_prog_pass_t *stat_dump_snapshot_pass( const char *name, const char *fname, const char *phase) { - struct pass_t *pass = XMALLOCZ(struct pass_t); + pass_t *pass = XMALLOCZ(pass_t); def_prog_pass_constructor( &pass->pass, name ? name : "stat_snapshot", stat_dump_snapshot_wrapper); @@ -2383,20 +2363,12 @@ void firm_init_stat(unsigned enable_options) _op_ModC.code = --num; _op_ModC.name = new_id_from_chars(X("ModC")); - _op_DivModC.code = --num; - _op_DivModC.name = new_id_from_chars(X("DivModC")); - - _op_QuotC.code = --num; - _op_QuotC.name = new_id_from_chars(X("QuotC")); - status->op_Phi0 = &_op_Phi0; status->op_PhiM = &_op_PhiM; status->op_ProjM = &_op_ProjM; status->op_MulC = &_op_MulC; status->op_DivC = &_op_DivC; status->op_ModC = &_op_ModC; - status->op_DivModC = &_op_DivModC; - status->op_QuotC = &_op_QuotC; } else { status->op_Phi0 = NULL; status->op_PhiM = NULL; @@ -2404,8 +2376,6 @@ void firm_init_stat(unsigned enable_options) status->op_MulC = NULL; status->op_DivC = NULL; status->op_ModC = NULL; - status->op_DivModC = NULL; - status->op_QuotC = NULL; } /* if */ /* for Florian: count the Sel depth */