-#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 *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);