added ir/opt include

[libfirm] / ir / be / beverify.c

diff --git a/ir/be/beverify.c b/ir/be/beverify.c
index 3d5bd20..7dc4e58 100644 (file)
--- a/ir/be/beverify.c
+++ b/ir/be/beverify.c
@@ -205,7 +205,7 @@ static int should_be_scheduled(ir_node *node) {
        if(get_irn_mode(node) == mode_M) {
                if(is_Proj(node))
                        return -1;
-               if(is_Phi(node) || is_Sync(node) || get_irn_opcode(node) == iro_Pin)
+               if(is_Phi(node) || is_Sync(node) || is_Pin(node))
                        return 0;
        }
        if(is_Proj(node) && get_irn_mode(node) == mode_X)
@@ -596,11 +596,61 @@ typedef struct _be_verify_register_allocation_env_t {
        int problem_found;
 } be_verify_register_allocation_env_t;
 
+static void check_register_constraints(ir_node *node, be_verify_register_allocation_env_t *env) {
+       const arch_env_t      *arch_env = env->arch_env;
+       const arch_register_t *reg;
+       int                   i, arity;
+
+       /* verify output register */
+       if (arch_get_irn_reg_class(arch_env, node, -1) != NULL) {
+               reg = arch_get_irn_register(arch_env, node);
+               if (reg == NULL) {
+                       ir_fprintf(stderr, "Verify warning: Node %+F in block %+F(%s) should have a register assigned\n",
+                                       node, get_nodes_block(node), get_irg_dump_name(env->irg));
+                       env->problem_found = 1;
+               }
+               else if (! arch_register_type_is(reg, joker) && !arch_reg_is_allocatable(arch_env, node, -1, reg)) {
+                       ir_fprintf(stderr, "Verify warning: Register %s assigned as output of %+F not allowed (register constraint) in block %+F(%s)\n",
+                                       reg->name, node, get_nodes_block(node), get_irg_dump_name(env->irg));
+                       env->problem_found = 1;
+               }
+       }
+
+       /* verify input register */
+       arity = get_irn_arity(node);
+       for (i = 0; i < arity; ++i) {
+               ir_node *pred = get_irn_n(node, i);
+
+               if (is_Bad(pred)) {
+                       ir_fprintf(stderr, "Verify warning: %+F in block %+F(%s) has Bad as input %d\n",
+                               node, get_nodes_block(node), get_irg_dump_name(env->irg), i);
+                       env->problem_found = 1;
+                       continue;
+               }
+
+               if (arch_get_irn_reg_class(arch_env, node, i) == NULL)
+                       continue;
+
+               reg = arch_get_irn_register(arch_env, pred);
+               if (reg == NULL) {
+                       ir_fprintf(stderr, "Verify warning: Node %+F in block %+F(%s) should have a register assigned\n",
+                                  pred, get_nodes_block(pred), get_irg_dump_name(env->irg));
+                       env->problem_found = 1;
+                       continue;
+               }
+               else if (! arch_register_type_is(reg, joker) && ! arch_reg_is_allocatable(arch_env, node, i, reg)) {
+                       ir_fprintf(stderr, "Verify warning: Register %s as input %d of %+F not allowed (register constraint) in block %+F(%s)\n",
+                                  reg->name, i, node, get_nodes_block(node), get_irg_dump_name(env->irg));
+                       env->problem_found = 1;
+               }
+       }
+}
+
 static void check_register_allocation(be_verify_register_allocation_env_t *env,
                                       const arch_register_class_t *regclass, pset *nodes) {
        const arch_env_t *arch_env = env->arch_env;
        ir_node *node;
-       const arch_register_t *reg;
+       const arch_register_t *reg = NULL;
        int fail = 0;
 
        bitset_t *registers = bitset_alloca(arch_register_class_n_regs(regclass));
@@ -610,12 +660,6 @@ static void check_register_allocation(be_verify_register_allocation_env_t *env,
                        continue;
 
                reg = arch_get_irn_register(arch_env, node);
-               if(reg == NULL) {
-                       ir_fprintf(stderr, "Verify warning: Node %+F in block %+F(%s) should have a register assigned\n",
-                                  node, get_nodes_block(node), get_irg_dump_name(env->irg));
-                       env->problem_found = 1;
-                       continue;
-               }
                if(bitset_is_set(registers, reg->index)) {
                        pset_break(nodes);
                        fail = 1;
@@ -657,6 +701,7 @@ static void verify_block_register_allocation(ir_node *block, void *data) {
 
                        be_liveness_transfer(env->arch_env, regclass, node, live_nodes);
                        check_register_allocation(env, regclass, live_nodes);
+                       check_register_constraints(node, env);
                }
 
                del_pset(live_nodes);