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 /crypto/sha/asm/sha1-ppc.pl | |
| parent | fe716ba686a9fa06c400d2073437f797ee34c5cb (diff) | |
Minor PPC assembler updates.
Diffstat (limited to 'crypto/sha/asm/sha1-ppc.pl')
| -rwxr-xr-x | crypto/sha/asm/sha1-ppc.pl | 5 |
1 files changed, 3 insertions, 2 deletions
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 |