diff options
| author | Andy Polyakov <appro@openssl.org> | 2006-05-03 14:07:34 +0000 |
|---|---|---|
| committer | Andy Polyakov <appro@openssl.org> | 2006-05-03 14:07:34 +0000 |
| commit | c09a0318b7b8dd501de52e332b38c748b36a869d (patch) | |
| tree | 217251637431d8b3cb7520cb3920a806c6f4a7cd | |
| parent | fe716ba686a9fa06c400d2073437f797ee34c5cb (diff) | |
Minor PPC assembler updates.
| -rw-r--r-- | crypto/bn/asm/ppc-mont.pl | 1 | ||||
| -rwxr-xr-x | crypto/perlasm/ppc-xlate.pl | 3 | ||||
| -rwxr-xr-x | crypto/sha/asm/sha1-ppc.pl | 5 |
3 files changed, 6 insertions, 3 deletions
diff --git a/crypto/bn/asm/ppc-mont.pl b/crypto/bn/asm/ppc-mont.pl index 8a260212b7..e9149c98cf 100644 --- a/crypto/bn/asm/ppc-mont.pl +++ b/crypto/bn/asm/ppc-mont.pl @@ -98,6 +98,7 @@ $nlo="r25"; $nhi="r0"; $code=<<___; +.machine any .text .globl .bn_mul_mont diff --git a/crypto/perlasm/ppc-xlate.pl b/crypto/perlasm/ppc-xlate.pl index a51147a3a7..7e0f9e96c0 100755 --- a/crypto/perlasm/ppc-xlate.pl +++ b/crypto/perlasm/ppc-xlate.pl @@ -58,7 +58,8 @@ my $text = sub { my $machine = sub { my $junk = shift; my $arch = shift; - $arch = "ppc970" if ($arch eq "any" and $flavour =~ /osx/); + if ($arch eq "any" and $flavour =~ /osx/) + { $arch = ($flavour =~ /64/) ? "ppc970-64" : "ppc970"; } ".machine $arch"; }; diff --git a/crypto/sha/asm/sha1-ppc.pl b/crypto/sha/asm/sha1-ppc.pl index 9c955ef036..c1bf1f4872 100755 --- a/crypto/sha/asm/sha1-ppc.pl +++ b/crypto/sha/asm/sha1-ppc.pl @@ -62,10 +62,10 @@ sub BODY_00_19 { my ($i,$a,$b,$c,$d,$e,$f)=@_; my $j=$i+1; $code.=<<___ if ($i==0); - lwz @X[$i],$i*4($inp) + lwz @X[$i],`$i*4`($inp) ___ $code.=<<___ if ($i<15); - lwz @X[$j],$j*4($inp) + lwz @X[$j],`$j*4`($inp) add $f,$K,$e rotlwi $e,$a,5 add $f,$f,@X[$i] @@ -149,6 +149,7 @@ ___ } $code=<<___; +.machine any .text .globl .sha1_block_asm_data_order |