mirrors/openssl
0
0
Fork 0
mirror of https://github.com/openssl/openssl.git synced 2024-12-14 12:34:02 +08:00
Code Issues Packages Projects Releases Wiki Activity

perlasm/x86* update: support for 3 and 4 argument instructions.

Browse Source
This commit is contained in:
Andy Polyakov 2008-12-17 19:56:48 +00:00
parent 6786f52ada
commit 4db4882402
4 changed files with 33 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -627,44 +627,42 @@ while($line=<>) {
undef $label;
undef $opcode;
undef $dst;
undef $src;
undef $sz;
undef @args;
if ($label=label->re(\$line)) { print $label->out(); }
if (directive->re(\$line)) {
printf "%s",directive->out();
} elsif ($opcode=opcode->re(\$line)) { ARGUMENT: {
} elsif ($opcode=opcode->re(\$line)) { ARGUMENT: while (1) {
my $arg;
if ($src=register->re(\$line)) { opcode->size($src->size()); }
elsif ($src=const->re(\$line)) { }
elsif ($src=ea->re(\$line)) { }
elsif ($src=expr->re(\$line)) { }
if ($arg=register->re(\$line)) { opcode->size($arg->size()); }
elsif ($arg=const->re(\$line)) { }
elsif ($arg=ea->re(\$line)) { }
elsif ($arg=expr->re(\$line)) { }
else { last ARGUMENT; }
push @args,$arg;
last ARGUMENT if ($line !~ /^,/);
$line = substr($line,1); $line =~ s/^\s+//;
if ($dst=register->re(\$line)) { opcode->size($dst->size()); }
elsif ($dst=const->re(\$line)) { }
elsif ($dst=ea->re(\$line)) { }
$line =~ s/^,\s*//;
} # ARGUMENT:
$sz=opcode->size();
if (defined($dst)) {
if ($#args>=0) {
my $insn;
if ($gas) {
printf "\t%s\t%s,%s", $opcode->out($dst->size()),
$src->out($sz),$dst->out($sz);
$insn = $opcode->out($#args>=1?$args[$#args]->size():$sz);
} else {
$insn = $opcode->out();
@args = reverse(@args);
undef $sz if ($nasm && $opcode->mnemonic() eq "lea");
printf "\t%s\t%s,%s", $opcode->out(),
$dst->out($sz),$src->out($sz);
}
} elsif (defined($src)) {
printf "\t%s\t%s",$opcode->out(),$src->out($sz);
for (@args) { $_ = $_->out($sz); }
printf "\t%s\t%s", $insn, join(",",@args);
} else {
printf "\t%s",$opcode->out();
}

9
crypto/perlasm/x86asm.pl
View File

@ -17,7 +17,7 @@ $i386=0;
sub ::AUTOLOAD
{ my $opcode = $AUTOLOAD;
die "more than 2 arguments passed to $opcode" if ($#_>1);
die "more than 4 arguments passed to $opcode" if ($#_>3);
$opcode =~ s/.*:://;
if ($opcode =~ /^push/) { $stack+=4; }
@ -66,8 +66,8 @@ sub ::rotr { &ror(@_); }
sub ::exch { &xchg(@_); }
sub ::halt { &hlt; }
sub ::movz { &movzx(@_); }
sub ::pushf { &::pushfd; }
sub ::popf { &::popfd; }
sub ::pushf { &pushfd; }
sub ::popf { &popfd; }
# 3 argument instructions
sub ::movq
@ -79,9 +79,6 @@ sub ::movq
else
{ &::generic("movq",@_); }
}
sub ::pshufw { &::emit("pshufw",@_); }
sub ::shld { &::emit("shld",@_); }
sub ::shrd { &::emit("shrd",@_); }
# label management
$lbdecor="L"; # local label decoration, set by package

39
crypto/perlasm/x86gas.pl
View File

@ -25,24 +25,20 @@ sub opsize()
# expand opcode with size suffix;
# prefix numeric constants with $;
sub ::generic
{ my($opcode,$dst,$src)=@_;
my($tmp,$suffix,@arg);
{ my($opcode,@arg)=@_;
my($suffix,$dst,$src);
if (defined($src))
{ $src =~ s/^(e?[a-dsixphl]{2})$/%$1/o;
$src =~ s/^(x?mm[0-7])$/%$1/o;
$src =~ s/^(\-?[0-9]+)$/\$$1/o;
$src =~ s/^(\-?0x[0-9a-f]+)$/\$$1/o;
push(@arg,$src);
}
if (defined($dst))
{ $dst =~ s/^(\*?)(e?[a-dsixphl]{2})$/$1%$2/o;
$dst =~ s/^(x?mm[0-7])$/%$1/o;
$dst =~ s/^(\-?[0-9]+)$/\$$1/o if(!defined($src));
$dst =~ s/^(\-?0x[0-9a-f]+)$/\$$1/o if(!defined($src));
push(@arg,$dst);
@arg=reverse(@arg);
for (@arg)
{ s/^(\*?)(e?[a-dsixphl]{2})$/$1%$2/o; # gp registers
s/^([xy]?mm[0-7])$/%$1/o; # xmm/mmx registers
s/^(\-?[0-9]+)$/\$$1/o; # constants
s/^(\-?0x[0-9a-f]+)$/\$$1/o; # constants
}
$dst = $arg[$#arg] if ($#arg>=0);
$src = $arg[$#arg-1] if ($#arg>=1);
if ($dst =~ m/^%/o) { $suffix=&opsize($dst); }
elsif ($src =~ m/^%/o) { $suffix=&opsize($src); }
else { $suffix="l"; }
@ -71,19 +67,6 @@ sub ::jmp_ptr { &::generic("jmp","*$_[0]"); }
*::bswap = sub { &::emit("bswap","%$_[0]"); } if (!$::i386);
*::pshufw = sub
{ my($dst,$src,$magic)=@_;
&::emit("pshufw","\$$magic","%$src","%$dst");
};
*::shld = sub
{ my($dst,$src,$bits)=@_;
&::emit("shldl",$bits eq "cl"?"%cl":"\$$bits","%$src","%$dst");
};
*::shrd = sub
{ my($dst,$src,$bits)=@_;
&::emit("shrdl",$bits eq "cl"?"%cl":"\$$bits","%$src","%$dst");
};
sub ::DWP
{ my($addr,$reg1,$reg2,$idx)=@_;
my $ret="";

3
crypto/perlasm/x86masm.pl
View File

@ -14,8 +14,7 @@ sub ::generic
{ my ($opcode,@arg)=@_;
# fix hexadecimal constants
$arg[0] =~ s/0x([0-9a-f]+)/0$1h/oi if (defined($arg[0]));
$arg[1] =~ s/0x([0-9a-f]+)/0$1h/oi if (defined($arg[1]));
for (@arg) { s/0x([0-9a-f]+)/0$1h/oi; }
# fix xmm references
$arg[0] =~ s/\b[A-Z]+WORD\s+PTR/XMMWORD PTR/i if ($arg[1]=~/\bxmm[0-7]\b/i);