*
*/
#ifdef HAVE_CONFIG_H
-#include <config.h>
-#endif
-
-#ifdef HAVE_ALLOCA_H
-#include <alloca.h>
-#endif
-
-#ifdef HAVE_MALLOC_H
-#include <malloc.h>
+#include "config.h"
#endif
#include "obst.h"
#include "iredges_t.h"
#include "ircons_t.h"
#include "irprintf.h"
+#include "xmalloc.h"
#include "beutil.h"
-#include "bearch.h"
+#include "bearch_t.h"
#include "bespillbelady.h"
#include "beuses_t.h"
#include "besched_t.h"
assert(is_Phi(node));
loc.time = USES_INFINITY;
DBG((dbg, DBG_START, " %+F not taken (dead)\n", node));
+ if(is_Phi(node)) {
+ be_spill_phi(env->senv, node);
+ }
return loc;
}
ARR_APP1(loc_t, delayed, loc);
else
ARR_APP1(loc_t, starters, loc);
- } else {
- be_spill_phi(env->senv, irn);
}
}
}
pressure = be_get_loop_pressure(env->loop_ana, env->cls, loop);
- assert(ARR_LEN(delayed) <= pressure);
+ assert(ARR_LEN(delayed) <= (signed)pressure);
free_slots = env->n_regs - ARR_LEN(starters);
free_pressure_slots = env->n_regs - (pressure - ARR_LEN(delayed));
free_slots = MIN(free_slots, free_pressure_slots);
}
}
-void be_spill_belady(be_irg_t *birg, const arch_register_class_t *cls) {
+/**
+ * Do spilling for a register class on a graph using the belady heuristic.
+ * In the transformed graph, the register pressure never exceeds the number
+ * of available registers.
+ *
+ * @param birg The backend graph
+ * @param cls The register class to spill
+ */
+static void be_spill_belady(be_irg_t *birg, const arch_register_class_t *cls) {
be_spill_belady_spill_env(birg, cls, NULL);
}
void be_spill_belady_spill_env(be_irg_t *birg, const arch_register_class_t *cls, spill_env_t *spill_env) {
belady_env_t env;
ir_graph *irg = be_get_birg_irg(birg);
+ int n_regs;
+
+ /* some special classes contain only ignore regs, nothing to do then */
+ n_regs = cls->n_regs - be_put_ignore_regs(birg, cls, NULL);
+ if(n_regs == 0)
+ return;
be_invalidate_liveness(birg);
be_assure_liveness(birg);
env.arch = birg->main_env->arch_env;
env.cls = cls;
env.lv = be_get_birg_liveness(birg);
- env.n_regs = env.cls->n_regs - be_put_ignore_regs(birg, cls, NULL);
+ env.n_regs = n_regs;
env.ws = new_workset(&env, &env.ob);
env.uses = be_begin_uses(irg, env.lv);
env.loop_ana = be_new_loop_pressure(birg);