From: Christian Würdig Date: Thu, 16 Mar 2006 14:22:55 +0000 (+0000) Subject: changed to dump wrapper X-Git-Url: http://nsz.repo.hu/git/?a=commitdiff_plain;h=30b5d43593b9621728ff616b0bb351f000c6d8e3;p=libfirm changed to dump wrapper --- diff --git a/ir/be/bechordal.c b/ir/be/bechordal.c index 55b0878e1..cc9ee8730 100644 --- a/ir/be/bechordal.c +++ b/ir/be/bechordal.c @@ -801,7 +801,7 @@ void be_ra_chordal_color(be_chordal_env_t *chordal_env) if(chordal_env->opts->dump_flags & BE_CH_DUMP_CONSTR) { snprintf(buf, sizeof(buf), "-%s-constr", chordal_env->cls->name); - dump_ir_block_graph_sched(chordal_env->irg, buf); + be_dump(chordal_env->irg, buf, dump_ir_block_graph_sched); } be_numbering(irg); diff --git a/ir/be/bechordal_main.c b/ir/be/bechordal_main.c index ad061b214..1dcf11da0 100644 --- a/ir/be/bechordal_main.c +++ b/ir/be/bechordal_main.c @@ -240,11 +240,11 @@ static void dump(unsigned mask, ir_graph *irg, if(cls) { char buf[256]; snprintf(buf, sizeof(buf), "-%s%s", cls->name, suffix); - dump_func(irg, buf); + be_dump(irg, buf, dump_func); } else - dump_func(irg, suffix); + be_dump(irg, suffix, dump_func); } } diff --git a/ir/be/bemain.c b/ir/be/bemain.c index 17b486d60..e45237cdb 100644 --- a/ir/be/bemain.c +++ b/ir/be/bemain.c @@ -204,7 +204,7 @@ static void dump(int mask, ir_graph *irg, const char *suffix, void (*dumper)(ir_graph *, const char *)) { if(dump_flags & mask) - dumper(irg, suffix); + be_dump(irg, suffix, dumper); } static void prepare_graph(be_irg_t *birg) @@ -293,6 +293,8 @@ static void be_main_loop(FILE *file_handle) /* add Keeps for should_be_different constrained nodes */ assure_constraints(&birg); + dump(DUMP_PREPARED, irg, "-assured", dump_ir_block_graph); + /* Schedule the graphs. */ arch_code_generator_before_sched(birg.cg); list_sched(env.arch_env, irg); diff --git a/ir/be/beraextern.c b/ir/be/beraextern.c index 922235e05..c55327a57 100644 --- a/ir/be/beraextern.c +++ b/ir/be/beraextern.c @@ -939,11 +939,11 @@ static void be_ra_extern_main(const be_irg_t *bi) { /* Insert copies for constraints */ handle_constraints(&raenv); - dump_ir_block_graph_sched(irg, "-extern-constr"); + be_dump(irg, "-extern-constr", dump_ir_block_graph_sched); /* SSA destruction respectively transformation into "Conventional SSA" */ ssa_destr(&raenv); - dump_ir_block_graph_sched(irg, "-extern-ssadestr"); + be_dump(irg, "-extern-ssadestr", dump_ir_block_graph_sched); /* Mapping of SSA-Values <--> Variables */ phi_class_compute(irg); @@ -971,7 +971,7 @@ static void be_ra_extern_main(const be_irg_t *bi) { done = read_and_apply_results(&raenv, in); ir_snprintf(in, sizeof(in), "-extern-%s-round-%d", raenv.cls->name, round); - dump_ir_block_graph_sched(irg, in); + be_dump(irg, in, dump_ir_block_graph_sched); round++; } while (!done); @@ -981,7 +981,7 @@ static void be_ra_extern_main(const be_irg_t *bi) { free(raenv.cls_vars); } - dump_ir_block_graph_sched(irg, "-extern-alloc"); + be_dump(irg, "-extern-alloc", dump_ir_block_graph_sched); /* Clean up */ set_foreach(raenv.vars, vi) diff --git a/ir/be/bessadestr.c b/ir/be/bessadestr.c index 622beb0b3..ca00cc59c 100644 --- a/ir/be/bessadestr.c +++ b/ir/be/bessadestr.c @@ -305,7 +305,7 @@ void be_ssa_destruction(be_chordal_env_t *chordal_env) { DBG((dbg, LEVEL_1, "Placing perms...\n")); irg_block_walk_graph(irg, insert_all_perms_walker, NULL, chordal_env); #ifdef DUMP_GRAPHS - dump_ir_block_graph_sched(irg, "-ssa_destr_perms_placed"); + be_dump(irg, "-ssa_destr_perms_placed", dump_ir_block_graph_sched); #endif be_liveness(irg); @@ -313,7 +313,7 @@ void be_ssa_destruction(be_chordal_env_t *chordal_env) { DBG((dbg, LEVEL_1, "Setting regs and placing dupls...\n")); irg_block_walk_graph(irg, set_regs_or_place_dupls_walker, NULL, chordal_env); #ifdef DUMP_GRAPHS - dump_ir_block_graph_sched(irg, "-ssa_destr_regs_set"); + be_dump(irg, "-ssa_destr_regs_set", dump_ir_block_graph_sched); #endif pmap_destroy(perm_map);