diff options
author | Andy Polyakov <appro@openssl.org> | 2011-12-09 19:16:20 +0000 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2011-12-09 19:16:20 +0000 |
commit | 7ffa48ad38131babb719130adb521bdadbe2d744 (patch) | |
tree | 98017bb0dcc7e528c264475bdad725fc4a298d1c /crypto/perlasm | |
parent | 5711dd8eacf9e3c97fec97389e95cc84601d3f88 (diff) | |
download | openssl-7ffa48ad38131babb719130adb521bdadbe2d744.tar.gz |
perlasm/x86gas.pl: give a hand old assemblers assembling loop instruction.
Diffstat (limited to 'crypto/perlasm')
-rw-r--r-- | crypto/perlasm/x86gas.pl | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/crypto/perlasm/x86gas.pl b/crypto/perlasm/x86gas.pl index 4af871889a..682a3a3163 100644 --- a/crypto/perlasm/x86gas.pl +++ b/crypto/perlasm/x86gas.pl @@ -45,10 +45,8 @@ sub ::generic undef $suffix if ($dst =~ m/^%[xm]/o || $src =~ m/^%[xm]/o); if ($#_==0) { &::emit($opcode); } - elsif ($opcode =~ m/^j/o && $#_==1) { &::emit($opcode,@arg); } - elsif ($opcode eq "call" && $#_==1) { &::emit($opcode,@arg); } - elsif ($opcode eq "clflush" && $#_==1){ &::emit($opcode,@arg); } - elsif ($opcode =~ m/^set/&& $#_==1) { &::emit($opcode,@arg); } + elsif ($#_==1 && $opcode =~ m/^(call|clflush|j|loop|set)/o) + { &::emit($opcode,@arg); } else { &::emit($opcode.$suffix,@arg);} 1; |