ppc-xlate.pl update.

};

my $bdnz = sub {

    my $f = shift;

    my $bo = $f=~/[\+\-]/ ? 17 : 16;

    my $bo = $f=~/[\+\-]/ ? 16+9 : 16;	# optional "to be taken" hint

    "	bc	$bo,0,".shift;

} if ($flavour!~/linux/);

my $bltlr = sub {

    my $f = shift;

    my $bo = $f=~/\-/ ? 12+2 : 12;	# optional "not to be taken" hint

    ($flavour =~ /linux/) ?		# GNU as doesn't allow most recent hints

	"	.long	".sprintf "0x%x",19<<26|$bo<<21|16<<1 :

	"	bclr	$bo,0";

};

my $bnelr = sub {

    my $f = shift;

    my $bo = $f=~/\-/ ? 4+2 : 4;	# optional "not to be taken" hint

    ($flavour =~ /linux/) ?		# GNU as doesn't allow most recent hints

	"	.long	".sprintf "0x%x",19<<26|$bo<<21|2<<16|16<<1 :

	"	bclr	$bo,2";

};

# GNU assembler can't handle extrdi rA,rS,16,48, or when sum of last two

# arguments is 64, with "operand out of range" error.

my $extrdi = sub {

    my ($f,$ra,$rs,$n,$b) = @_;

    $b = ($b+$n)&63; $n = 64-$n;

    "	rldicl	$ra,$rs,$b,$n";

};

while($line=<>) {

	my $mnemonic = $2;

	my $f = $3;

	my $opcode = eval("\$$mnemonic");

	$line =~ s|\bc?r([0-9]+)\b|$1|g if ($c ne "." and $flavour !~ /osx/);

	$line =~ s|\bc?[rf]([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; }

    }