Commit c95bf511 authored by Dr. Stephen Henson's avatar Dr. Stephen Henson
Browse files

don't assume 0x is at start of string

parent 2712a2f6

crypto/perlasm/x86_64-xlate.pl

+1 −1
Original line number Diff line number Diff line
@@ -578,7 +578,7 @@ my %globals; 
				    my $last = pop(@arr);

				    my $conv = sub  {	my $var=shift;

							$var=~s/^(0b[0-1]+)/oct($1)/eig;

							$var=~s/^0x([0-9a-f]+)/0$1h/ig if ($masm);

							$var=~s/0x([0-9a-f]+)/0$1h/ig if ($masm);

							if ($sz eq "D" && ($current_segment=~/.[px]data/ || $dir eq ".rva"))

							{ $var=~s/([_a-z\$\@][_a-z0-9\$\@]*)/$nasm?"$1 wrt ..imagebase":"imagerel $1"/egi; }

							$var;