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

sha/asm/sha1-ppc.pl: add little-endian support.

Browse Source 
Submitted by: Marcelo Cerri
This commit is contained in:
Andy Polyakov 2013-10-31 11:07:38 +01:00
parent e6e29bc4c9
commit 3f9562a669
1 changed files with 26 additions and 4 deletions

30
crypto/sha/asm/sha1-ppc.pl

@ -38,6 +38,14 @@ if ($flavour =~ /64/) {
$PUSH ="stw"; $PUSH ="stw";
} else { die "nonsense $flavour"; } } else { die "nonsense $flavour"; }
# Define endianess based on flavour
# i.e.: linux64le
$LITTLE_ENDIAN=0;
if ($flavour =~ /le$/) {
die "little-endian is 64-bit only: $flavour" if ($SIZE_T == 4);
$LITTLE_ENDIAN=1;
}
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1; $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
( $xlate="${dir}ppc-xlate.pl" and -f $xlate ) or ( $xlate="${dir}ppc-xlate.pl" and -f $xlate ) or
( $xlate="${dir}../../perlasm/ppc-xlate.pl" and -f $xlate) or ( $xlate="${dir}../../perlasm/ppc-xlate.pl" and -f $xlate) or
@ -68,14 +76,28 @@ $T ="r12";
@X=("r16","r17","r18","r19","r20","r21","r22","r23", @X=("r16","r17","r18","r19","r20","r21","r22","r23",
"r24","r25","r26","r27","r28","r29","r30","r31"); "r24","r25","r26","r27","r28","r29","r30","r31");
sub loadbe {
my ($dst, $src, $temp_reg) = @_;
$code.=<<___ if (!$LITTLE_ENDIAN);
lwz $dst,$src
___
$code.=<<___ if ($LITTLE_ENDIAN);
lwz $temp_reg,$src
rotlwi $dst,$temp_reg,8
rlwimi $dst,$temp_reg,24,0,7
rlwimi $dst,$temp_reg,24,16,23
___
}
sub BODY_00_19 { sub BODY_00_19 {
my ($i,$a,$b,$c,$d,$e,$f)=@_; my ($i,$a,$b,$c,$d,$e,$f)=@_;
my $j=$i+1; my $j=$i+1;
$code.=<<___ if ($i==0);
lwz @X[$i],`$i*4`($inp) # Since the last value of $f is discarded, we can use
___ # it as a temp reg to swap byte-order when needed.
loadbe("@X[$i]","`$i*4`($inp)",$f) if ($i==0);
loadbe("@X[$j]","`$j*4`($inp)",$f) if ($i<15);
$code.=<<___ if ($i<15); $code.=<<___ if ($i<15);
lwz @X[$j],`$j*4`($inp)
add $f,$K,$e add $f,$K,$e
rotlwi $e,$a,5 rotlwi $e,$a,5
add $f,$f,@X[$i] add $f,$f,@X[$i]