move iterator/fourcc to private API

[libfirm] / ir / be / scripts / generate_new_opcodes.pl

diff --git a/ir/be/scripts/generate_new_opcodes.pl b/ir/be/scripts/generate_new_opcodes.pl
index 205a01d..649ca5b 100755 (executable)
--- a/ir/be/scripts/generate_new_opcodes.pl
+++ b/ir/be/scripts/generate_new_opcodes.pl
@@ -67,7 +67,7 @@ my $target_h = $target_dir."/gen_".$arch."_new_nodes.h";
 if(!defined($default_attr_type)) {
        $default_attr_type = "${arch}_attr_t";
 }
-if(!defined(%init_attr)) {
+if(! %init_attr) {
        %init_attr = (
                "$default_attr_type" => "\tinit_${arch}_attributes(res, irn_flags_, in_reqs, n_res);",
        );
@@ -75,7 +75,7 @@ if(!defined(%init_attr)) {
 if(!defined($default_cmp_attr)) {
        $default_cmp_attr = "${arch}_compare_attr";
 }
-if(!defined(%compare_attr)) {
+if(! %compare_attr) {
        %compare_attr = (
                "${default_attr_type}" => "${default_cmp_attr}",
        );
@@ -409,7 +409,7 @@ EOF
                        "simple_jump"      => "arch_irn_flags_simple_jump",
                        "not_scheduled"    => "arch_irn_flags_not_scheduled",
                );
-               if (defined(%custom_irn_flags)) {
+               if (%custom_irn_flags) {
                        %known_irn_flags = (%known_irn_flags, %custom_irn_flags);
                }
                foreach my $flag (@{$n->{"irn_flags"}}) {
@@ -700,7 +700,8 @@ EOF
        $temp .= ", ".translate_arity($arity).", 0, ${attr_size}, &ops);\n";
        push(@obst_new_irop, $temp);
        if ($is_fragile) {
-               push(@obst_new_irop, "\tir_op_set_fragile_indices(op_${op}, n_${op}_mem, pn_${op}_X_regular, pn_${op}_X_except);\n");
+               push(@obst_new_irop, "\tir_op_set_memory_index(op_${op}, n_${op}_mem);\n");
+               push(@obst_new_irop, "\tir_op_set_fragile_indices(op_${op}, pn_${op}_X_regular, pn_${op}_X_except);\n");
        }
        push(@obst_new_irop, "\tset_op_tag(op_$op, $arch\_op_tag);\n");
        if(defined($default_op_attr_type)) {
@@ -726,6 +727,7 @@ open(OUT, ">$target_c") || die("Fatal error: Could not open $target_c, reason: $
 
 print OUT "#include \"gen_$arch\_regalloc_if.h\"\n";
 print OUT "#include \"irverify_t.h\"\n";
+print OUT "#include \"fourcc.h\"\n";
 print OUT "\n";
 print OUT @obst_cmp_attr;
 print OUT "\n";