From: Andy Polyakov <appro@openssl.org>
Date: Wed, 3 May 2006 13:39:34 +0000 (+0000)
Subject: PPC assembler distiller update.
X-Git-Tag: OpenSSL_0_9_8k^2~1350
X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=commitdiff_plain;h=fe716ba686a9fa06c400d2073437f797ee34c5cb;ds=inline

PPC assembler distiller update.
---

diff --git a/crypto/perlasm/ppc-xlate.pl b/crypto/perlasm/ppc-xlate.pl
index 31876e56b2..a51147a3a7 100755
--- a/crypto/perlasm/ppc-xlate.pl
+++ b/crypto/perlasm/ppc-xlate.pl
@@ -52,6 +52,9 @@ my $globl = sub {
     $$global = $name;
     $ret;
 };
+my $text = sub {
+    ($flavour =~ /aix/) ? ".csect" : ".text";
+};
 my $machine = sub {
     my $junk = shift;
     my $arch = shift;
@@ -102,6 +105,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/);
 	if (ref($opcode) eq 'CODE') { $line = &$opcode($f,split(',',$line)); }
 	elsif ($mnemonic)           { $line = $c.$mnemonic.$f."\t".$line; }
     }