+ for (i = get_irn_arity(irn) - 1; i >= 0; --i) {
+ ir_node *op = get_irn_n(irn, i);
+ ir_node *copy;
+ const arch_register_t *reg;
+ const arch_register_req_t *req;
+
+ req = arch_get_register_req(irn, i);
+ if (req->cls != env->cls)
+ continue;
+
+ reg = arch_get_irn_register(op);
+
+ if (reg == NULL || !arch_register_type_is(reg, ignore))
+ continue;
+ if (arch_register_type_is(reg, joker))
+ continue;
+
+ if (!arch_register_req_is(req, limited))
+ continue;
+
+ if (rbitset_is_set(req->limited, reg->index))
+ continue;
+
+ copy = be_new_Copy(env->cls, env->irg, bl, op);
+ be_stat_ev("constr_copy", 1);
+
+ sched_add_before(irn, copy);
+ set_irn_n(irn, i, copy);
+ DBG((dbg, LEVEL_3, "inserting ignore arg copy %+F for %+F pos %d\n", copy, irn, i));
+ }
+
+ insn = chordal_scan_insn(env, irn);
+
+ if (!insn->has_constraints)
+ goto end;
+
+ /* insert copies for nodes that occur constrained more than once. */
+ for (i = insn->use_start; i < insn->n_ops; ++i) {
+ be_operand_t *op = &insn->ops[i];
+
+ if (!op->has_constraints)
+ continue;
+
+ for (j = i + 1; j < insn->n_ops; ++j) {
+ ir_node *copy;
+ be_operand_t *a_op = &insn->ops[j];
+
+ if (a_op->carrier != op->carrier || !a_op->has_constraints)
+ continue;
+
+ /* if the constraint is the same, no copy is necessary
+ * TODO generalise unequal but overlapping constraints */
+ if (a_op->req == op->req)
+ continue;
+
+ if (be_is_Copy(get_irn_n(insn->irn, a_op->pos)))
+ continue;
+
+ copy = be_new_Copy(env->cls, env->irg, bl, op->carrier);
+ be_stat_ev("constr_copy", 1);
+
+ sched_add_before(insn->irn, copy);
+ set_irn_n(insn->irn, a_op->pos, copy);
+ DBG((dbg, LEVEL_3, "inserting multiple constr copy %+F for %+F pos %d\n", copy, insn->irn, a_op->pos));
+ }
+ }
+
+ /* collect all registers occurring in out constraints. */
+ for (i = 0; i < insn->use_start; ++i) {
+ be_operand_t *op = &insn->ops[i];
+ if (op->has_constraints)
+ bitset_or(def_constr, op->regs);
+ }
+