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

Minor clean-up in crypto/bn/asm.

Browse Source
This commit is contained in:
Andy Polyakov 2006-12-29 11:05:20 +00:00
parent bb11c28246
commit 7321a84d4c
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
crypto/bn/asm/alpha-mont.pl
View File

@ -65,6 +65,7 @@ bn_mul_mont:
.prologue 0 .prologue 0
.align 4 .align 4
.set reorder
sextl $num,$num sextl $num,$num
mov 0,v0 mov 0,v0
cmplt $num,4,AT cmplt $num,4,AT
@ -104,6 +105,7 @@ bn_mul_mont:
s8addq $j,$np,$nj s8addq $j,$np,$nj
.align 4 .align 4
.L1st: .L1st:
.set noreorder
ldq $aj,($aj) ldq $aj,($aj)
addl $j,1,$j addl $j,1,$j
ldq $nj,($nj) ldq $nj,($nj)
@ -133,6 +135,7 @@ bn_mul_mont:
nop nop
unop unop
bne $tj,.L1st bne $tj,.L1st
.set reorder
addq $alo,$hi0,$lo0 addq $alo,$hi0,$lo0
addq $nlo,$hi1,$lo1 addq $nlo,$hi1,$lo1
@ -187,9 +190,9 @@ bn_mul_mont:
mulq $nj,$m1,$nlo mulq $nj,$m1,$nlo
s8addq $j,$ap,$aj s8addq $j,$ap,$aj
umulh $nj,$m1,$nhi umulh $nj,$m1,$nhi
.set noreorder
.align 4 .align 4
.Linner: .Linner:
.set noreorder
ldq $tj,8($tp) #L0 ldq $tj,8($tp) #L0
nop #U1 nop #U1
ldq $aj,($aj) #L1 ldq $aj,($aj) #L1
@ -224,6 +227,7 @@ bn_mul_mont:
addq $hi1,v0,$hi1 #U1 addq $hi1,v0,$hi1 #U1
stq $lo1,-8($tp) #L1 stq $lo1,-8($tp) #L1
bne $tj,.Linner #U0 bne $tj,.Linner #U0
.set reorder
ldq $tj,8($tp) ldq $tj,8($tp)
addq $alo,$hi0,$lo0 addq $alo,$hi0,$lo0
@ -304,7 +308,9 @@ bn_mul_mont:
mov 1,v0 mov 1,v0
.align 4 .align 4
.Lexit: mov fp,sp .Lexit:
.set noreorder
mov fp,sp
/*ldq ra,0(sp)*/ /*ldq ra,0(sp)*/
ldq s3,8(sp) ldq s3,8(sp)
ldq s4,16(sp) ldq s4,16(sp)

8
crypto/bn/asm/x86_64-mont.pl
View File

@ -16,7 +16,13 @@
# dedicated squaring routine can provide further improvement... # dedicated squaring routine can provide further improvement...
$output=shift; $output=shift;
open STDOUT,"| $^X ../perlasm/x86_64-xlate.pl $output";
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
( $xlate="${dir}x86_64-xlate.pl" and -f $xlate ) or
( $xlate="${dir}../../perlasm/x86_64-xlate.pl" and -f $xlate) or
die "can't locate x86_64-xlate.pl";
open STDOUT,"| $^X $xlate $output";
# int bn_mul_mont( # int bn_mul_mont(
$rp="%rdi"; # BN_ULONG *rp, $rp="%rdi"; # BN_ULONG *rp,