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

x86_64-xlate.pl: fix jrcxz in nasm case.

Browse Source
This commit is contained in:
Andy Polyakov 2013-10-03 00:26:09 +02:00
parent 7f893258f6
commit 667053a2f3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -250,8 +250,8 @@ my %globals;
# in $self->{label}, new gas requires sign extension... # in $self->{label}, new gas requires sign extension...
use integer; use integer;
$self->{label} =~ s/(?<![\w\$\.])(0x?[0-9a-f]+)/oct($1)/egi; $self->{label} =~ s/(?<![\w\$\.])(0x?[0-9a-f]+)/oct($1)/egi;
$self->{label} =~ s/([0-9]+\s*[\*\/\%]\s*[0-9]+)/eval($1)/eg; $self->{label} =~ s/\b([0-9]+\s*[\*\/\%]\s*[0-9]+)\b/eval($1)/eg;
$self->{label} =~ s/([0-9]+)/$1<<32>>32/eg; $self->{label} =~ s/\b([0-9]+)\b/$1<<32>>32/eg;
if (!$self->{label} && $self->{index} && $self->{scale}==1 && if (!$self->{label} && $self->{index} && $self->{scale}==1 &&
$self->{base} =~ /(rbp|r13)/) { $self->{base} =~ /(rbp|r13)/) {
@ -418,7 +418,7 @@ my %globals;
} }
sub out { sub out {
my $self = shift; my $self = shift;
if ($nasm && opcode->mnemonic()=~m/^j/) { if ($nasm && opcode->mnemonic()=~m/^j(?![re]cxz)/) {
"NEAR ".$self->{value}; "NEAR ".$self->{value};
} else { } else {
$self->{value}; $self->{value};