perlasm/x86masm.pl: fix last fix [from HEAD].

This commit is contained in:
Andy Polyakov 2012-03-29 19:11:08 +00:00
parent 861a0722c2
commit b4ff166cbc

View File

@ -16,7 +16,7 @@ sub ::generic
# fix hexadecimal constants # fix hexadecimal constants
for (@arg) { s/(?<![\w\$\.])0x([0-9a-f]+)/0$1h/oi; } for (@arg) { s/(?<![\w\$\.])0x([0-9a-f]+)/0$1h/oi; }
if ($opcode =~ /lea/ && @arg[1] =~ s/.*PTR\s+([^\[]+)$/$1/) # no [] if ($opcode =~ /lea/ && @arg[1] =~ s/.*PTR\s+(\(.*\))$/OFFSET $1/) # no []
{ $opcode="mov"; } { $opcode="mov"; }
elsif ($opcode !~ /movq/) elsif ($opcode !~ /movq/)
{ # fix xmm references { # fix xmm references