/*
- * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved.
+ * Copyright (C) 1995-2011 University of Karlsruhe. All right reserved.
*
* This file is part of libFirm.
*
processing a block. */
static be_uses_t *uses; /**< env for the next-use magic */
static ir_node *instr; /**< current instruction */
-static unsigned instr_nr; /**< current instruction number
- (relative to block start) */
static spill_env_t *senv; /**< see bespill.h */
static ir_node **blocklist;
/**
* @return The distance to the next use or 0 if irn has dont_spill flag set
*/
-static unsigned get_distance(ir_node *from, unsigned from_step,
- const ir_node *def, int skip_from_uses)
+static unsigned get_distance(ir_node *from, const ir_node *def, int skip_from_uses)
{
be_next_use_t use;
unsigned costs;
assert(!arch_irn_is_ignore(def));
- use = be_get_next_use(uses, from, from_step, def, skip_from_uses);
+ use = be_get_next_use(uses, from, def, skip_from_uses);
time = use.time;
if (USES_IS_INFINITE(time))
return USES_INFINITY;
/* calculate current next-use distance for live values */
for (i = 0; i < len; ++i) {
ir_node *val = workset_get_val(ws, i);
- unsigned dist = get_distance(instr, instr_nr, val, !is_usage);
+ unsigned dist = get_distance(instr, val, !is_usage);
workset_set_time(ws, i, dist);
}
return loc;
}
- next_use = be_get_next_use(uses, first, 0, node, 0);
+ next_use = be_get_next_use(uses, first, node, 0);
if (USES_IS_INFINITE(next_use.time)) {
/* the nodes marked as live in shouldn't be dead, so it must be a phi */
assert(is_Phi(node));
/* process the block from start to end */
DB((dbg, DBG_WSETS, "Processing...\n"));
- instr_nr = 0;
/* TODO: this leaks (into the obstack)... */
new_vals = new_workset();
workset_insert(new_vals, value, false);
);
displace(new_vals, 0);
-
- instr_nr++;
}
/* Remember end-workset for this block */
/*
- * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved.
+ * Copyright (C) 1995-2011 University of Karlsruhe. All right reserved.
*
* This file is part of libFirm.
*
continue;
DBG((dbg, LEVEL_2, "\t...checking %+F\n", node));
- next_use = be_get_next_use(env->uses, first, 0, node, 0);
+ next_use = be_get_next_use(env->uses, first, node, 0);
if (USES_IS_INFINITE(next_use.time)) {
DBG((dbg, LEVEL_2, "\tnot taken (dead)\n"));
continue;
DBG((dbg, LEVEL_2, "\t...checking %+F\n", node));
- next_use = be_get_next_use(env->uses, first, 0, node, 0);
+ next_use = be_get_next_use(env->uses, first, node, 0);
if (USES_IS_INFINITE(next_use.time)) {
DBG((dbg, LEVEL_2, "\tnot taken (dead)\n"));
/*
- * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved.
+ * Copyright (C) 1995-2011 University of Karlsruhe. All right reserved.
*
* This file is part of libFirm.
*
const ir_node *node;
int outermost_loop;
unsigned next_use;
- unsigned visited;
+ ir_visited_t visited;
} be_use_t;
+/**
+ * The "uses" environment.
+ */
struct be_uses_t {
- set *uses;
- ir_graph *irg;
- const be_lv_t *lv;
- unsigned visited_counter;
- DEBUG_ONLY(firm_dbg_module_t *dbg;)
+ set *uses; /**< cache: contains all computed uses so far. */
+ ir_graph *irg; /**< the graph for this environment. */
+ const be_lv_t *lv; /**< the liveness for the graph. */
+ ir_visited_t visited_counter; /**< current search counter. */
+ DEBUG_ONLY(firm_dbg_module_t *dbg; /**< debug module for debug messages. */)
};
+/**
+ * Set-compare two uses.
+ */
static int cmp_use(const void *a, const void *b, size_t n)
{
const be_use_t *p = (const be_use_t*)a;
}
static be_next_use_t get_next_use(be_uses_t *env, ir_node *from,
- unsigned from_step, const ir_node *def,
- int skip_from_uses);
+ const ir_node *def, int skip_from_uses);
+/**
+ * Return the use for the given definition in the given block if exists,
+ * else create it.
+ *
+ * @param env the uses environment
+ * @param block the block we search the use in
+ * @param def the definition of the value we are searching
+ */
static const be_use_t *get_or_set_use_block(be_uses_t *env,
const ir_node *block,
const ir_node *def)
be_next_use_t next_use;
result->visited = env->visited_counter;
- next_use = get_next_use(env, sched_first(block), 0, def, 0);
+ next_use = get_next_use(env, sched_first(block), def, 0);
if (next_use.outermost_loop >= 0) {
result->next_use = next_use.time;
result->outermost_loop = next_use.outermost_loop;
- DBG((env->dbg, LEVEL_5, "Setting nextuse of %+F in block %+F to %u (outermostloop %d)\n", def, block, result->next_use, result->outermost_loop));
+ DBG((env->dbg, LEVEL_5, "Setting nextuse of %+F in block %+F to %u (outermostloop %d)\n",
+ def, block, result->next_use, result->outermost_loop));
}
}
return result;
}
+/**
+ * Check if a value of the given definition is used in the given block
+ * as a Phi argument.
+ *
+ * @param block the block to check
+ * @param def the definition of the value
+ *
+ * @return non-zero if the value is used in the given block as a Phi argument
+ * in one of its successor blocks.
+ */
static int be_is_phi_argument(const ir_node *block, const ir_node *def)
{
ir_node *node;
succ_block = get_first_block_succ(block);
arity = get_Block_n_cfgpreds(succ_block);
- if (arity <= 1)
+ if (arity <= 1) {
+ /* no Phis in the successor */
return 0;
+ }
+ /* find the index of block in its successor */
for (i = 0; i < arity; ++i) {
if (get_Block_cfgpred_block(succ_block, i) == block)
break;
}
assert(i < arity);
+ /* iterate over the Phi nodes in the successor and check if def is
+ * one of its arguments */
sched_foreach(succ_block, node) {
ir_node *arg;
- if (!is_Phi(node))
+ if (!is_Phi(node)) {
+ /* found first non-Phi node, we can stop the search here */
break;
+ }
arg = get_irn_n(node, i);
if (arg == def)
set_irn_link(node, INT_TO_PTR(step));
}
+/**
+ * Find the next use of a value defined by def, starting at node from.
+ *
+ * @param env the uses environment
+ * @param from the node at which we should start the search
+ * @param def the definition of the value
+ * @param skip_from_uses if non-zero, ignore from uses
+ */
static be_next_use_t get_next_use(be_uses_t *env, ir_node *from,
- unsigned from_step, const ir_node *def,
- int skip_from_uses)
+ const ir_node *def, int skip_from_uses)
{
- unsigned step = from_step;
+ unsigned step;
ir_node *block = get_nodes_block(from);
ir_node *next_use;
ir_node *node;
}
be_next_use_t be_get_next_use(be_uses_t *env, ir_node *from,
- unsigned from_step, const ir_node *def,
- int skip_from_uses)
+ const ir_node *def, int skip_from_uses)
{
- env->visited_counter++;
- return get_next_use(env, from, from_step, def, skip_from_uses);
+ ++env->visited_counter;
+ return get_next_use(env, from, def, skip_from_uses);
}
/**
/*
- * Copyright (C) 1995-2008 University of Karlsruhe. All right reserved.
+ * Copyright (C) 1995-2011 University of Karlsruhe. All right reserved.
*
* This file is part of libFirm.
*
#include "firm_types.h"
#include "belive.h"
+/**
+ * Describes a use of a value.
+ */
typedef struct be_next_use_t {
unsigned time;
int outermost_loop;
typedef struct be_uses_t be_uses_t;
be_next_use_t be_get_next_use(be_uses_t *uses, ir_node *from,
- unsigned from_step, const ir_node *def,
- int skip_from_uses);
+ const ir_node *def, int skip_from_uses);
+/**
+ * Creates a new uses environment for a graph.
+ *
+ * @param irg the graph
+ * @param lv liveness information for the graph
+ */
be_uses_t *be_begin_uses(ir_graph *irg, const be_lv_t *lv);
+/**
+ * Destroys the given uses environment.
+ *
+ * @param uses the environment
+ */
void be_end_uses(be_uses_t *uses);
#endif /* FIRM_BE_BEUSES_H */