diff options
author | Andy Polyakov <appro@openssl.org> | 2009-05-02 21:18:52 +0000 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2009-05-02 21:18:52 +0000 |
commit | 065c5d6328e61814b62a97f1586f5d0c0905071e (patch) | |
tree | 922999dba4422bf5707e101259e33191e5011795 /crypto/perlasm | |
parent | f00fdcd14dd82410fccf5a8b41e7ea38a90e7e79 (diff) |
Engage cmll-x86_64.pl in Win64 build and make it compile correctly.
Diffstat (limited to 'crypto/perlasm')
-rwxr-xr-x | crypto/perlasm/x86_64-xlate.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/crypto/perlasm/x86_64-xlate.pl b/crypto/perlasm/x86_64-xlate.pl index 6776bf3ccd..b4fe821704 100755 --- a/crypto/perlasm/x86_64-xlate.pl +++ b/crypto/perlasm/x86_64-xlate.pl @@ -575,8 +575,8 @@ my %globals; my @arr = split(',',$line); 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/^(0b[0-1]+)/oct($1)/eig; + $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; |