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

x86_64-xlate.pl: masm-specific update.

Browse Source
This commit is contained in:
Andy Polyakov 2011-07-01 21:21:14 +00:00
parent 1f77a27c16
commit 94c64f9a1c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
crypto/perlasm/x86_64-xlate.pl
View File

@ -274,7 +274,7 @@ my %globals;
$self->{label} =~ s/\./\$/g; $self->{label} =~ s/\./\$/g;
$self->{label} =~ s/(?<![\w\$\.])0x([0-9a-f]+)/0$1h/ig; $self->{label} =~ s/(?<![\w\$\.])0x([0-9a-f]+)/0$1h/ig;
$self->{label} = "($self->{label})" if ($self->{label} =~ /[\*\+\-\/]/); $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})) { if (defined($self->{index})) {
sprintf "%s[%s%s*%d%s]",$szmap{$sz}, sprintf "%s[%s%s*%d%s]",$szmap{$sz},
@ -630,7 +630,7 @@ my %globals;
$v.="common $prefix@str[0] @str[1]"; $v.="common $prefix@str[0] @str[1]";
} else { } else {
$v="$current_segment\tENDS\n" if ($current_segment); $v="$current_segment\tENDS\n" if ($current_segment);
$current_segment = ".data"; $current_segment = "_DATA";
$v.="$current_segment\tSEGMENT\n"; $v.="$current_segment\tSEGMENT\n";
$v.="COMM @str[0]:DWORD:".@str[1]/4; $v.="COMM @str[0]:DWORD:".@str[1]/4;
} }