diff options
| author | Andy Polyakov <appro@openssl.org> | 2011-07-01 21:22:13 +0000 |
|---|---|---|
| committer | Andy Polyakov <appro@openssl.org> | 2011-07-01 21:22:13 +0000 |
| commit | 250bb54dba089a1b56af7be7438c199688af476c (patch) | |
| tree | 8f6f9a7fe3fb03b5b48c438d10967a70a078dc95 /crypto/perlasm | |
| parent | 847d05d0b4208a8571da653993f9a065aa3e83da (diff) | |
x86_64-xlate.pl: masm-specific update.
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 dd600be7b8..616e263d0a 100755 --- a/crypto/perlasm/x86_64-xlate.pl +++ b/crypto/perlasm/x86_64-xlate.pl @@ -274,7 +274,7 @@ my %globals; $self->{label} =~ s/\./\$/g; $self->{label} =~ s/(?<![\w\$\.])0x([0-9a-f]+)/0$1h/ig; $self->{label} = "($self->{label})" if ($self->{label} =~ /[\*\+\-\/]/); - $sz="q" if ($self->{asterisk}); + $sz="q" if ($self->{asterisk} || opcode->mnemonic() eq "movq"); if (defined($self->{index})) { sprintf "%s[%s%s*%d%s]",$szmap{$sz}, @@ -630,7 +630,7 @@ my %globals; $v.="common $prefix@str[0] @str[1]"; } else { $v="$current_segment\tENDS\n" if ($current_segment); - $current_segment = ".data"; + $current_segment = "_DATA"; $v.="$current_segment\tSEGMENT\n"; $v.="COMM @str[0]:DWORD:".@str[1]/4; } |