adapted (some parts) to abi changes

[libfirm] / ir / be / belower.c

diff --git a/ir/be/belower.c b/ir/be/belower.c
index 8064401..ac713af 100644 (file)
--- a/ir/be/belower.c
+++ b/ir/be/belower.c
@@ -463,6 +463,62 @@ static void lower_perm_node(ir_node *irn, void *walk_env) {
 
 
 
+/**
+ * Checks if node has a should_be_different constraint in output
+ * and adds a Keep then to assure the constraint.
+ */
+static void assure_different_constraint(ir_node *irn, be_irg_t *birg) {
+       const arch_env_t          *arch_env = birg->main_env->arch_env;
+       const arch_register_req_t *req;
+       arch_register_req_t        req_temp;
+       ir_node                   *in[2], *keep;
+       firm_dbg_module_t         *mod = firm_dbg_register("firm.be.lower");
+
+       req = arch_get_register_req(arch_env, &req_temp, irn, -1);
+
+       if (req && arch_register_req_is(req, should_be_different)) {
+               /* We found a should_be_different constraint. */
+               assert(req->other_different && "missing irn for constraint");
+
+               in[0] = irn;
+               in[1] = req->other_different;
+
+               keep = be_new_Keep(req->cls, birg->irg, get_nodes_block(irn), 2, in);
+               DBG((mod, LEVEL_1, "created %+F for %+F to assure should_be_different\n", keep, irn));
+       }
+}
+
+
+
+/**
+ * Calls the functions to assure register constraints.
+ *
+ * @param irn      The node to be checked for lowering
+ * @param walk_env The walker environment
+ */
+static void assure_constraints_walker(ir_node *irn, void *walk_env) {
+       if (is_Block(irn))
+               return;
+
+       if (mode_is_datab(get_irn_mode(irn)))
+               assure_different_constraint(irn, walk_env);
+
+       return;
+}
+
+
+
+/**
+ * Walks over all nodes to assure register constraints.
+ *
+ * @param birg  The birg structure containing the irg
+ */
+void assure_constraints(be_irg_t *birg) {
+       irg_walk_blkwise_graph(birg->irg, NULL, assure_constraints_walker, birg);
+}
+
+
+
 /**
  * Calls the corresponding lowering function for the node.
  *
@@ -486,7 +542,7 @@ static void lower_nodes_after_ra_walker(ir_node *irn, void *walk_env) {
 
 /**
  * Walks over all blocks in an irg and performs lowering need to be
- * done after register allocation (e.g. perm and spill/reload lowering).
+ * done after register allocation (e.g. perm lowering).
  *
  * @param chord_env The chordal environment containing the irg
  * @param do_copy   1 == resolve cycles with a free reg if available