diff options
Diffstat (limited to 'risugen_ppc64.pm')
| -rw-r--r-- | risugen_ppc64.pm | 18 |
1 files changed, 1 insertions, 17 deletions
diff --git a/risugen_ppc64.pm b/risugen_ppc64.pm index c0e71cf..b241172 100644 --- a/risugen_ppc64.pm +++ b/risugen_ppc64.pm @@ -371,9 +371,8 @@ sub write_test_code($) my $fp_enabled = $params->{ 'fp_enabled' }; my $outfile = $params->{ 'outfile' }; - my @pattern_re = @{ $params->{ 'pattern_re' } }; - my @not_pattern_re = @{ $params->{ 'not_pattern_re' } }; my %insn_details = %{ $params->{ 'details' } }; + my @keys = @{ $params->{ 'keys' } }; if ($params->{ 'bigendian' } eq 1) { set_endian(1); @@ -388,21 +387,6 @@ sub write_test_code($) # TODO better random number generator? srand(0); - # Get a list of the insn keys which are permitted by the re patterns - my @keys = sort keys %insn_details; - if (@pattern_re) { - my $re = '\b((' . join(')|(',@pattern_re) . '))\b'; - @keys = grep /$re/, @keys; - } - # exclude any specifics - if (@not_pattern_re) { - my $re = '\b((' . join(')|(',@not_pattern_re) . '))\b'; - @keys = grep !/$re/, @keys; - } - if (!@keys) { - print STDERR "No instruction patterns available! (bad config file or --pattern argument?)\n"; - exit(1); - } print "Generating code using patterns: @keys...\n"; progress_start(78, $numinsns); |