diff options
| author | Dr. Stephen Henson <steve@openssl.org> | 2010-02-03 18:19:05 +0000 |
|---|---|---|
| committer | Dr. Stephen Henson <steve@openssl.org> | 2010-02-03 18:19:05 +0000 |
| commit | aa7f5baad27729b819bced7040957dc401ed2b46 (patch) | |
| tree | 9698a715137b68844c718b109856b57a93d749f4 /crypto/perlasm | |
| parent | 45acdd6f6dde19b4f6a2c5162c1019aff6670916 (diff) | |
don't assume 0x is at start of string
Diffstat (limited to 'crypto/perlasm')
| -rwxr-xr-x | crypto/perlasm/x86_64-xlate.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/crypto/perlasm/x86_64-xlate.pl b/crypto/perlasm/x86_64-xlate.pl index e4fc17bdbd..d89765d7ee 100755 --- a/crypto/perlasm/x86_64-xlate.pl +++ b/crypto/perlasm/x86_64-xlate.pl @@ -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; |