mirror/openssl
2
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2024-11-27 05:21:51 +08:00
Code Issues Packages Projects Releases Wiki Activity

Minor optimization for sha1-armv4 module.

Browse Source
This commit is contained in:
Andy Polyakov 2007-01-25 10:44:18 +00:00
parent 2d3e956ae0
commit 0b0896cdd2
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
crypto/sha/asm/sha1-armv4-large.pl
View File

@ -7,7 +7,7 @@
# details see http://www.openssl.org/~appro/cryptogams/. # details see http://www.openssl.org/~appro/cryptogams/.
# ==================================================================== # ====================================================================
# sha1_block precedure for ARMv4. # sha1_block procedure for ARMv4.
# #
# January 2007. # January 2007.
@ -16,10 +16,10 @@
# impl size in bytes comp cycles[*] measured performance # impl size in bytes comp cycles[*] measured performance
# ==================================================================== # ====================================================================
# thumb 304 3212 4420 # thumb 304 3212 4420
# armv4-small 392/+29% 1958/+64% 2290/+93% # armv4-small 392/+29% 1958/+64% 2250/+96%
# armv4-compact 740/+89% 1552/+26% 1910/+20% # armv4-compact 740/+89% 1552/+26% 1840/+22%
# armv4-large 1420/+92% 1307/+19% 1630/+17% # armv4-large 1420/+92% 1307/+19% 1500/+23%
# full unroll ~5100/+260% ~1260/+4% ~1600/+2% # full unroll ~5100/+260% ~1260/+4% ~1500/+0%
# ==================================================================== # ====================================================================
# thumb = same as 'small' but in Thumb instructions[**] and # thumb = same as 'small' but in Thumb instructions[**] and
# with recurring code in two private functions; # with recurring code in two private functions;
@ -64,15 +64,16 @@ $code.=<<___;
add $e,$K,$e,ror#2 @ E+=K_00_19 add $e,$K,$e,ror#2 @ E+=K_00_19
orr $t0,$t1,$t0,lsl#8 orr $t0,$t1,$t0,lsl#8
ldrb $t1,[$inp,#-1] ldrb $t1,[$inp,#-1]
add $e,$e,$a,ror#27 @ E+=ROR(A,27)
orr $t0,$t2,$t0,lsl#8 orr $t0,$t2,$t0,lsl#8
add $e,$e,$a,ror#27 @ E+=ROR(A,27)
orr $t0,$t1,$t0,lsl#8 orr $t0,$t1,$t0,lsl#8
add $e,$e,$t0 @ E+=X[i] add $e,$e,$t0 @ E+=X[i]
eor $t1,$c,$d @ F_xx_xx
str $t0,[$Xi,#-4]! str $t0,[$Xi,#-4]!
___ ___
} }
sub Xupdate { sub Xupdate {
my ($a,$b,$c,$d,$e)=@_; my ($a,$b,$c,$d,$e,$flag)=@_;
$code.=<<___; $code.=<<___;
ldr $t0,[$Xi,#15*4] ldr $t0,[$Xi,#15*4]
ldr $t1,[$Xi,#13*4] ldr $t1,[$Xi,#13*4]
@ -83,6 +84,11 @@ $code.=<<___;
add $e,$e,$a,ror#27 @ E+=ROR(A,27) add $e,$e,$a,ror#27 @ E+=ROR(A,27)
eor $t0,$t0,$t2 eor $t0,$t0,$t2
eor $t0,$t0,$t1 eor $t0,$t0,$t1
___
$code.=<<___ if (!defined($flag));
eor $t1,$c,$d @ F_xx_xx, but not in 40_59
___
$code.=<<___;
mov $t0,$t0,ror#31 mov $t0,$t0,ror#31
add $e,$e,$t0 @ E+=X[i] add $e,$e,$t0 @ E+=X[i]
str $t0,[$Xi,#-4]! str $t0,[$Xi,#-4]!
@ -93,7 +99,6 @@ sub BODY_00_15 {
my ($a,$b,$c,$d,$e)=@_; my ($a,$b,$c,$d,$e)=@_;
&Xload(@_); &Xload(@_);
$code.=<<___; $code.=<<___;
eor $t1,$c,$d
and $t1,$b,$t1,ror#2 and $t1,$b,$t1,ror#2
eor $t1,$t1,$d,ror#2 @ F_00_19(B,C,D) eor $t1,$t1,$d,ror#2 @ F_00_19(B,C,D)
add $e,$e,$t1 @ E+=F_00_19(B,C,D) add $e,$e,$t1 @ E+=F_00_19(B,C,D)
@ -104,7 +109,6 @@ sub BODY_16_19 {
my ($a,$b,$c,$d,$e)=@_; my ($a,$b,$c,$d,$e)=@_;
&Xupdate(@_); &Xupdate(@_);
$code.=<<___; $code.=<<___;
eor $t1,$c,$d
and $t1,$b,$t1,ror#2 and $t1,$b,$t1,ror#2
eor $t1,$t1,$d,ror#2 @ F_00_19(B,C,D) eor $t1,$t1,$d,ror#2 @ F_00_19(B,C,D)
add $e,$e,$t1 @ E+=F_00_19(B,C,D) add $e,$e,$t1 @ E+=F_00_19(B,C,D)
@ -115,7 +119,6 @@ sub BODY_20_39 {
my ($a,$b,$c,$d,$e)=@_; my ($a,$b,$c,$d,$e)=@_;
&Xupdate(@_); &Xupdate(@_);
$code.=<<___; $code.=<<___;
eor $t1,$c,$d
eor $t1,$b,$t1,ror#2 @ F_20_39(B,C,D) eor $t1,$b,$t1,ror#2 @ F_20_39(B,C,D)
add $e,$e,$t1 @ E+=F_20_39(B,C,D) add $e,$e,$t1 @ E+=F_20_39(B,C,D)
___ ___
@ -123,7 +126,7 @@ ___
sub BODY_40_59 { sub BODY_40_59 {
my ($a,$b,$c,$d,$e)=@_; my ($a,$b,$c,$d,$e)=@_;
&Xupdate(@_); &Xupdate(@_,1);
$code.=<<___; $code.=<<___;
and $t1,$b,$c,ror#2 and $t1,$b,$c,ror#2
orr $t2,$b,$c,ror#2 orr $t2,$b,$c,ror#2