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

don't assume 0x is at start of string

Browse Source
This commit is contained in:
Dr. Stephen Henson 2010-02-03 18:19:05 +00:00
parent 45acdd6f6d
commit aa7f5baad2
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/x86_64-xlate.pl
View File

@ -578,7 +578,7 @@ my %globals;
my $last = pop(@arr); my $last = pop(@arr);
my $conv = sub { my $var=shift; my $conv = sub { my $var=shift;
$var=~s/^(0b[0-1]+)/oct($1)/eig; $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")) 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=~s/([_a-z\$\@][_a-z0-9\$\@]*)/$nasm?"$1 wrt ..imagebase":"imagerel $1"/egi; }
$var; $var;