Minor ppc-xlate.pl update.
This commit is contained in:
parent
17478fdede
commit
d3a6461d71
@ -106,7 +106,7 @@ while($line=<>) {
|
|||||||
my $mnemonic = $2;
|
my $mnemonic = $2;
|
||||||
my $f = $3;
|
my $f = $3;
|
||||||
my $opcode = eval("\$$mnemonic");
|
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)); }
|
if (ref($opcode) eq 'CODE') { $line = &$opcode($f,split(',',$line)); }
|
||||||
elsif ($mnemonic) { $line = $c.$mnemonic.$f."\t".$line; }
|
elsif ($mnemonic) { $line = $c.$mnemonic.$f."\t".$line; }
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user