diff options
| author | Richard Levitte <levitte@openssl.org> | 2001-06-04 16:34:31 +0000 |
|---|---|---|
| committer | Richard Levitte <levitte@openssl.org> | 2001-06-04 16:34:31 +0000 |
| commit | 20251f01ea4f78a95bd5fa4e0657f11313a68f11 (patch) | |
| tree | 150e337d7467fa2b31be82d2a4f714c1e9b329d1 /crypto/perlasm | |
| parent | 528f6b81db3c746542b1ff8d4e32189b33d6d400 (diff) | |
| download | openssl-new-20251f01ea4f78a95bd5fa4e0657f11313a68f11.tar.gz | |
Accept digits in symbol names. Spotted by Brian Havard <brianh@kheldar.apana.org.au>
Diffstat (limited to 'crypto/perlasm')
| -rw-r--r-- | crypto/perlasm/x86unix.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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); |