From 556b8f3f77d94b4d720e4ea488cf557a952fdc9b Mon Sep 17 00:00:00 2001
From: Andy Polyakov <appro@openssl.org>
Date: Sun, 26 Dec 2004 10:58:39 +0000
Subject: Engage AES x86 assembler module for COFF and a.out targets.

---
 crypto/perlasm/x86ms.pl   | 2 +-
 crypto/perlasm/x86nasm.pl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'crypto/perlasm')

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";
 		}
-- 
cgit v1.2.3