diff options
author | Andy Polyakov <appro@openssl.org> | 2008-12-17 19:56:48 +0000 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2008-12-17 19:56:48 +0000 |
commit | 4db4882402a79345a075c62a87f2fb7cfe89e283 (patch) | |
tree | b7291b024493da79cb67ec88f7041cf57a54c683 /crypto/perlasm/x86masm.pl | |
parent | 6786f52ada04daba9733aef6a7050809bf6ce4d2 (diff) |
perlasm/x86* update: support for 3 and 4 argument instructions.
Diffstat (limited to 'crypto/perlasm/x86masm.pl')
-rw-r--r-- | crypto/perlasm/x86masm.pl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/crypto/perlasm/x86masm.pl b/crypto/perlasm/x86masm.pl index cde38a11a4..4eca7bc367 100644 --- a/crypto/perlasm/x86masm.pl +++ b/crypto/perlasm/x86masm.pl @@ -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); |