Commit 7ffa48ad authored by Andy Polyakov's avatar Andy Polyakov
Browse files

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

parent 5711dd8e

crypto/perlasm/x86gas.pl

+2 −4
Original line number Diff line number Diff line
@@ -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;