Accept digits in symbol names. Spotted by Brian Havard <brianh@kheldar.apana.org.au>
authorRichard Levitte <levitte@openssl.org>
Mon, 4 Jun 2001 16:34:31 +0000 (16:34 +0000)
committerRichard Levitte <levitte@openssl.org>
Mon, 4 Jun 2001 16:34:31 +0000 (16:34 +0000)
crypto/perlasm/x86unix.pl

index 573d4f1..9ceabf0 100644 (file)
@@ -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);