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

armv4-mont.pl: profiler-assisted optimization gives 8%-14% improvement

Browse Source 
(more for longer keys) on RSA/DSA.
This commit is contained in:
Andy Polyakov 2011-08-13 12:38:41 +00:00
parent ae8b47f07f
commit 10bd69bf4f
1 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
crypto/bn/asm/armv4-mont.pl
View File

@ -92,9 +92,9 @@ bn_mul_mont:
.L1st: .L1st:
ldr $aj,[$ap],#4 @ ap[j],ap++ ldr $aj,[$ap],#4 @ ap[j],ap++
mov $alo,$ahi mov $alo,$ahi
ldr $nj,[$np],#4 @ np[j],np++
mov $ahi,#0 mov $ahi,#0
umlal $alo,$ahi,$aj,$bi @ ap[j]*bp[0] umlal $alo,$ahi,$aj,$bi @ ap[j]*bp[0]
ldr $nj,[$np],#4 @ np[j],np++
mov $nhi,#0 mov $nhi,#0
umlal $nlo,$nhi,$nj,$n0 @ np[j]*n0 umlal $nlo,$nhi,$nj,$n0 @ np[j]*n0
adds $nlo,$nlo,$alo adds $nlo,$nlo,$alo
@ -104,21 +104,21 @@ bn_mul_mont:
bne .L1st bne .L1st
adds $nlo,$nlo,$ahi adds $nlo,$nlo,$ahi
mov $nhi,#0
adc $nhi,$nhi,#0
ldr $tp,[$_bp] @ restore bp ldr $tp,[$_bp] @ restore bp
str $nlo,[$num] @ tp[num-1]= mov $nhi,#0
ldr $n0,[$_n0] @ restore n0 ldr $n0,[$_n0] @ restore n0
adc $nhi,$nhi,#0
str $nlo,[$num] @ tp[num-1]=
str $nhi,[$num,#4] @ tp[num]= str $nhi,[$num,#4] @ tp[num]=
.Louter: .Louter:
sub $tj,$num,sp @ "original" $num-1 value sub $tj,$num,sp @ "original" $num-1 value
sub $ap,$ap,$tj @ "rewind" ap to &ap[1] sub $ap,$ap,$tj @ "rewind" ap to &ap[1]
sub $np,$np,$tj @ "rewind" np to &np[1]
ldr $bi,[$tp,#4]! @ *(++bp) ldr $bi,[$tp,#4]! @ *(++bp)
sub $np,$np,$tj @ "rewind" np to &np[1]
ldr $aj,[$ap,#-4] @ ap[0] ldr $aj,[$ap,#-4] @ ap[0]
ldr $nj,[$np,#-4] @ np[0]
ldr $alo,[sp] @ tp[0] ldr $alo,[sp] @ tp[0]
ldr $nj,[$np,#-4] @ np[0]
ldr $tj,[sp,#4] @ tp[1] ldr $tj,[sp,#4] @ tp[1]
mov $ahi,#0 mov $ahi,#0
@ -132,13 +132,13 @@ bn_mul_mont:
.Linner: .Linner:
ldr $aj,[$ap],#4 @ ap[j],ap++ ldr $aj,[$ap],#4 @ ap[j],ap++
adds $alo,$ahi,$tj @ +=tp[j] adds $alo,$ahi,$tj @ +=tp[j]
ldr $nj,[$np],#4 @ np[j],np++
mov $ahi,#0 mov $ahi,#0
umlal $alo,$ahi,$aj,$bi @ ap[j]*bp[i] umlal $alo,$ahi,$aj,$bi @ ap[j]*bp[i]
ldr $nj,[$np],#4 @ np[j],np++
mov $nhi,#0 mov $nhi,#0
umlal $nlo,$nhi,$nj,$n0 @ np[j]*n0 umlal $nlo,$nhi,$nj,$n0 @ np[j]*n0
ldr $tj,[$tp,#8] @ tp[j+1]
adc $ahi,$ahi,#0 adc $ahi,$ahi,#0
ldr $tj,[$tp,#8] @ tp[j+1]
adds $nlo,$nlo,$alo adds $nlo,$nlo,$alo
str $nlo,[$tp],#4 @ tp[j-1]=,tp++ str $nlo,[$tp],#4 @ tp[j-1]=,tp++
adc $nlo,$nhi,#0 adc $nlo,$nhi,#0
@ -147,13 +147,13 @@ bn_mul_mont:
adds $nlo,$nlo,$ahi adds $nlo,$nlo,$ahi
mov $nhi,#0 mov $nhi,#0
adc $nhi,$nhi,#0
adds $nlo,$nlo,$tj
adc $nhi,$nhi,#0
ldr $tp,[$_bp] @ restore bp ldr $tp,[$_bp] @ restore bp
ldr $tj,[$_bpend] @ restore &bp[num] adc $nhi,$nhi,#0
str $nlo,[$num] @ tp[num-1]=
ldr $n0,[$_n0] @ restore n0 ldr $n0,[$_n0] @ restore n0
adds $nlo,$nlo,$tj
ldr $tj,[$_bpend] @ restore &bp[num]
adc $nhi,$nhi,#0
str $nlo,[$num] @ tp[num-1]=
str $nhi,[$num,#4] @ tp[num]= str $nhi,[$num,#4] @ tp[num]=
cmp $tp,$tj cmp $tp,$tj