Commit 20251f01 authored by Richard Levitte's avatar Richard Levitte
Browse files

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

parent 528f6b81

crypto/perlasm/x86unix.pl

+1 −1
Original line number Diff line number Diff line
@@ -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);