From: Richard Levitte <levitte@openssl.org>
Date: Mon, 4 Jun 2001 16:34:31 +0000 (+0000)
Subject: Accept digits in symbol names.  Spotted by Brian Havard <brianh@kheldar.apana.org.au>
X-Git-Tag: OpenSSL_0_9_6c~182^2~132
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=20251f01ea4f78a95bd5fa4e0657f11313a68f11;p=oweals%2Fopenssl.git

Accept digits in symbol names.  Spotted by Brian Havard <brianh@kheldar.apana.org.au>
---

diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl
index 573d4f1126..9ceabf0705 100644
--- a/crypto/perlasm/x86unix.pl
+++ b/crypto/perlasm/x86unix.pl
@@ -81,7 +81,7 @@ sub main'DWP
 	local($addr,$reg1,$reg2,$idx)=@_;
 
 	$ret="";
-	$addr =~ s/(^|[+ \t])([A-Za-z_]+)($|[+ \t])/$1$under$2$3/;
+	$addr =~ s/(^|[+ \t])([A-Za-z_]+[A-Za-z0-9_]+)($|[+ \t])/$1$under$2$3/;
 	$reg1="$regs{$reg1}" if defined($regs{$reg1});
 	$reg2="$regs{$reg2}" if defined($regs{$reg2});
 	$ret.=$addr if ($addr ne "") && ($addr ne 0);