diff options
author | Andy Polyakov <appro@openssl.org> | 2013-01-22 22:11:31 +0100 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2013-01-22 22:27:28 +0100 |
commit | 46bf83f07ae1ba7fda435c90af93960e77159f4b (patch) | |
tree | ac19e38c07f1a4f6bce530ccc46bc47f01303448 /crypto/whrlpool | |
parent | 7c47f0d9468b13d1a7de4bebcc46142a02e6acc9 (diff) |
x86_64 assembly pack: make Windows build more robust.
PR: 2963 and a number of others
Diffstat (limited to 'crypto/whrlpool')
-rw-r--r-- | crypto/whrlpool/asm/wp-x86_64.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/crypto/whrlpool/asm/wp-x86_64.pl b/crypto/whrlpool/asm/wp-x86_64.pl index 855aabc892..5a3bdbcf20 100644 --- a/crypto/whrlpool/asm/wp-x86_64.pl +++ b/crypto/whrlpool/asm/wp-x86_64.pl @@ -41,7 +41,8 @@ $0 =~ m/(.*[\/\\])[^\/\\]+$/; my $dir=$1; my $xlate; ( $xlate="${dir}../../perlasm/x86_64-xlate.pl" and -f $xlate) or die "can't locate x86_64-xlate.pl"; -open STDOUT,"| \"$^X\" $xlate $flavour $output"; +open OUT,"| \"$^X\" $xlate $flavour $output"; +*STDOUT=*OUT; sub L() { $code.=".byte ".join(',',@_)."\n"; } sub LL(){ $code.=".byte ".join(',',@_).",".join(',',@_)."\n"; } |