diff options
| author | Andy Polyakov <appro@openssl.org> | 2010-10-21 15:56:24 +0000 |
|---|---|---|
| committer | Andy Polyakov <appro@openssl.org> | 2010-10-21 15:56:24 +0000 |
| commit | ca32ceb773e8be5132455fbd17874d59a6dfc495 (patch) | |
| tree | 85f27113a99510e5a6d38e4ac2faef5c9c43070e /crypto/sha/asm | |
| parent | 776654adffc63426744e83391dc259358f905337 (diff) | |
sha512-mips.pl: fix "little-endian" typos.
Diffstat (limited to 'crypto/sha/asm')
| -rw-r--r-- | crypto/sha/asm/sha512-mips.pl | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/crypto/sha/asm/sha512-mips.pl b/crypto/sha/asm/sha512-mips.pl index 2c70663f98..d8f95308b4 100644 --- a/crypto/sha/asm/sha512-mips.pl +++ b/crypto/sha/asm/sha512-mips.pl @@ -31,7 +31,8 @@ # The return value is placed in $a0. Following coding rules facilitate # interoperability: # -# - never ever touch $tp, "thread pointer", former $gp; +# - never ever touch $tp, "thread pointer", former $gp [o32 can be +# excluded from the rule, because it's specified volatile]; # - copy return value to $t0, former $v0 [or to $a0 if you're adapting # old code]; # - on O32 populate $a4-$a7 with 'lw $aN,4*N($sp)' if necessary; @@ -61,12 +62,12 @@ if ($flavour =~ /64|n32/i) { $PTR_SLL="sll"; $SZREG=4; } +$pf = ($flavour =~ /nubi/i) ? $t0 : $t2; # # <appro@openssl.org> # ###################################################################### -$output=shift; for (@ARGV) { $big_endian=1 if (/\-DB_ENDIAN/); $big_endian=0 if (/\-DL_ENDIAN/); $output=$_ if (/^\w[\w\-]*\.\w+$/); } @@ -104,6 +105,9 @@ if ($output =~ /512/) { $rounds=64; } +$MSB = $big_endian ? 0 : ($SZ-1); +$LSB = ($SZ-1)&~$MSB; + @V=($A,$B,$C,$D,$E,$F,$G,$H)=map("\$$_",(1,2,3,7,24,25,30,31)); @X=map("\$$_",(8..23)); @@ -127,7 +131,7 @@ $code.=<<___ if (!$big_endian && $i<16); # XXX no 64-bit byte swap yet andi $tmp1,0xFF00 sll $tmp2,$tmp2,8 or @X[0],$tmp0 - or $tmp1,$t2 + or $tmp1,$tmp2 or @X[0],$tmp1 ___ $code.=<<___; @@ -160,7 +164,7 @@ $code.=<<___; xor $h,$tmp1 $SLL $tmp1,$a,`$SZ*8-@Sigma0[0]` xor $h,$tmp0 - $ST @X[0],`($i%16)*$SZ`($sp) + $ST @X[0],`($i%16)*$SZ`($sp) # offload to ring buffer xor $h,$tmp1 # Sigma0(a) or $tmp0,$a,$b @@ -174,7 +178,7 @@ $code.=<<___; $ADDU $h,$T1 ___ $code.=<<___ if ($i>=13); - $LD @X[3],`(($i+3)%16)*$SZ`($sp) # prefetch + $LD @X[3],`(($i+3)%16)*$SZ`($sp) # prefetch from ring buffer ___ } @@ -206,16 +210,12 @@ $code.=<<___; xor $tmp3,$tmp0 # sigma1(X[i+14]) $ADDU @X[0],$tmp3 - ___ &BODY_00_15(@_); } $FRAMESIZE=16*$SZ+16*$SZREG; $SAVED_REGS_MASK = ($flavour =~ /nubi/i) ? 0xc0fff008 : 0xc0ff0000; -$pf = ($flavour =~ /nubi/i) ? $t0 : $t2; -$MSB = 0; -$LSB = ($SZ-1)&~$MSB; $code.=<<___; .text |