diff options
author | Andy Polyakov <appro@openssl.org> | 2008-01-13 17:42:04 +0000 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2008-01-13 17:42:04 +0000 |
commit | abe7f8b457c29af112005e821b57c0a355df82c5 (patch) | |
tree | 08cbc80a4d96fc0c183709def3ff9ca6b0db7cda /crypto/whrlpool/asm | |
parent | a078befcbef26abe2798504c81a787ea0967ba5d (diff) |
Make all x86_64 modules independent on current working directory.
Diffstat (limited to 'crypto/whrlpool/asm')
-rw-r--r-- | crypto/whrlpool/asm/wp-x86_64.pl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/crypto/whrlpool/asm/wp-x86_64.pl b/crypto/whrlpool/asm/wp-x86_64.pl index 3855382036..41bf3b2025 100644 --- a/crypto/whrlpool/asm/wp-x86_64.pl +++ b/crypto/whrlpool/asm/wp-x86_64.pl @@ -31,7 +31,13 @@ # operand. $output=shift; -open STDOUT,"| $^X ../perlasm/x86_64-xlate.pl $output"; + +$0 =~ m/(.*[\/\\])[^\/\\]+$/; my $dir=$1; my $xlate; +( $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"; sub L() { $code.=".byte ".join(',',@_)."\n"; } sub LL(){ $code.=".byte ".join(',',@_).",".join(',',@_)."\n"; } |