From: Richard Levitte Date: Mon, 4 Jun 2001 16:34:31 +0000 (+0000) Subject: Accept digits in symbol names. Spotted by Brian Havard X-Git-Tag: OpenSSL_0_9_6c~182^2~132 X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=commitdiff_plain;h=20251f01ea4f78a95bd5fa4e0657f11313a68f11;ds=sidebyside Accept digits in symbol names. Spotted by Brian Havard --- 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);