- # set flags for outs
- if (exists($n{"outs"})) {
- undef my @outs;
- @outs = @{ $n{"outs"} };
-
- for (my $idx = 0; $idx <= $#outs; $idx++) {
- # check, if we have additional flags annotated to out
- if ($outs[$idx] =~ /:((S|I)(\|(S|I))*)/) {
- my $flag_string = $1;
- my $prefix = "";
- my $flags = "";
-
- foreach my $flag (split(/\|/, $flag_string)) {
- if ($flag eq "I") {
- $flags .= $prefix."arch_irn_flags_ignore";
- $prefix = " | ";
- } elsif ($flag eq "S") {
- $flags .= $prefix."arch_irn_flags_modify_sp";
- $prefix = " | ";
- }
- }
-
- $temp .= "\tset_$arch\_out_flags(res, $flags, $idx);\n";
- }
- }
- }
-