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

perlasm/x86_64-xlate.pl: extend SSE>2 to ml64.

Browse Source
This commit is contained in:
Andy Polyakov 2010-07-26 21:45:38 +00:00
parent 02f358da49
commit a9e790b95a
1 changed files with 37 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -121,7 +121,7 @@ my %globals;
$self->{sz} = "b"; $self->{sz} = "b";
} elsif ($self->{op} =~ /call|jmp/) { } elsif ($self->{op} =~ /call|jmp/) {
$self->{sz} = ""; $self->{sz} = "";
} elsif ($self->{op} =~ /^p/ && $' !~ /^(ush|op)/) { # SSEn } elsif ($self->{op} =~ /^p/ && $' !~ /^(ush|op|insrw)/) { # SSEn
$self->{sz} = ""; $self->{sz} = "";
} elsif ($self->{op} =~ /([a-z]{3,})([qlwb])$/) { } elsif ($self->{op} =~ /([a-z]{3,})([qlwb])$/) {
$self->{op} = $1; $self->{op} = $1;
@ -264,7 +264,7 @@ my %globals;
} }
} else { } else {
%szmap = ( b=>"BYTE$PTR", w=>"WORD$PTR", l=>"DWORD$PTR", %szmap = ( b=>"BYTE$PTR", w=>"WORD$PTR", l=>"DWORD$PTR",
q=>"QWORD$PTR",o=>"OWORD$PTR" ); q=>"QWORD$PTR",o=>"OWORD$PTR",x=>"XMMWORD$PTR" );
$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;
@ -634,62 +634,62 @@ sub rex {
} }
} }
# older gas doesn't handle SSE>2 instructions # older gas and ml64 don't handle SSE>2 instructions
my %regrm = ( "%eax"=>0, "%ecx"=>1, "%edx"=>2, "%ebx"=>3, my %regrm = ( "%eax"=>0, "%ecx"=>1, "%edx"=>2, "%ebx"=>3,
"%esp"=>4, "%ebp"=>5, "%esi"=>6, "%edi"=>7 ); "%esp"=>4, "%ebp"=>5, "%esi"=>6, "%edi"=>7 );
my $pextrd = sub { my $pextrd = sub {
my ($imm,$src,$dst) = @_; if (shift =~ /\$([0-9]+),%xmm([0-9]+),(%\w+)/) {
if ("$imm:$src" =~ /\$([0-9]+):%xmm([0-9]+)/) {
my @opcode=(0x66); my @opcode=(0x66);
$imm=$1; $imm=$1;
$src=$2; $src=$2;
$dst=$3;
if ($dst =~ /%r([0-9]+)d/) { $dst = $1; } if ($dst =~ /%r([0-9]+)d/) { $dst = $1; }
elsif ($dst =~ /%e/) { $dst = $regrm{$dst}; } elsif ($dst =~ /%e/) { $dst = $regrm{$dst}; }
rex(\@opcode,$src,$dst); rex(\@opcode,$src,$dst);
push @opcode,0x0f,0x3a,0x16; push @opcode,0x0f,0x3a,0x16;
push @opcode,0xc0|(($src&7)<<3)|($dst&7); # ModR/M push @opcode,0xc0|(($src&7)<<3)|($dst&7); # ModR/M
push @opcode,$imm; push @opcode,$imm;
printf "\t.byte\t%s\n",join(',',@opcode); @opcode;
} else { } else {
printf "\tpextrd\t%s\n",join(',',@_); ();
} }
} if ($gas); };
my $pinsrd = sub { my $pinsrd = sub {
my ($imm,$src,$dst) = @_; if (shift =~ /\$([0-9]+),(%\w+),%xmm([0-9]+)/) {
if ("$imm:$dst" =~ /\$([0-9]+):%xmm([0-9]+)/) {
my @opcode=(0x66); my @opcode=(0x66);
$imm=$1; $imm=$1;
$dst=$2; $src=$2;
$dst=$3;
if ($src =~ /%r([0-9]+)d/) { $src = $1; } if ($src =~ /%r([0-9]+)d/) { $src = $1; }
elsif ($src =~ /%e/) { $src = $regrm{$src}; } elsif ($src =~ /%e/) { $src = $regrm{$src}; }
rex(\@opcode,$dst,$src); rex(\@opcode,$dst,$src);
push @opcode,0x0f,0x3a,0x22; push @opcode,0x0f,0x3a,0x22;
push @opcode,0xc0|(($dst&7)<<3)|($src&7); # ModR/M push @opcode,0xc0|(($dst&7)<<3)|($src&7); # ModR/M
push @opcode,$imm; push @opcode,$imm;
printf "\t.byte\t%s\n",join(',',@opcode); @opcode;
} else { } else {
printf "\tpinsrd\t%s\n",join(',',@_); ();
} }
} if ($gas); };
my $pshufb = sub { my $pshufb = sub {
my ($src,$dst) = @_; if (shift =~ /%xmm([0-9]+),%xmm([0-9]+)/) {
if ("$dst:$src" =~ /%xmm([0-9]+):%xmm([0-9]+)/) {
my @opcode=(0x66); my @opcode=(0x66);
rex(\@opcode,$1,$2); rex(\@opcode,$2,$1);
push @opcode,0x0f,0x38,0x00; push @opcode,0x0f,0x38,0x00;
push @opcode,0xc0|($2&7)|(($1&7)<<3); # ModR/M push @opcode,0xc0|($1&7)|(($2&7)<<3); # ModR/M
printf "\t.byte\t%s\n",join(',',@opcode); @opcode;
} else { } else {
printf "\tpshufb\t%s\n",join(',',@_); ();
} }
} if ($gas); };
if ($nasm) { if ($nasm) {
print <<___; print <<___;
default rel default rel
%define XMMWORD
___ ___
} elsif ($masm) { } elsif ($masm) {
print <<___; print <<___;
@ -706,14 +706,22 @@ while($line=<>) {
undef $label; undef $label;
undef $opcode; undef $opcode;
undef $sz;
undef @args; undef @args;
if ($label=label->re(\$line)) { print $label->out(); } if ($label=label->re(\$line)) { print $label->out(); }
if (directive->re(\$line)) { if (directive->re(\$line)) {
printf "%s",directive->out(); printf "%s",directive->out();
} elsif ($opcode=opcode->re(\$line)) { ARGUMENT: while (1) { } elsif ($opcode=opcode->re(\$line)) {
my $asm = eval("\$".$opcode->mnemonic());
undef @bytes;
if ((ref($asm) eq 'CODE') && scalar(@bytes=&$asm($line))) {
print $gas?".byte\t":"DB\t",join(',',@bytes),"\n";
next;
}
ARGUMENT: while (1) {
my $arg; my $arg;
if ($arg=register->re(\$line)) { opcode->size($arg->size()); } if ($arg=register->re(\$line)) { opcode->size($arg->size()); }
@ -729,22 +737,21 @@ while($line=<>) {
$line =~ s/^,\s*//; $line =~ s/^,\s*//;
} # ARGUMENT: } # ARGUMENT:
$sz=opcode->size();
if ($#args>=0) { if ($#args>=0) {
my $insn; my $insn;
my $sz=opcode->size();
if ($gas) { if ($gas) {
$insn = $opcode->out($#args>=1?$args[$#args]->size():$sz); $insn = $opcode->out($#args>=1?$args[$#args]->size():$sz);
@args = map($_->out($sz),@args); @args = map($_->out($sz),@args);
my $asm = eval("\$$insn"); printf "\t%s\t%s",$insn,join(",",@args);
if (ref($asm) eq 'CODE') { &$asm(@args); }
else { printf "\t%s\t%s",$insn,join(",",@args); }
} else { } else {
$insn = $opcode->out(); $insn = $opcode->out();
foreach (@args) { foreach (@args) {
my $arg = $_->out(); my $arg = $_->out();
if ($arg =~ /xmm/) { $insn.=$sz; $sz="o"; last; } # $insn.=$sz compensates for movq, pinsrw, ...
if ($arg =~ /mm/) { $insn.=$sz; $sz="q"; last; } if ($arg =~ /^xmm[0-9]+$/) { $insn.=$sz; $sz="x" if(!$sz); last; }
if ($arg =~ /^mm[0-9]+$/) { $insn.=$sz; $sz="q" if(!$sz); last; }
} }
@args = reverse(@args); @args = reverse(@args);
undef $sz if ($nasm && $opcode->mnemonic() eq "lea"); undef $sz if ($nasm && $opcode->mnemonic() eq "lea");