generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

sha512-mips.pl: add missing byte swap for little-endians.

Browse Source
This commit is contained in:
Andy Polyakov 2010-10-02 12:43:04 +00:00
parent d466588788
commit 5ad83922ca
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
crypto/sha/asm/sha512-mips.pl
View File

@ -67,8 +67,13 @@ if ($flavour =~ /64|n32/i) {
######################################################################
$output=shift;
for (@ARGV) { $big_endian=1 if (/\-DB_ENDIAN/);
$big_endian=0 if (/\-DL_ENDIAN/);
$output=$_ if (/^\w[\w\-]*\.\w+$/); }
open STDOUT,">$output";
if (!defined($big_endian)) { $big_endian=(unpack('L',pack('N',1))==1); }
if ($output =~ /512/) {
$label="512";
$SZ=8;
@ -114,7 +119,7 @@ $code.=<<___ if ($i<15);
${LD}l @X[1],`($i+1)*$SZ+$MSB`($inp)
${LD}r @X[1],`($i+1)*$SZ+$LSB`($inp)
___
$code.=<<___ if ($little_endian && $i<16); # XXX no 64-bit byte swap yet
$code.=<<___ if (!$big_endian && $i<16); # XXX no 64-bit byte swap yet
srl $tmp0,@X[0],24 # byte swap($i)
srl $tmp1,@X[0],8
andi $tmp2,@X[0],0xFF00