pass op to custom init_attr function

[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 0e15336..f06d083 100755 (executable)
--- a/ir/be/scripts/generate_new_opcodes.pl
+++ b/ir/be/scripts/generate_new_opcodes.pl
@@ -41,8 +41,11 @@ our %operands;
 our %cpu;
 our $default_attr_type;
 our $default_cmp_attr;
+our $default_copy_attr;
 our %init_attr;
+our $custom_init_attr_func;
 our %compare_attr;
+our %copy_attr;
 our %reg_classes;
 
 # include spec file
@@ -504,6 +507,9 @@ foreach my $op (keys(%nodes)) {
                                die "Fatal error: Couldn't find attribute initialisation code for type '${attr_type}'";
                        }
                        $temp .= "${attr_init_code}\n";
+                       if(defined($custom_init_attr_func)) {
+                               $temp .= &$custom_init_attr_func(\%n, $op);
+                       }
                        $temp .= "\n";
 
                        # set flags for outs
@@ -563,6 +569,13 @@ foreach my $op (keys(%nodes)) {
        if (defined($cmp_attr_func)) {
                push(@obst_new_irop, "\tops.node_cmp_attr = ${cmp_attr_func};\n");
        }
+       my $copy_attr_func = $copy_attr{$attr_type};
+       if (!defined($copy_attr_func)) {
+               $copy_attr_func = $default_copy_attr;
+       }
+       if (defined($copy_attr_func)) {
+               push(@obst_new_irop, "\tops.copy_attr = ${copy_attr_func};\n");
+       }
 
        $n_opcodes++;
        my $n_res = $out_arity;
@@ -846,7 +859,8 @@ TP_SEARCH:  foreach my $cur_type (keys(%cpu)) {
 }
 
 sub mangle_requirements {
-       my $reqs = shift;
+       my $reqs  = shift;
+       my $class = shift;
 
        my @alternatives = split(/ /, $reqs);
        for(my $idx = 0; $idx < scalar(@alternatives); $idx++) {
@@ -855,7 +869,7 @@ sub mangle_requirements {
 
        @alternatives = sort @alternatives;
 
-       my $name = join('_', @alternatives);
+       my $name = $class."_".join('_', @alternatives);
 
        return $name;
 }
@@ -1045,8 +1059,8 @@ CHECK_REQS: foreach (@regs) {
                my @cur_class = @{ $reg_classes{"$class"} };
                for (my $idx = 0; $idx <= $#cur_class; $idx++) {
                        if (defined($cur_class[$idx]{"type"}) && ($cur_class[$idx]{"type"} & 4)) {
-                               my $reg = $cur_class[$idx]{"name"};
-                               my $regix = get_reg_index($reg);
+                               my $reg    = $cur_class[$idx]{"name"};
+                               my $regix  = get_reg_index($reg);
                                my $arrayp = $regix / 32;
                                push(@{$limit_array[$arrayp]}, $reg);
                                $limit_reqs .= "$reg ";
@@ -1055,10 +1069,11 @@ CHECK_REQS: foreach (@regs) {
        }
 
        if ($has_limit == 1) {
-               $limit_name = "${arch}_limit_".mangle_requirements($limit_reqs);
+               $limit_name = "${arch}_limit_".mangle_requirements($limit_reqs, $class);
 
                if(defined($limit_bitsets{$limit_name})) {
-                       return $limit_bitsets{$limit_name};
+                       $limit_name = $limit_bitsets{$limit_name};
+                       return ($class, $limit_name, $same_pos, $different_pos);
                }
 
                $limit_bitsets{$limit_name} = $limit_name;
@@ -1108,16 +1123,13 @@ sub generate_requirements {
        my $op    = shift;
        my $idx   = shift;
        my $is_in = shift;
-
-       my $name = "${arch}_requirements_".mangle_requirements($reqs);
-       if(defined($requirements{$name})) {
-               return $name;
-       }
-       $requirements{$name} = $name;
+       my $class = "";
+       my $result;
 
        if ($reqs eq "none") {
-               push(@obst_reg_reqs, <<EOF);
-static const arch_register_req_t $name = {
+
+               $result = <<EOF;
+{
        arch_register_req_type_none,
        NULL,                         /* regclass */
        NULL,                         /* limit bitset */
@@ -1130,10 +1142,11 @@ EOF
                if(!is_reg_class($1)) {
                        die "$1 is not a register class in requirements for $op\n";
                }
-               push(@obst_reg_reqs, <<EOF);
-static const arch_register_req_t $name = {
+               $class  = $1;
+               $result = <<EOF;
+{
        arch_register_req_type_should_be_different_from_all,
-       & ${arch}_reg_classes[CLASS_${arch}_$1],
+       & ${arch}_reg_classes[CLASS_${arch}_${class}],
        NULL,        /* limit bitset */
        -1,          /* same pos */
        -1           /* different pos */
@@ -1141,10 +1154,11 @@ static const arch_register_req_t $name = {
 
 EOF
        } elsif (is_reg_class($reqs)) {
-               push(@obst_reg_reqs, <<EOF);
-static const arch_register_req_t $name = {
+               $class  = $reqs;
+               $result = <<EOF;
+{
        arch_register_req_type_normal,
-       & ${arch}_reg_classes[CLASS_${arch}_${reqs}],
+       & ${arch}_reg_classes[CLASS_${arch}_${class}],
        NULL,        /* limit bitset */
        -1,          /* same pos */
        -1           /* different pos */
@@ -1154,10 +1168,10 @@ EOF
 
        } else {
                my @req_type_mask;
-               my ($class, $limit_bitset, $same_pos, $different_pos)
+               my ($regclass, $limit_bitset, $same_pos, $different_pos)
                        = build_subset_class_func($node, $op, $idx, $is_in, $reqs);
 
-               if (!defined($class)) {
+               if (!defined($regclass)) {
                        die("Fatal error: Could not build subset for requirements '$reqs' of '$op' pos $idx ... exiting.\n");
                }
 
@@ -1183,17 +1197,27 @@ EOF
                my $same_pos_str      = (defined($same_pos) ? $same_pos : "-1");
                my $different_pos_str = (defined($different_pos) ? $different_pos : "-1");
 
-               push(@obst_reg_reqs, <<EOF);
-static const arch_register_req_t $name = {
-       $reqtype,
+               $class  = $regclass;
+               $result = <<EOF;
+{
+       ${reqtype},
        & ${arch}_reg_classes[CLASS_${arch}_${class}],
-       $limit_bitset,
-       $same_pos_str,       /* same pos */
-       $different_pos_str,  /* different pos */
+       ${limit_bitset},
+       ${same_pos_str},       /* same pos */
+       ${different_pos_str}        /* different pos */
 };
 
 EOF
        }
 
+       my $name = "${arch}_requirements_".mangle_requirements($reqs, $class);
+       if(defined($requirements{$name})) {
+               return $name;
+       }
+       $requirements{$name} = $name;
+       push(@obst_reg_reqs, <<EOF);
+static const arch_register_req_t ${name} = ${result}
+EOF
+
        return $name;
 }