From d3a6461d71545f6658da041b186a05d8fa7d7c83 Mon Sep 17 00:00:00 2001 From: Andy Polyakov Date: Mon, 5 Jun 2006 09:42:31 +0000 Subject: [PATCH] Minor ppc-xlate.pl update. --- crypto/perlasm/ppc-xlate.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/crypto/perlasm/ppc-xlate.pl b/crypto/perlasm/ppc-xlate.pl index a3b5b0e37b..bedaa99cb4 100755 --- a/crypto/perlasm/ppc-xlate.pl +++ b/crypto/perlasm/ppc-xlate.pl @@ -106,7 +106,7 @@ while($line=<>) { my $mnemonic = $2; my $f = $3; my $opcode = eval("\$$mnemonic"); - $line =~ s|\br([0-9]+)\b|$1|g if ($c ne "." and $flavour !~ /osx/); + $line =~ s|\bc?r([0-9]+)\b|$1|g if ($c ne "." and $flavour !~ /osx/); if (ref($opcode) eq 'CODE') { $line = &$opcode($f,split(',',$line)); } elsif ($mnemonic) { $line = $c.$mnemonic.$f."\t".$line; } } -- 2.25.1