summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorCyrill Gorcunov <gorcunov@gmail.com>2013-11-10 11:45:24 +0400
committerCyrill Gorcunov <gorcunov@gmail.com>2013-11-24 13:21:04 +0400
commitea882d0b595be687d34db59cd32a174970e56456 (patch)
treeed36cb9b155082f59b85034abfad0c51d477dc6a
parent970df6f47f3437996e98f581e53cde1f66518a0c (diff)
downloadnasm-ea882d0b595be687d34db59cd32a174970e56456.tar.gz
nasm-ea882d0b595be687d34db59cd32a174970e56456.tar.bz2
nasm-ea882d0b595be687d34db59cd32a174970e56456.zip
insns: Restore back MMX,FPU flags
In commit 9bb987d8e0330429afba42015b1fc7c7ca0d1b16 we had to drop some flags due to flags type used in nasm code. Since now flags internal structure is reworked, we can restore them back. Signed-off-by: Cyrill Gorcunov <gorcunov@gmail.com>
-rw-r--r--insns.dat46
-rwxr-xr-xinsns.pl15
2 files changed, 23 insertions, 38 deletions
diff --git a/insns.dat b/insns.dat
index 5464f93..9e6c059 100644
--- a/insns.dat
+++ b/insns.dat
@@ -1520,8 +1520,8 @@ CMPPS xmmreg,xmmreg,imm [rmi: np 0f c2 /r ib,u] KATMAI,SSE,SB,AR2
CMPSS xmmreg,mem,imm [rmi: f3 0f c2 /r ib,u] KATMAI,SSE,SB,AR2
CMPSS xmmreg,xmmreg,imm [rmi: f3 0f c2 /r ib,u] KATMAI,SSE,SB,AR2
COMISS xmmreg,xmmrm32 [rm: np 0f 2f /r] KATMAI,SSE
-CVTPI2PS xmmreg,mmxrm64 [rm: np 0f 2a /r] KATMAI,SSE
-CVTPS2PI mmxreg,xmmrm64 [rm: np 0f 2d /r] KATMAI,SSE
+CVTPI2PS xmmreg,mmxrm64 [rm: np 0f 2a /r] KATMAI,SSE,MMX
+CVTPS2PI mmxreg,xmmrm64 [rm: np 0f 2d /r] KATMAI,SSE,MMX
CVTSI2SS xmmreg,mem [rm: f3 0f 2a /r] KATMAI,SSE,SD,AR1,ND
CVTSI2SS xmmreg,rm32 [rm: f3 0f 2a /r] KATMAI,SSE,SD,AR1
CVTSI2SS xmmreg,rm64 [rm: o64 f3 0f 2a /r] X64,SSE,SQ,AR1
@@ -1529,7 +1529,7 @@ CVTSS2SI reg32,xmmreg [rm: f3 0f 2d /r] KATMAI,SSE,SD,AR1
CVTSS2SI reg32,mem [rm: f3 0f 2d /r] KATMAI,SSE,SD,AR1
CVTSS2SI reg64,xmmreg [rm: o64 f3 0f 2d /r] X64,SSE,SD,AR1
CVTSS2SI reg64,mem [rm: o64 f3 0f 2d /r] X64,SSE,SD,AR1
-CVTTPS2PI mmxreg,xmmrm [rm: np 0f 2c /r] KATMAI,SSE,SQ
+CVTTPS2PI mmxreg,xmmrm [rm: np 0f 2c /r] KATMAI,SSE,MMX,SQ
CVTTSS2SI reg32,xmmrm [rm: f3 0f 2c /r] KATMAI,SSE,SD,AR1
CVTTSS2SI reg64,xmmrm [rm: o64 f3 0f 2c /r] X64,SSE,SD,AR1
DIVPS xmmreg,xmmrm128 [rm: np 0f 5e /r] KATMAI,SSE
@@ -1574,10 +1574,10 @@ UNPCKLPS xmmreg,xmmrm128 [rm: np 0f 14 /r] KATMAI,SSE
XORPS xmmreg,xmmrm128 [rm: np 0f 57 /r] KATMAI,SSE
;# Introduced in Deschutes but necessary for SSE support
-FXRSTOR mem [m: np 0f ae /1] P6,SSE
-FXRSTOR64 mem [m: o64 np 0f ae /1] X64,SSE
-FXSAVE mem [m: np 0f ae /0] P6,SSE
-FXSAVE64 mem [m: o64 np 0f ae /0] X64,SSE
+FXRSTOR mem [m: np 0f ae /1] P6,SSE,FPU
+FXRSTOR64 mem [m: o64 np 0f ae /1] X64,SSE,FPU
+FXSAVE mem [m: np 0f ae /0] P6,SSE,FPU
+FXSAVE64 mem [m: o64 np 0f ae /0] X64,SSE,FPU
;# XSAVE group (AVX and extended state)
; Introduced in late Penryn ... we really need to clean up the handling
@@ -1869,37 +1869,37 @@ INVVPID reg32,mem [rm: 66 0f 38 81 /r] VMX,SO,NOLONG
INVVPID reg64,mem [rm: o64nw 66 0f 38 81 /r] VMX,SO,LONG
;# Tejas New Instructions (SSSE3)
-PABSB mmxreg,mmxrm [rm: np 0f 38 1c /r] SSSE3,SQ
+PABSB mmxreg,mmxrm [rm: np 0f 38 1c /r] SSSE3,MMX,SQ
PABSB xmmreg,xmmrm [rm: 66 0f 38 1c /r] SSSE3
-PABSW mmxreg,mmxrm [rm: np 0f 38 1d /r] SSSE3,SQ
+PABSW mmxreg,mmxrm [rm: np 0f 38 1d /r] SSSE3,MMX,SQ
PABSW xmmreg,xmmrm [rm: 66 0f 38 1d /r] SSSE3
-PABSD mmxreg,mmxrm [rm: np 0f 38 1e /r] SSSE3,SQ
+PABSD mmxreg,mmxrm [rm: np 0f 38 1e /r] SSSE3,MMX,SQ
PABSD xmmreg,xmmrm [rm: 66 0f 38 1e /r] SSSE3
-PALIGNR mmxreg,mmxrm,imm [rmi: np 0f 3a 0f /r ib,u] SSSE3,SQ
+PALIGNR mmxreg,mmxrm,imm [rmi: np 0f 3a 0f /r ib,u] SSSE3,MMX,SQ
PALIGNR xmmreg,xmmrm,imm [rmi: 66 0f 3a 0f /r ib,u] SSSE3
-PHADDW mmxreg,mmxrm [rm: np 0f 38 01 /r] SSSE3,SQ
+PHADDW mmxreg,mmxrm [rm: np 0f 38 01 /r] SSSE3,MMX,SQ
PHADDW xmmreg,xmmrm [rm: 66 0f 38 01 /r] SSSE3
-PHADDD mmxreg,mmxrm [rm: np 0f 38 02 /r] SSSE3,SQ
+PHADDD mmxreg,mmxrm [rm: np 0f 38 02 /r] SSSE3,MMX,SQ
PHADDD xmmreg,xmmrm [rm: 66 0f 38 02 /r] SSSE3
-PHADDSW mmxreg,mmxrm [rm: np 0f 38 03 /r] SSSE3,SQ
+PHADDSW mmxreg,mmxrm [rm: np 0f 38 03 /r] SSSE3,MMX,SQ
PHADDSW xmmreg,xmmrm [rm: 66 0f 38 03 /r] SSSE3
-PHSUBW mmxreg,mmxrm [rm: np 0f 38 05 /r] SSSE3,SQ
+PHSUBW mmxreg,mmxrm [rm: np 0f 38 05 /r] SSSE3,MMX,SQ
PHSUBW xmmreg,xmmrm [rm: 66 0f 38 05 /r] SSSE3
-PHSUBD mmxreg,mmxrm [rm: np 0f 38 06 /r] SSSE3,SQ
+PHSUBD mmxreg,mmxrm [rm: np 0f 38 06 /r] SSSE3,MMX,SQ
PHSUBD xmmreg,xmmrm [rm: 66 0f 38 06 /r] SSSE3
-PHSUBSW mmxreg,mmxrm [rm: np 0f 38 07 /r] SSSE3,SQ
+PHSUBSW mmxreg,mmxrm [rm: np 0f 38 07 /r] SSSE3,MMX,SQ
PHSUBSW xmmreg,xmmrm [rm: 66 0f 38 07 /r] SSSE3
-PMADDUBSW mmxreg,mmxrm [rm: np 0f 38 04 /r] SSSE3,SQ
+PMADDUBSW mmxreg,mmxrm [rm: np 0f 38 04 /r] SSSE3,MMX,SQ
PMADDUBSW xmmreg,xmmrm [rm: 66 0f 38 04 /r] SSSE3
-PMULHRSW mmxreg,mmxrm [rm: np 0f 38 0b /r] SSSE3,SQ
+PMULHRSW mmxreg,mmxrm [rm: np 0f 38 0b /r] SSSE3,MMX,SQ
PMULHRSW xmmreg,xmmrm [rm: 66 0f 38 0b /r] SSSE3
-PSHUFB mmxreg,mmxrm [rm: np 0f 38 00 /r] SSSE3,SQ
+PSHUFB mmxreg,mmxrm [rm: np 0f 38 00 /r] SSSE3,MMX,SQ
PSHUFB xmmreg,xmmrm [rm: 66 0f 38 00 /r] SSSE3
-PSIGNB mmxreg,mmxrm [rm: np 0f 38 08 /r] SSSE3,SQ
+PSIGNB mmxreg,mmxrm [rm: np 0f 38 08 /r] SSSE3,MMX,SQ
PSIGNB xmmreg,xmmrm [rm: 66 0f 38 08 /r] SSSE3
-PSIGNW mmxreg,mmxrm [rm: np 0f 38 09 /r] SSSE3,SQ
+PSIGNW mmxreg,mmxrm [rm: np 0f 38 09 /r] SSSE3,MMX,SQ
PSIGNW xmmreg,xmmrm [rm: 66 0f 38 09 /r] SSSE3
-PSIGND mmxreg,mmxrm [rm: np 0f 38 0a /r] SSSE3,SQ
+PSIGND mmxreg,mmxrm [rm: np 0f 38 0a /r] SSSE3,MMX,SQ
PSIGND xmmreg,xmmrm [rm: 66 0f 38 0a /r] SSSE3
;# AMD SSE4A
diff --git a/insns.pl b/insns.pl
index bf91469..c9d7b7f 100755
--- a/insns.pl
+++ b/insns.pl
@@ -433,10 +433,6 @@ sub format_insn($$$$$) {
my $num, $nd = 0, $rawflags, $flagsindex;
my @bytecode;
my $op, @ops, $opp, @opx, @oppx, @decos, @opevex;
- my @iflags = ( "FPU", "MMX", "3DNOW", "SSE", "SSE2",
- "SSE3", "VMX", "SSSE3", "SSE4A", "SSE41",
- "SSE42", "SSE5", "AVX", "AVX2", "AVX512",
- "FMA", "BMI1", "BMI2", "TBM", "RTM", "INVPCID");
return (undef, undef) if $operands eq "ignore";
@@ -486,17 +482,6 @@ sub format_insn($$$$$) {
}
$decorators =~ tr/a-z/A-Z/;
- # check if two different insn set types are set
- $cnt = 0;
- foreach $fla (split(/,/, $flags)) {
- if (grep(/$fla/, @iflags)) {
- $cnt++;
- if ($cnt >= 2) {
- die "Too many insn set flags in $flags\n";
- }
- }
- }
-
# format the flags
$nd = 1 if $flags =~ /(^|\,)ND($|\,)/;
$flags =~ s/(^|\,)ND($|\,)/\1/g;