#include "bejavacoal.h"
#include "bestatevent.h"
#include "beirg_t.h"
+#include "error.h"
-#ifdef WITH_LIBCORE
#include <libcore/lc_timing.h>
#include <libcore/lc_opts.h>
-#endif /* WITH_LIBCORE */
+#include <libcore/lc_opts_enum.h>
#define DUMP_BEFORE 1
#define DUMP_AFTER 2
static unsigned algo = CO_ALGO_HEUR2;
static int improve = 1;
-#ifdef WITH_LIBCORE
static const lc_opt_enum_mask_items_t dump_items[] = {
{ "before", DUMP_BEFORE },
{ "after", DUMP_AFTER },
}
BE_REGISTER_MODULE_CONSTRUCTOR(be_init_copycoal);
-#endif
-
#undef QUICK_AND_DIRTY_HACK
+static int nodes_interfere(const be_chordal_env_t *env, const ir_node *a, const ir_node *b)
+{
+ if(env->ifg)
+ return be_ifg_connected(env->ifg, a, b);
+ else
+ return values_interfere(env->birg->lv, a, b);
+}
+
+
/******************************************************************************
_____ _
/ ____| | |
*/
+static FILE *my_open(const be_chordal_env_t *env, const char *prefix, const char *suffix)
+{
+ FILE *result;
+ char buf[1024];
+
+ ir_snprintf(buf, sizeof(buf), "%s%F_%s%s", prefix, env->irg, env->cls->name, suffix);
+ result = fopen(buf, "wt");
+ if(result == NULL) {
+ panic("Couldn't open '%s' for writing.", buf);
+ }
+
+ return result;
+}
+
void co_driver(be_chordal_env_t *cenv)
{
-#ifdef WITH_LIBCORE
lc_timer_t *timer = lc_timer_register("firm.be.copyopt", "runtime");
-#endif
co_complete_stats_t before, after;
copy_opt_t *co;
co_algo_t *algo_func;
/* Dump the interference graph in Appel's format. */
if(dump_flags & DUMP_APPEL) {
- FILE *f = be_chordal_open(cenv, "", ".apl");
+ FILE *f = my_open(cenv, "", ".apl");
co_dump_appel_graph(co, f);
fclose(f);
}
if(dump_flags & DUMP_BEFORE) {
- FILE *f = be_chordal_open(cenv, "", "-before.dot");
+ FILE *f = my_open(cenv, "", "-before.dot");
co_dump_ifg_dot(co, f, style_flags);
fclose(f);
}
algo_func = algos[algo].algo;
-#ifdef WITH_LIBCORE
lc_timer_reset_and_start(timer);
-#endif
was_optimal = algo_func(co);
-#ifdef WITH_LIBCORE
lc_timer_stop(timer);
be_stat_ev("co_time", lc_timer_elapsed_msec(timer));
-#endif
be_stat_ev_ull("co_optimal", was_optimal);
if(dump_flags & DUMP_AFTER) {
- FILE *f = be_chordal_open(cenv, "", "-after.dot");
+ FILE *f = my_open(cenv, "", "-after.dot");
co_dump_ifg_dot(co, f, style_flags);
fclose(f);
}