diff options
author | Andy Polyakov <appro@openssl.org> | 2006-12-29 11:05:20 +0000 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2006-12-29 11:05:20 +0000 |
commit | 7321a84d4c3fc333b3bccf3feb5627d9d70e2e64 (patch) | |
tree | 6066603d0102c40c264529726d341a3048b64104 /crypto/bn | |
parent | bb11c2824642d8263f664f19ca870d5e99ebd485 (diff) |
Minor clean-up in crypto/bn/asm.
Diffstat (limited to 'crypto/bn')
-rw-r--r-- | crypto/bn/asm/alpha-mont.pl | 10 | ||||
-rwxr-xr-x | crypto/bn/asm/x86_64-mont.pl | 8 |
2 files changed, 15 insertions, 3 deletions
diff --git a/crypto/bn/asm/alpha-mont.pl b/crypto/bn/asm/alpha-mont.pl index a25f5cb085..d840937548 100644 --- a/crypto/bn/asm/alpha-mont.pl +++ b/crypto/bn/asm/alpha-mont.pl @@ -65,6 +65,7 @@ bn_mul_mont: .prologue 0 .align 4 + .set reorder sextl $num,$num mov 0,v0 cmplt $num,4,AT @@ -104,6 +105,7 @@ bn_mul_mont: s8addq $j,$np,$nj .align 4 .L1st: + .set noreorder ldq $aj,($aj) addl $j,1,$j ldq $nj,($nj) @@ -133,6 +135,7 @@ bn_mul_mont: nop unop bne $tj,.L1st + .set reorder addq $alo,$hi0,$lo0 addq $nlo,$hi1,$lo1 @@ -187,9 +190,9 @@ bn_mul_mont: mulq $nj,$m1,$nlo s8addq $j,$ap,$aj umulh $nj,$m1,$nhi - .set noreorder .align 4 .Linner: + .set noreorder ldq $tj,8($tp) #L0 nop #U1 ldq $aj,($aj) #L1 @@ -224,6 +227,7 @@ bn_mul_mont: addq $hi1,v0,$hi1 #U1 stq $lo1,-8($tp) #L1 bne $tj,.Linner #U0 + .set reorder ldq $tj,8($tp) addq $alo,$hi0,$lo0 @@ -304,7 +308,9 @@ bn_mul_mont: mov 1,v0 .align 4 -.Lexit: mov fp,sp +.Lexit: + .set noreorder + mov fp,sp /*ldq ra,0(sp)*/ ldq s3,8(sp) ldq s4,16(sp) diff --git a/crypto/bn/asm/x86_64-mont.pl b/crypto/bn/asm/x86_64-mont.pl index 84fea1a059..bc3fa83cf7 100755 --- a/crypto/bn/asm/x86_64-mont.pl +++ b/crypto/bn/asm/x86_64-mont.pl @@ -16,7 +16,13 @@ # dedicated squaring routine can provide further improvement... $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( $rp="%rdi"; # BN_ULONG *rp, |