diff options
Diffstat (limited to 'crypto/perlasm')
-rw-r--r-- | crypto/perlasm/x86ms.pl | 2 | ||||
-rw-r--r-- | crypto/perlasm/x86nasm.pl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/crypto/perlasm/x86ms.pl b/crypto/perlasm/x86ms.pl index 8f77fed81e..41fe9715de 100644 --- a/crypto/perlasm/x86ms.pl +++ b/crypto/perlasm/x86ms.pl @@ -92,7 +92,7 @@ sub get_mem $reg2=&conv($1); $addr="_$2"; } - elsif ($addr =~ /^[_a-zA-Z]$/) + elsif ($addr =~ /^[_a-z][_a-z0-9]*$/i) { $addr="_$addr"; } diff --git a/crypto/perlasm/x86nasm.pl b/crypto/perlasm/x86nasm.pl index 1b6e94c17e..9792f13e1f 100644 --- a/crypto/perlasm/x86nasm.pl +++ b/crypto/perlasm/x86nasm.pl @@ -106,7 +106,7 @@ sub get_mem $reg2=&conv($1); $addr="$under$2"; } - elsif ($addr =~ /^[_a-zA-Z]$/) + elsif ($addr =~ /^[_a-z][_a-z0-9]*$/i) { $addr="$under$addr"; } |