-#include "bemodule.h"
-
-DEBUG_ONLY(static firm_dbg_module_t *dbg = NULL;)
-
-#define REMAT_COST_INFINITE 1000
-
-typedef struct reloader_t reloader_t;
-struct reloader_t {
- reloader_t *next;
- ir_node *can_spill_after;
- ir_node *reloader;
- ir_node *rematted_node;
- int remat_cost_delta; /** costs needed for rematerialization,
- compared to placing a reload */
-};
-
-typedef struct spill_info_t spill_info_t;
-struct spill_info_t {
- ir_node *to_spill; /**< the value that should get spilled */
- reloader_t *reloaders; /**< list of places where the value should get
- reloaded */
- ir_node *spill; /**< the spill node, or a PhiM node */
- ir_node *old_spill; /**< if we had the value of a phi spilled before but
- not the phi itself then this field contains the
- spill for the phi value */
- const arch_register_class_t *reload_cls; /** the register class in which the
- reload should be placed */
-};
-
-struct spill_env_t {
- const arch_env_t *arch_env;
- ir_graph *irg;
- struct obstack obst;
- be_irg_t *birg;
- int spill_cost; /**< the cost of a single spill node */
- int reload_cost; /**< the cost of a reload node */
- set *spills; /**< all spill_info_t's, which must be
- placed */
- ir_nodeset_t mem_phis; /**< set of all spilled phis. */
- ir_exec_freq *exec_freq;
-
-#ifdef FIRM_STATISTICS
- unsigned spill_count;
- unsigned reload_count;
- unsigned remat_count;
- unsigned spilled_phi_count;
-#endif
-};
-
-/**
- * Compare two spill infos.
- */
-static
-int cmp_spillinfo(const void *x, const void *y, size_t size)
-{
- const spill_info_t *xx = x;
- const spill_info_t *yy = y;
- (void) size;
-
- return xx->to_spill != yy->to_spill;
-}
-
-/**
- * Returns spill info for a specific value (the value that is to be spilled)
- */
-static
-spill_info_t *get_spillinfo(const spill_env_t *env, ir_node *value)
-{
- spill_info_t info, *res;
- int hash = nodeset_hash(value);
-
- info.to_spill = value;
- res = set_find(env->spills, &info, sizeof(info), hash);
-
- if (res == NULL) {
- info.reloaders = NULL;
- info.spill = NULL;
- info.old_spill = NULL;
- info.reload_cls = NULL;
- res = set_insert(env->spills, &info, sizeof(info), hash);
- }
-
- return res;
-}
-
-spill_env_t *be_new_spill_env(be_irg_t *birg)
-{
- const arch_env_t *arch_env = birg->main_env->arch_env;
-
- spill_env_t *env = xmalloc(sizeof(env[0]));
- env->spills = new_set(cmp_spillinfo, 1024);
- env->irg = be_get_birg_irg(birg);
- env->birg = birg;
- env->arch_env = arch_env;
- ir_nodeset_init(&env->mem_phis);
- env->spill_cost = arch_env->isa->spill_cost;
- env->reload_cost = arch_env->isa->reload_cost;
- env->exec_freq = be_get_birg_exec_freq(birg);
- obstack_init(&env->obst);
-
-#ifdef FIRM_STATISTICS
- env->spill_count = 0;
- env->reload_count = 0;
- env->remat_count = 0;
- env->spilled_phi_count = 0;
-#endif
-
- return env;
-}
-
-void be_delete_spill_env(spill_env_t *env)
-{
- del_set(env->spills);
- ir_nodeset_destroy(&env->mem_phis);
- obstack_free(&env->obst, NULL);
- free(env);
-}
-
-/*
- * ____ _ ____ _ _
- * | _ \| | __ _ ___ ___ | _ \ ___| | ___ __ _ __| |___
- * | |_) | |/ _` |/ __/ _ \ | |_) / _ \ |/ _ \ / _` |/ _` / __|
- * | __/| | (_| | (_| __/ | _ < __/ | (_) | (_| | (_| \__ \
- * |_| |_|\__,_|\___\___| |_| \_\___|_|\___/ \__,_|\__,_|___/
- *
- */
-
-void be_add_remat(spill_env_t *env, ir_node *to_spill, ir_node *before,
- ir_node *rematted_node)
-{
- spill_info_t *spill_info;
- reloader_t *reloader;
-
- spill_info = get_spillinfo(env, to_spill);
-
- /* add the remat information */
- reloader = obstack_alloc(&env->obst, sizeof(reloader[0]));
- reloader->next = spill_info->reloaders;
- reloader->reloader = before;
- reloader->rematted_node = rematted_node;
- reloader->remat_cost_delta = 0; /* We will never have a cost win over a
- reload since we're not even allowed to
- create a reload */
-
- spill_info->reloaders = reloader;
-
- DBG((dbg, LEVEL_1, "creating spillinfo for %+F, will be rematerialized before %+F\n",
- to_spill, before));
-}
-
-void be_add_reload2(spill_env_t *env, ir_node *to_spill, ir_node *before, ir_node *can_spill_after,
- const arch_register_class_t *reload_cls, int allow_remat)
-{
- spill_info_t *info;
- reloader_t *rel;
-
- info = get_spillinfo(env, to_spill);
-
- if (is_Phi(to_spill)) {
- int i, arity;
-
- /* create spillinfos for the phi arguments */
- for (i = 0, arity = get_irn_arity(to_spill); i < arity; ++i) {
- ir_node *arg = get_irn_n(to_spill, i);
- get_spillinfo(env, arg);
- }
-
-#if 1
- /* hackery... sometimes the morgan algo spilled the value of a phi,
- * the belady algo decides later to spill the whole phi, then sees the
- * spill node and adds a reload for that spill node, problem is the
- * reload gets attach to that same spill (and is totally unnecessary)
- */
- if (info->old_spill != NULL &&
- (before == info->old_spill || value_dominates(before, info->old_spill)))
- {
- printf("spilledphi hack was needed...\n");
- before = sched_next(info->old_spill);
- }
-#endif
- }