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

perlasm/x86gas.pl: give a hand old assemblers assembling loop instruction

Browse Source 
[from HEAD].
This commit is contained in:
Andy Polyakov 2011-12-09 19:16:35 +00:00
parent b140ae9137
commit edcba19c23
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
crypto/perlasm/x86gas.pl
View File

@ -45,10 +45,8 @@ sub ::generic
undef $suffix if ($dst =~ m/^%[xm]/o || $src =~ m/^%[xm]/o); undef $suffix if ($dst =~ m/^%[xm]/o || $src =~ m/^%[xm]/o);
if ($#_==0) { &::emit($opcode); } if ($#_==0) { &::emit($opcode); }
elsif ($opcode =~ m/^j/o && $#_==1) { &::emit($opcode,@arg); } elsif ($#_==1 && $opcode =~ m/^(call|clflush|j|loop|set)/o)
elsif ($opcode eq "call" && $#_==1) { &::emit($opcode,@arg); } { &::emit($opcode,@arg); }
elsif ($opcode eq "clflush" && $#_==1){ &::emit($opcode,@arg); }
elsif ($opcode =~ m/^set/&& $#_==1) { &::emit($opcode,@arg); }
else { &::emit($opcode.$suffix,@arg);} else { &::emit($opcode.$suffix,@arg);}
1; 1;