diff options
| author | Patrick Steuer <patrick.steuer@de.ibm.com> | 2019-11-01 23:29:04 +0100 |
|---|---|---|
| committer | Patrick Steuer <patrick.steuer@de.ibm.com> | 2019-11-03 11:25:31 +0100 |
| commit | 6f93f06135cbbd36c3fe98d63717e8303a5d559b (patch) | |
| tree | db5e5c6901587fdda868ad94aaab831e1f0943ea /crypto/perlasm | |
| parent | 909ef4de3187b752710b7ae69b6df5df51251600 (diff) | |
s390x assembly pack: enable clang build
clang imposes some restrictions on the assembler code that
gcc does not.
Signed-off-by: Patrick Steuer <patrick.steuer@de.ibm.com>
Reviewed-by: Richard Levitte <levitte@openssl.org>
(Merged from https://github.com/openssl/openssl/pull/10330)
Diffstat (limited to 'crypto/perlasm')
| -rw-r--r-- | crypto/perlasm/s390x.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/crypto/perlasm/s390x.pm b/crypto/perlasm/s390x.pm index 7fb55c780c..406aaa0f13 100644 --- a/crypto/perlasm/s390x.pm +++ b/crypto/perlasm/s390x.pm @@ -130,7 +130,7 @@ sub AUTOLOAD { confess(err("PARSE")) if (grep(!defined($_),@_)); my $token; for ($AUTOLOAD) { - $token=".$1" if (/^.*::([A-Z_]+)$/); # uppercase: directive + $token=lc(".$1") if (/^.*::([A-Z_]+)$/);# uppercase: directive $token="\t$1" if (/^.*::([a-z]+)$/); # lowercase: mnemonic confess(err("PARSE")) if (!defined($token)); } |