diff options
| author | Dr. Stephen Henson <steve@openssl.org> | 2010-02-03 18:19:22 +0000 |
|---|---|---|
| committer | Dr. Stephen Henson <steve@openssl.org> | 2010-02-03 18:19:22 +0000 |
| commit | c95bf51167f7d7b5d21d84bef02832bb896888de (patch) | |
| tree | 1c4d8a17c6aeb2ad3c76837d56ca7ddffaa07049 /crypto/perlasm | |
| parent | 2712a2f6256a69e914b174e1915b029b1f4b9554 (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; |