+/**
+ * Perform things which need to be done per register class before spilling.
+ */
+static void pre_spill(const arch_isa_t *isa, int cls_idx, post_spill_env_t *pse) {
+ be_chordal_env_t *chordal_env = &pse->cenv;
+ be_irg_t *birg = pse->birg;
+ node_stat_t node_stat;
+
+ pse->cls = arch_isa_get_reg_class(isa, cls_idx);
+ chordal_env->cls = pse->cls;
+ chordal_env->border_heads = pmap_create();
+ chordal_env->ignore_colors = bitset_malloc(chordal_env->cls->n_regs);
+
+#ifdef FIRM_STATISTICS
+ if (be_stat_ev_is_active()) {
+ be_stat_tags[STAT_TAG_CLS] = pse->cls->name;
+ be_stat_ev_push(be_stat_tags, STAT_TAG_LAST, be_stat_file);
+
+ /* perform some node statistics. */
+ node_stats(birg, pse->cls, &node_stat);
+ be_stat_ev("phis_before_spill", node_stat.n_phis);
+ }
+#endif /* FIRM_STATISTICS */
+
+ /* put all ignore registers into the ignore register set. */
+ be_put_ignore_regs(birg, pse->cls, chordal_env->ignore_colors);
+
+ be_pre_spill_prepare_constr(chordal_env);
+ dump(BE_CH_DUMP_CONSTR, birg->irg, pse->cls, "-constr-pre", dump_ir_block_graph_sched);
+
+#ifdef FIRM_STATISTICS
+ if (be_stat_ev_is_active()) {
+ pse->pre_spill_cost = be_estimate_irg_costs(birg->irg,
+ birg->main_env->arch_env, birg->exec_freq);
+ }
+#endif /* FIRM_STATISTICS */
+}
+
+/**
+ * Perform things which need to be done per register class after spilling.
+ */
+static void post_spill(post_spill_env_t *pse, int iteration) {
+ be_chordal_env_t *chordal_env = &pse->cenv;
+ be_irg_t *birg = pse->birg;
+ ir_graph *irg = birg->irg;
+ const be_main_env_t *main_env = birg->main_env;
+ be_options_t *main_opts = main_env->options;
+ static int splitted = 0;
+ node_stat_t node_stat;
+
+#ifdef FIRM_STATISTICS
+ if (be_stat_ev_is_active()) {
+ double spillcosts = be_estimate_irg_costs(irg, main_env->arch_env, birg->exec_freq) - pse->pre_spill_cost;
+
+ be_stat_ev_l("spillcosts", (long) spillcosts);
+
+ node_stats(birg, pse->cls, &node_stat);
+ be_stat_ev("phis_after_spill", node_stat.n_phis);
+ be_stat_ev("mem_phis", node_stat.n_mem_phis);
+ be_stat_ev("reloads", node_stat.n_reloads);
+ be_stat_ev("spills", node_stat.n_spills);
+ }
+#endif /* FIRM_STATISTICS */
+
+ /*
+ If we have a backend provided spiller, post spill is
+ called in a loop after spilling for each register class.
+ But we only need to fix stack nodes once in this case.
+ */
+ if (iteration == 0) {
+ check_for_memory_operands(chordal_env);
+ be_abi_fix_stack_nodes(birg->abi, birg->lv);
+ }
+
+ BE_TIMER_PUSH(ra_timer.t_verify);
+
+ /* verify schedule and register pressure */
+ if (chordal_env->opts->vrfy_option == BE_CH_VRFY_WARN) {
+ be_verify_schedule(irg);
+ be_verify_register_pressure(birg, pse->cls, irg);
+ }
+ else if (chordal_env->opts->vrfy_option == BE_CH_VRFY_ASSERT) {
+ assert(be_verify_schedule(irg) && "Schedule verification failed");
+ assert(be_verify_register_pressure(birg, pse->cls, irg)
+ && "Register pressure verification failed");
+ }
+ BE_TIMER_POP(ra_timer.t_verify);
+
+ if (be_elr_split && ! splitted) {
+ extreme_liverange_splitting(chordal_env);
+ splitted = 1;
+ }
+
+ /* Color the graph. */
+ BE_TIMER_PUSH(ra_timer.t_color);
+ be_ra_chordal_color(chordal_env);
+ BE_TIMER_POP(ra_timer.t_color);
+
+ dump(BE_CH_DUMP_CONSTR, irg, pse->cls, "-color", dump_ir_block_graph_sched);
+
+ /* Create the ifg with the selected flavor */
+ BE_TIMER_PUSH(ra_timer.t_ifg);
+ chordal_env->ifg = be_create_ifg(chordal_env);
+ BE_TIMER_POP(ra_timer.t_ifg);
+
+#ifdef FIRM_STATISTICS
+ if (be_stat_ev_is_active()) {
+ be_ifg_stat_t stat;
+
+ be_ifg_stat(birg, chordal_env->ifg, &stat);
+ be_stat_ev("ifg_nodes", stat.n_nodes);
+ be_stat_ev("ifg_edges", stat.n_edges);
+ be_stat_ev("ifg_comps", stat.n_comps);
+
+ node_stats(birg, pse->cls, &node_stat);
+ be_stat_ev("perms_before_coal", node_stat.n_perms);
+ be_stat_ev("copies_before_coal", node_stat.n_copies);
+ }
+#endif /* FIRM_STATISTICS */
+
+ /* copy minimization */
+ BE_TIMER_PUSH(ra_timer.t_copymin);
+ co_driver(chordal_env);
+ BE_TIMER_POP(ra_timer.t_copymin);
+
+ dump(BE_CH_DUMP_COPYMIN, irg, pse->cls, "-copymin", dump_ir_block_graph_sched);
+
+ BE_TIMER_PUSH(ra_timer.t_ssa);
+
+ /* ssa destruction */
+ be_ssa_destruction(chordal_env);
+
+ BE_TIMER_POP(ra_timer.t_ssa);
+
+ dump(BE_CH_DUMP_SSADESTR, irg, pse->cls, "-ssadestr", dump_ir_block_graph_sched);
+
+ BE_TIMER_PUSH(ra_timer.t_verify);
+ if (chordal_env->opts->vrfy_option != BE_CH_VRFY_OFF) {
+ be_ssa_destruction_check(chordal_env);
+ }
+ BE_TIMER_POP(ra_timer.t_verify);
+
+ /* free some data structures */
+ be_ifg_free(chordal_env->ifg);
+ pmap_destroy(chordal_env->border_heads);
+ bitset_free(chordal_env->ignore_colors);
+
+#ifdef FIRM_STATISTICS
+ if (be_stat_ev_is_active()) {
+ node_stats(birg, pse->cls, &node_stat);
+ be_stat_ev("perms_after_coal", node_stat.n_perms);
+ be_stat_ev("copies_after_coal", node_stat.n_copies);
+ be_stat_ev_pop();
+ }
+#endif /* FIRM_STATISTICS */
+}
+
+/**
+ * Performs chordal register allocation for each register class on given irg.
+ *
+ * @param birg Backend irg object
+ * @return Structure containing timer for the single phases or NULL if no timing requested.
+ */
+static void be_ra_chordal_main(be_irg_t *birg)
+{
+ const be_main_env_t *main_env = birg->main_env;
+ const arch_isa_t *isa = arch_env_get_isa(main_env->arch_env);
+ ir_graph *irg = birg->irg;
+ be_options_t *main_opts = main_env->options;
+ int j, m;
+ be_chordal_env_t chordal_env;
+
+ BE_TIMER_INIT(main_opts);
+ BE_TIMER_PUSH(ra_timer.t_other);
+ BE_TIMER_PUSH(ra_timer.t_prolog);
+
+ be_assure_dom_front(birg);
+ be_assure_liveness(birg);
+
+ chordal_env.opts = &options;
+ chordal_env.irg = irg;
+ chordal_env.birg = birg;