analysis of address_tkane for union types is not that easy - be conservative

[libfirm] / scripts / gen_ir.pl

diff --git a/scripts/gen_ir.pl b/scripts/gen_ir.pl
index a5d2f4e..70cc946 100755 (executable)
--- a/scripts/gen_ir.pl
+++ b/scripts/gen_ir.pl
@@ -179,6 +179,8 @@ foreach my $nodename (keys(%nodes)) {
        push(@text_cons, ")\n{\n".
                "\tir_node *res;\n");
 
+       push(@text_cons, "\tir_graph *rem = current_ir_graph;\n");
+
        my $in_array = "NULL";
        if ($arity eq $ARITY_VARIABLE) {
                $in_array = "in";
@@ -192,6 +194,8 @@ foreach my $nodename (keys(%nodes)) {
                }
        }
 
+       push(@text_cons, "\tcurrent_ir_graph = irg;\n");
+
        push(@text_cons, "\tres = new_ir_node(db, irg, $block_name, op_$op_name, $mode_name, $arity, $in_array);\n");
 
        if (exists($node{"attrs"})) {
@@ -217,6 +221,7 @@ foreach my $nodename (keys(%nodes)) {
        }
 
        push(@text_cons, "\tIRN_VRFY_IRG(res, irg);\n".
+               "\tcurrent_ir_graph = rem;\n".
                "\treturn res;\n".
                "}\n\n");