diff options
author | Richard Levitte <levitte@openssl.org> | 2016-03-11 00:49:47 +0100 |
---|---|---|
committer | Richard Levitte <levitte@openssl.org> | 2016-03-11 00:54:31 +0100 |
commit | a5aa63a456fb6e7129e3ba048b17d157df5a1bab (patch) | |
tree | e475bc701075d17526bc7229d2899cc7c3cce42c /crypto/poly1305 | |
parent | 603358de576217812cb3d752e97c78e476cdc879 (diff) |
Fix some assembler generating scripts for better unification
Some of these scripts would recognise an output parameter if it looks
like a file path. That works both in both the classic and new build
schemes. Some fo these scripts would only recognise it if it's a
basename (i.e. no directory component). Those need to be corrected,
as the output parameter in the new build scheme is more likely to
contain a directory component than not.
Reviewed-by: Andy Polyakov <appro@openssl.org>
Diffstat (limited to 'crypto/poly1305')
-rwxr-xr-x | crypto/poly1305/asm/poly1305-armv4.pl | 4 | ||||
-rwxr-xr-x | crypto/poly1305/asm/poly1305-s390x.pl | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/crypto/poly1305/asm/poly1305-armv4.pl b/crypto/poly1305/asm/poly1305-armv4.pl index 06301aa2e1..4c4b417fcd 100755 --- a/crypto/poly1305/asm/poly1305-armv4.pl +++ b/crypto/poly1305/asm/poly1305-armv4.pl @@ -22,8 +22,8 @@ # to improve Cortex-A9 result, but then A5/A7 loose more than 20%; $flavour = shift; -if ($flavour=~/^\w[\w\-]*\.\w+$/) { $output=$flavour; undef $flavour; } -else { while (($output=shift) && ($output!~/^\w[\w\-]*\.\w+$/)) {} } +if ($flavour=~/\w[\w\-]*\.\w+$/) { $output=$flavour; undef $flavour; } +else { while (($output=shift) && ($output!~/\w[\w\-]*\.\w+$/)) {} } if ($flavour && $flavour ne "void") { $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1; diff --git a/crypto/poly1305/asm/poly1305-s390x.pl b/crypto/poly1305/asm/poly1305-s390x.pl index 635db0e686..ce6a85f0af 100755 --- a/crypto/poly1305/asm/poly1305-s390x.pl +++ b/crypto/poly1305/asm/poly1305-s390x.pl @@ -27,7 +27,7 @@ if ($flavour =~ /3[12]/) { $g="g"; } -while (($output=shift) && ($output!~/^\w[\w\-]*\.\w+$/)) {} +while (($output=shift) && ($output!~/\w[\w\-]*\.\w+$/)) {} open STDOUT,">$output"; $sp="%r15"; |