-/**
- * Annotate the register pressure to the nodes and compute
- * the liveness intervals.
- * @param block The block to do it for.
- * @param env_ptr The environment.
- */
-static void pressure(ir_node *block, void *env_ptr)
-{
-/* Convenience macro for a def */
-#define border_def(irn, step, real) \
- border_add(env, head, irn, step, pressure--, 1, real)
-
-/* Convenience macro for a use */
-#define border_use(irn, step, real) \
- border_add(env, head, irn, step, ++pressure, 0, real)
-
- be_chordal_alloc_env_t *alloc_env = env_ptr;
- be_chordal_env_t *env = alloc_env->chordal_env;
- bitset_t *live = alloc_env->live;
- firm_dbg_module_t *dbg = env->dbg;
- ir_node *irn;
-
- int i, n;
- unsigned step = 0;
- unsigned pressure = 0;
- struct list_head *head;
- pset *live_in = put_live_in(block, pset_new_ptr_default());
- pset *live_end = put_live_end(block, pset_new_ptr_default());
-
- DBG((dbg, LEVEL_1, "Computing pressure in block %+F\n", block));
- bitset_clear_all(live);
-
- /* Set up the border list in the block info */
- head = obstack_alloc(&env->obst, sizeof(*head));
- INIT_LIST_HEAD(head);
- assert(pmap_get(env->border_heads, block) == NULL);
- pmap_insert(env->border_heads, block, head);
-
- /*
- * Make final uses of all values live out of the block.
- * They are necessary to build up real intervals.
- */
- for(irn = pset_first(live_end); irn; irn = pset_next(live_end)) {
- if(has_reg_class(env, irn)) {
- DBG((dbg, LEVEL_3, "\tMaking live: %+F/%d\n", irn, get_irn_graph_nr(irn)));
- bitset_set(live, get_irn_graph_nr(irn));
- border_use(irn, step, 0);
- }
- }
- ++step;
-
- /*
- * Determine the last uses of a value inside the block, since they are
- * relevant for the interval borders.
- */
- sched_foreach_reverse(block, irn) {
- DBG((dbg, LEVEL_1, "\tinsn: %+F, pressure: %d\n", irn, pressure));
- DBG((dbg, LEVEL_2, "\tlive: %b\n", live));
-
- /*
- * If the node defines some value, which can put into a
- * register of the current class, make a border for it.
- */
- if(has_reg_class(env, irn)) {
- int nr = get_irn_graph_nr(irn);
-
- bitset_clear(live, nr);
- border_def(irn, step, 1);
- }
-
- /*
- * If the node is no phi node we can examine the uses.
- */
- if(!is_Phi(irn)) {
- for(i = 0, n = get_irn_arity(irn); i < n; ++i) {
- ir_node *op = get_irn_n(irn, i);
-
- if(has_reg_class(env, op)) {
- int nr = get_irn_graph_nr(op);
-
- DBG((dbg, LEVEL_4, "\t\tpos: %d, use: %+F\n", i, op));
-
- if(!bitset_is_set(live, nr)) {
- border_use(op, step, 1);
- bitset_set(live, nr);
- }
- }
- }
- }
- ++step;
- }
-
- /*
- * Add initial defs for all values live in.
- */
- for(irn = pset_first(live_in); irn; irn = pset_next(live_in)) {
- if(has_reg_class(env, irn)) {
-
- /* Mark the value live in. */
- bitset_set(live, get_irn_graph_nr(irn));
-
- /* Add the def */
- border_def(irn, step, 0);
- }
- }
-
-
- del_pset(live_in);
- del_pset(live_end);
-}
-