generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
This commit is contained in:
Richard Levitte 2001-06-04 16:34:31 +00:00
parent 528f6b81db
commit 20251f01ea
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
crypto/perlasm/x86unix.pl
View File

@ -81,7 +81,7 @@ sub main'DWP
local($addr,$reg1,$reg2,$idx)=@_; local($addr,$reg1,$reg2,$idx)=@_;
$ret=""; $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}); $reg1="$regs{$reg1}" if defined($regs{$reg1});
$reg2="$regs{$reg2}" if defined($regs{$reg2}); $reg2="$regs{$reg2}" if defined($regs{$reg2});
$ret.=$addr if ($addr ne "") && ($addr ne 0); $ret.=$addr if ($addr ne "") && ($addr ne 0);