Minor clean-up in crypto/bn/asm.

[openssl.git] / crypto / bn / asm / x86_64-mont.pl

diff --git a/crypto/bn/asm/x86_64-mont.pl b/crypto/bn/asm/x86_64-mont.pl
index 84fea1a..bc3fa83 100755 (executable)
--- 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;
 # 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,
 
 # int bn_mul_mont(
 $rp="%rdi";    # BN_ULONG *rp,