Added InstrSchedClass to each of the PowerPC Instructions.
[oota-llvm.git] / lib / Target / PowerPC / PPCInstrFormats.td
index a5b5aaeaee0454d2692b5790d130ffbcb9170941..ee04dd62ee36d5ddf63a24d0b8374f021043ab11 100644 (file)
 //
 //===----------------------------------------------------------------------===//
 
-class Format<bits<5> val> {
-       bits<5> Value = val;
-}
-
-def Pseudo: Format<0>;
-def Gpr : Format<1>;
-def Gpr0 : Format<2>;
-def Simm16 : Format<3>;
-def Zimm16 : Format<4>;
-def PCRelimm24 : Format<5>;
-def Imm24 : Format<6>;
-def Imm5 : Format<7>;
-def PCRelimm14 : Format<8>;
-def Imm14 : Format<9>;
-def Imm2 : Format<10>;
-def Crf : Format<11>;
-def Imm3 : Format<12>;
-def Imm1 : Format<13>;
-def Fpr : Format<14>;
-def Imm4 : Format<15>;
-def Imm8 : Format<16>;
-def Disimm16 : Format<17>;
-def Disimm14 : Format<18>;
-def Spr : Format<19>;
-def Sgr : Format<20>;
-def Imm15 : Format<21>;
-def Vpr : Format<22>;
-
 //===----------------------------------------------------------------------===//
 //
 // PowerPC instruction formats
 
-class I<string name, bits<6> opcode, bit ppc64, bit vmx> : Instruction {
+class I<bits<6> opcode, dag OL, string asmstr, InstrItinClass itin>
+        : Instruction {
   field bits<32> Inst;
 
-  bits<3> ArgCount;
-  bits<5> Arg0Type;
-  bits<5> Arg1Type;
-  bits<5> Arg2Type;
-  bits<5> Arg3Type;
-  bits<5> Arg4Type;
-  bit PPC64 = ppc64;
-  bit VMX = vmx;
+  bit PPC64 = 0;  // Default value, override with isPPC64
+  bit VMX = 0;    // Default value, override with isVMX
 
-  let Name = name;
+  let Name = "";
   let Namespace = "PPC";
   let Inst{0-5} = opcode;
+  let OperandList = OL;
+  let AsmString = asmstr;
+  let Itinerary = itin;
 }
 
 // 1.7.1 I-Form
-class IForm<string name, bits<6> opcode, bit aa, bit lk, bit ppc64, bit vmx>
-  : I<name, opcode, ppc64, vmx> {
-  field bits<24> LI;
-
-  let ArgCount = 1;
-  let Arg0Type = Imm24.Value;
-  let Arg1Type = 0;
-  let Arg2Type = 0;
-  let Arg3Type = 0;
-  let Arg4Type = 0;
+class IForm<bits<6> opcode, bit aa, bit lk, dag OL, string asmstr,
+            InstrItinClass itin>
+         : I<opcode, OL, asmstr, itin> {
+  bits<24> LI;
 
   let Inst{6-29}  = LI;
   let Inst{30}    = aa;
@@ -77,103 +41,93 @@ class IForm<string name, bits<6> opcode, bit aa, bit lk, bit ppc64, bit vmx>
 }
 
 // 1.7.2 B-Form
-class BForm<string name, bits<6> opcode, bit aa, bit lk, bit ppc64, bit vmx>
-  : I<name, opcode, ppc64, vmx> {
-  field bits<5>  BO;
-  field bits<5>  BI;
-  field bits<14> BD;
-
-  let ArgCount = 3;
-  let Arg0Type = Imm5.Value;
-  let Arg1Type = Imm5.Value;
-  let Arg2Type = PCRelimm14.Value;
-  let Arg3Type = 0;
-  let Arg4Type = 0;
-
-  let Inst{6-10}  = BO;
-  let Inst{11-15} = BI;
+class BForm<bits<6> opcode, bit aa, bit lk, bits<5> bo, bits<2> bicode, dag OL, 
+            string asmstr, InstrItinClass itin>
+  : I<opcode, OL, asmstr, itin> {
+  bits<3>  CR;
+  bits<14> BD;
+
+  let Inst{6-10}  = bo;
+  let Inst{11-13} = CR;
+  let Inst{14-15} = bicode;
   let Inst{16-29} = BD;
   let Inst{30}    = aa;
   let Inst{31}    = lk;
 }
 
-class BForm_ext<string name, bits<6> opcode, bit aa, bit lk, bits<5> bo, 
-                bits<5> bi, bit ppc64, bit vmx>
-  : BForm<name, opcode, aa, lk, ppc64, vmx> {
-  let ArgCount = 2;
-  let Arg2Type = Imm5.Value;
-  let Arg1Type = PCRelimm14.Value;
-  let Arg2Type = 0;
-  let BO = bo;
-  let BI = bi;
-}
-
 // 1.7.4 D-Form
-class DForm_base<string name, bits<6> opcode, bit ppc64, bit vmx> 
-  : I<name, opcode, ppc64, vmx> {
-  field bits<5>  A;
-  field bits<5>  B;
-  field bits<16> C;
+class DForm_base<bits<6> opcode, dag OL, string asmstr, InstrItinClass itin,
+                 list<dag> pattern>
+   : I<opcode, OL, asmstr, itin> {
+  let Pattern = pattern;
+  bits<5>  A;
+  bits<5>  B;
+  bits<16> C;
   
-  let ArgCount = 3;
-  let Arg0Type = Gpr.Value;
-  let Arg1Type = Gpr.Value;
-  let Arg2Type = Simm16.Value;
-  let Arg3Type = 0;
-  let Arg4Type = 0;
   let Inst{6-10}  = A;
   let Inst{11-15} = B;
   let Inst{16-31} = C;
 }
 
-class DForm_1<string name, bits<6> opcode, bit ppc64, bit vmx> 
-  : DForm_base<name, opcode, ppc64, vmx> {
-  let Arg1Type = Disimm16.Value;
-  let Arg2Type = Gpr0.Value;
+class DForm_1<bits<6> opcode, dag OL, string asmstr, InstrItinClass itin>
+   : I<opcode, OL, asmstr, itin> {
+  bits<5>  A;
+  bits<16> C;
+  bits<5>  B;
+  
+  let Inst{6-10}  = A;
+  let Inst{11-15} = B;
+  let Inst{16-31} = C;
 }
 
-class DForm_2<string name, bits<6> opcode, bit ppc64, bit vmx> 
-  : DForm_base<name, opcode, ppc64, vmx>;
+class DForm_2<bits<6> opcode, dag OL, string asmstr, InstrItinClass itin,
+              list<dag> pattern>
+  : DForm_base<opcode, OL, asmstr, itin, pattern>;
 
-class DForm_2_r0<string name, bits<6> opcode, bit ppc64, bit vmx> 
-  : DForm_base<name, opcode, ppc64, vmx> {
-  let Arg1Type = Gpr0.Value;
+class DForm_2_r0<bits<6> opcode, dag OL, string asmstr, InstrItinClass itin,
+                 list<dag> pattern>
+  : I<opcode, OL, asmstr, itin> {
+  bits<5>  A;
+  bits<16> B;
+  
+  let Pattern = pattern;
+  
+  let Inst{6-10}  = A;
+  let Inst{11-15} = 0;
+  let Inst{16-31} = B;
 }
 
 // Currently we make the use/def reg distinction in ISel, not tablegen
-class DForm_3<string name, bits<6> opcode, bit ppc64, bit vmx> 
-  : DForm_1<name, opcode, ppc64, vmx>;
-
-class DForm_4<string name, bits<6> opcode, bit ppc64, bit vmx> 
-  : DForm_base<name, opcode, ppc64, vmx> {
-  let Arg2Type = Zimm16.Value;
+class DForm_3<bits<6> opcode, dag OL, string asmstr, InstrItinClass itin>
+  : DForm_1<opcode, OL, asmstr, itin>;
+
+class DForm_4<bits<6> opcode, dag OL, string asmstr, InstrItinClass itin,
+              list<dag> pattern>
+ : I<opcode, OL, asmstr, itin> {
+  bits<5>  B;
+  bits<5>  A;
+  bits<16> C;
+  
+  let Pattern = pattern;
+  
+  let Inst{6-10}  = A;
+  let Inst{11-15} = B;
+  let Inst{16-31} = C;
 }
-
-class DForm_4_zero<string name, bits<6> opcode, bit ppc64, bit vmx> 
-  : DForm_1<name, opcode, ppc64, vmx> {
-  let ArgCount = 0;
-  let Arg0Type = 0;
-  let Arg1Type = 0;
-  let Arg2Type = 0;
+              
+class DForm_4_zero<bits<6> opcode, dag OL, string asmstr, InstrItinClass itin>
+  : DForm_1<opcode, OL, asmstr, itin> {
   let A = 0;
   let B = 0;
   let C = 0;
 }
 
-class DForm_5<string name, bits<6> opcode, bit ppc64, bit vmx> 
-  : I<name, opcode, ppc64, vmx> {
-  field bits<3>  BF;
-  field bits<1>  L;
-  field bits<5>  RA;
-  field bits<16> I;
-
-  let ArgCount = 4;
-  let Arg0Type = Imm3.Value;
-  let Arg1Type = Imm1.Value;
-  let Arg2Type = Gpr.Value;
-  let Arg3Type = Simm16.Value;
-  let Arg4Type = 0;
+class DForm_5<bits<6> opcode, dag OL, string asmstr, InstrItinClass itin>
+  : I<opcode, OL, asmstr, itin> {
+  bits<3>  BF;
+  bits<1>  L;
+  bits<5>  RA;
+  bits<16> I;
 
   let Inst{6-8}   = BF;
   let Inst{9}     = 0;
@@ -182,114 +136,116 @@ class DForm_5<string name, bits<6> opcode, bit ppc64, bit vmx>
   let Inst{16-31} = I;
 }
 
-class DForm_5_ext<string name, bits<6> opcode, bit ppc64, bit vmx> 
-  : DForm_5<name, opcode, ppc64, vmx> {
-  let L = 0;
-  let ArgCount = 3;
-  let Arg0Type = Imm3.Value;
-  let Arg1Type = Gpr.Value;
-  let Arg2Type = Simm16.Value;
-  let Arg3Type = 0;
+class DForm_5_ext<bits<6> opcode, dag OL, string asmstr, InstrItinClass itin>
+  : DForm_5<opcode, OL, asmstr, itin> {
+  let L = PPC64;
 }
 
-class DForm_6<string name, bits<6> opcode, bit ppc64, bit vmx> 
-  : DForm_5<name, opcode, ppc64, vmx> {
-  let Arg3Type = Zimm16.Value;
-}
+class DForm_6<bits<6> opcode, dag OL, string asmstr, InstrItinClass itin> 
+  : DForm_5<opcode, OL, asmstr, itin>;
 
-class DForm_6_ext<string name, bits<6> opcode, bit ppc64, bit vmx> 
-  : DForm_6<name, opcode, ppc64, vmx> {
-  let L = 0;
-  let ArgCount = 3;
-  let Arg0Type = Imm3.Value;
-  let Arg1Type = Gpr.Value;
-  let Arg2Type = Simm16.Value;
-  let Arg3Type = 0;
+class DForm_6_ext<bits<6> opcode, dag OL, string asmstr, InstrItinClass itin>
+  : DForm_6<opcode, OL, asmstr, itin> {
+  let L = PPC64;
 }
 
-class DForm_7<string name, bits<6> opcode, bit ppc64, bit vmx> 
-  : DForm_base<name, opcode, ppc64, vmx> {
-  let Arg1Type = Imm5.Value;
+class DForm_8<bits<6> opcode, dag OL, string asmstr, InstrItinClass itin>
+  : DForm_1<opcode, OL, asmstr, itin> {
 }
 
-class DForm_8<string name, bits<6> opcode, bit ppc64, bit vmx>
-  : DForm_1<name, opcode, ppc64, vmx> {
-  let Arg0Type = Fpr.Value;
+class DForm_9<bits<6> opcode, dag OL, string asmstr, InstrItinClass itin>
+  : DForm_1<opcode, OL, asmstr, itin> {
 }
 
-class DForm_9<string name, bits<6> opcode, bit ppc64, bit vmx>
-  : DForm_1<name, opcode, ppc64, vmx> {
-  let Arg0Type = Fpr.Value;
+// 1.7.5 DS-Form
+class DSForm_1<bits<6> opcode, bits<2> xo, dag OL, string asmstr,
+               InstrItinClass itin>
+         : I<opcode, OL, asmstr, itin> {
+  bits<5>  RST;
+  bits<14> DS;
+  bits<5>  RA;
+
+  let Inst{6-10}  = RST;
+  let Inst{11-15} = RA;
+  let Inst{16-29} = DS;
+  let Inst{30-31} = xo;
 }
 
+class DSForm_2<bits<6> opcode, bits<2> xo, dag OL, string asmstr,
+               InstrItinClass itin>
+  : DSForm_1<opcode, xo, OL, asmstr, itin>;
+
 // 1.7.6 X-Form
-class XForm_base_r3xo<string name, bits<6> opcode, bits<10> xo, bit rc, 
-                      bit ppc64, bit vmx> : I<name, opcode, ppc64, vmx> {
-  let ArgCount = 3;
-  field bits<5>  ST;
-  field bits<5>  A;
-  field bits<5>  B;
-
-  let ArgCount = 3;
-  let Arg0Type = Gpr.Value;
-  let Arg1Type = Gpr.Value;
-  let Arg2Type = Gpr.Value;
-  let Arg3Type = 0;
-  let Arg4Type = 0;
+class XForm_base_r3xo<bits<6> opcode, bits<10> xo, 
+                      dag OL, string asmstr, InstrItinClass itin>
+  : I<opcode, OL, asmstr, itin> {
+  bits<5> RST;
+  bits<5> A;
+  bits<5> B;
 
-  let Inst{6-10}  = ST;
+  bit RC = 0;    // set by isDOT
+
+  let Inst{6-10}  = RST;
   let Inst{11-15} = A;
   let Inst{16-20} = B;
   let Inst{21-30} = xo;
-  let Inst{31}    = rc;
+  let Inst{31}    = RC;
 }
 
-class XForm_1<string name, bits<6> opcode, bits<10> xo, bit ppc64, 
-              bit vmx> : XForm_base_r3xo<name, opcode, xo, 0, ppc64, vmx>;
+// This is the same as XForm_base_r3xo, but the first two operands are swapped
+// when code is emitted.
+class XForm_base_r3xo_swapped
+        <bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+        InstrItinClass itin> 
+  : I<opcode, OL, asmstr, itin> {
+  bits<5> A;
+  bits<5> RST;
+  bits<5> B;
 
-class XForm_5<string name, bits<6> opcode, bits<10> xo, bit ppc64, 
-              bit vmx> : XForm_base_r3xo<name, opcode, xo, 0, ppc64, vmx> {
-  let ArgCount = 1;
-  let Arg1Type = 0;
-  let Arg2Type = 0;
-  let A = 0;
-  let B = 0;
+  bit RC = 0;    // set by isDOT
+
+  let Inst{6-10}  = RST;
+  let Inst{11-15} = A;
+  let Inst{16-20} = B;
+  let Inst{21-30} = xo;
+  let Inst{31}    = RC;
 }
 
-class XForm_6<string name, bits<6> opcode, bits<10> xo, bit rc, bit ppc64, 
-              bit vmx> : XForm_base_r3xo<name, opcode, xo, rc, ppc64, vmx>;
 
-class XForm_7<string name, bits<6> opcode, bits<10> xo, bit ppc64, bit vmx> 
-  : XForm_base_r3xo<name, opcode, xo, 1, ppc64, vmx>;
+class XForm_1<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+              InstrItinClass itin> 
+  : XForm_base_r3xo<opcode, xo, OL, asmstr, itin>;
 
-class XForm_8<string name, bits<6> opcode, bits<10> xo, bit ppc64, bit vmx>
-  : XForm_base_r3xo<name, opcode, xo, 0, ppc64, vmx>;
+class XForm_6<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+              InstrItinClass itin, list<dag> pattern> 
+  : XForm_base_r3xo_swapped<opcode, xo, OL, asmstr, itin> {
+  let Pattern = pattern;
+}
+
+class XForm_8<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+              InstrItinClass itin> 
+  : XForm_base_r3xo<opcode, xo, OL, asmstr, itin>;
 
-class XForm_10<string name, bits<6> opcode, bits<10> xo, bit rc, bit ppc64, 
-               bit vmx> : XForm_base_r3xo<name, opcode, xo, rc, ppc64, vmx> {
-  let Arg2Type = Imm5.Value;
+class XForm_10<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+               InstrItinClass itin, list<dag> pattern> 
+  : XForm_base_r3xo_swapped<opcode, xo, OL, asmstr, itin> {
+    let Pattern = pattern;
 }
 
-class XForm_11<string name, bits<6> opcode, bits<10> xo, bit rc, bit ppc64,
-               bit vmx> : XForm_base_r3xo<name, opcode, xo, rc, ppc64, vmx> {
-  let ArgCount = 2;
-  let Arg2Type = 0;
+class XForm_11<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+               InstrItinClass itin, list<dag> pattern> 
+  : XForm_base_r3xo_swapped<opcode, xo, OL, asmstr, itin> {
   let B = 0;
+  let Pattern = pattern;
 }
 
-class XForm_16<string name, bits<6> opcode, bits<10> xo, bit ppc64, bit vmx>
-  : I<name, opcode, ppc64, vmx> {
-  field bits<3>  BF;
-  field bits<1>  L; 
-  field bits<5>  RA;
-  field bits<5>  RB;
-  
-  let ArgCount = 4;
-  let Arg0Type = Imm3.Value;
-  let Arg1Type = Imm1.Value;
-  let Arg2Type = Gpr.Value;
-  let Arg3Type = Gpr.Value;
-  let Arg4Type = 0;
+class XForm_16<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+               InstrItinClass itin>
+         : I<opcode, OL, asmstr, itin> {
+  bits<3> BF;
+  bits<1> L; 
+  bits<5> RA;
+  bits<5> RB;
   
   let Inst{6-8}   = BF;
   let Inst{9}     = 0;
@@ -300,24 +256,19 @@ class XForm_16<string name, bits<6> opcode, bits<10> xo, bit ppc64, bit vmx>
   let Inst{31}    = 0;
 }
 
-class XForm_16_ext<string name, bits<6> opcode, bits<10> xo, bit ppc64, bit vmx>
-  : XForm_16<name, opcode, xo, ppc64, vmx> {
-  let L = 0;
+class XForm_16_ext<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+                   InstrItinClass itin>
+  : XForm_16<opcode, xo, OL, asmstr, itin> {
+  let L = PPC64;
 }
 
-class XForm_17<string name, bits<6> opcode, bits<10> xo, bit ppc64, bit vmx> 
-  : I<name, opcode, ppc64, vmx> {
-  field bits<3> BF;
-  field bits<5> FRA;
-  field bits<5> FRB;
+class XForm_17<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+               InstrItinClass itin>
+         : I<opcode, OL, asmstr, itin> {
+  bits<3> BF;
+  bits<5> FRA;
+  bits<5> FRB;
   
-  let ArgCount = 3;
-  let Arg0Type = Imm3.Value;
-  let Arg1Type = Fpr.Value;
-  let Arg2Type = Fpr.Value;
-  let Arg3Type = 0;
-  let Arg4Type = 0;
-
   let Inst{6-8}   = BF;
   let Inst{9-10}  = 0;
   let Inst{11-15} = FRA;
@@ -326,48 +277,51 @@ class XForm_17<string name, bits<6> opcode, bits<10> xo, bit ppc64, bit vmx>
   let Inst{31}    = 0;
 }
 
-class XForm_25<string name, bits<6> opcode, bits<10> xo, bit ppc64,
-               bit vmx> : XForm_base_r3xo<name, opcode, xo, 0, ppc64, vmx> {
-  let Arg0Type = Fpr.Value;
-  let Arg1Type = Gpr0.Value;
+class XForm_25<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+               InstrItinClass itin> 
+  : XForm_base_r3xo<opcode, xo, OL, asmstr, itin> {
 }
 
-class XForm_26<string name, bits<6> opcode, bits<10> xo, bit rc, bit ppc64,
-               bit vmx> : XForm_base_r3xo<name, opcode, xo, rc, ppc64, vmx> {
-  let ArgCount = 2;
-  let Arg0Type = Fpr.Value;
-  let Arg1Type = Fpr.Value;
-  let Arg2Type = 0;
+class XForm_26<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+               InstrItinClass itin, list<dag> pattern>
+  : XForm_base_r3xo<opcode, xo, OL, asmstr, itin> {
   let A = 0;
+  let Pattern = pattern;
 }
 
-class XForm_28<string name, bits<6> opcode, bits<10> xo, bit ppc64,
-               bit vmx> : XForm_base_r3xo<name, opcode, xo, 0, ppc64, vmx> {
-  let Arg0Type = Fpr.Value;
-  let Arg1Type = Gpr0.Value;
+class XForm_28<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+               InstrItinClass itin> 
+  : XForm_base_r3xo<opcode, xo, OL, asmstr, itin> {
 }
 
 // 1.7.7 XL-Form
-class XLForm_1<string name, bits<6> opcode, bits<10> xo, bit ppc64, bit vmx> 
-  : XForm_base_r3xo<name, opcode, xo, 0, ppc64, vmx> {
-  let Arg0Type = Imm5.Value;
-  let Arg1Type = Imm5.Value;
-  let Arg2Type = Imm5.Value;
-}
-
-class XLForm_2<string name, bits<6> opcode, bits<10> xo, bit lk, bit ppc64, 
-               bit vmx> : I<name, opcode, ppc64, vmx> {
-  field bits<5>  BO;
-  field bits<5>  BI;
-  field bits<2>  BH;
+class XLForm_1<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+               InstrItinClass itin>
+    : I<opcode, OL, asmstr, itin> {
+  bits<3> CRD;
+  bits<2> CRDb;
+  bits<3> CRA;
+  bits<2> CRAb;
+  bits<3> CRB;
+  bits<2> CRBb;
   
-  let ArgCount = 3;
-  let Arg0Type = Imm5.Value;
-  let Arg1Type = Imm5.Value;
-  let Arg2Type = Imm2.Value;
-  let Arg3Type = 0;
-  let Arg4Type = 0;
+  let Inst{6-8}   = CRD;
+  let Inst{9-10}  = CRDb;
+  let Inst{11-13} = CRA;
+  let Inst{14-15} = CRAb;
+  let Inst{16-18} = CRB;
+  let Inst{19-20} = CRBb;
+  let Inst{21-30} = xo;
+  let Inst{31}    = 0;
+}
 
+class XLForm_2<bits<6> opcode, bits<10> xo, bit lk, dag OL, string asmstr, 
+               InstrItinClass itin>
+    : I<opcode, OL, asmstr, itin> {
+  bits<5> BO;
+  bits<5> BI;
+  bits<2> BH;
+  
   let Inst{6-10}  = BO;
   let Inst{11-15} = BI;
   let Inst{16-18} = 0;
@@ -376,184 +330,230 @@ class XLForm_2<string name, bits<6> opcode, bits<10> xo, bit lk, bit ppc64,
   let Inst{31}    = lk;
 }
 
-class XLForm_2_ext<string name, bits<6> opcode, bits<10> xo, bits<5> bo, 
-                   bits<5> bi, bit lk, bit ppc64, bit vmx>
-  : XLForm_2<name, opcode, xo, lk, ppc64, vmx> {
-  let ArgCount = 0;
-  let Arg0Type = 0;
-  let Arg1Type = 0;
-  let Arg2Type = 0;
+class XLForm_2_ext<bits<6> opcode, bits<10> xo, bits<5> bo,  bits<5> bi, bit lk,
+                  dag OL, string asmstr, InstrItinClass itin>
+  : XLForm_2<opcode, xo, lk, OL, asmstr, itin> {
   let BO = bo;
   let BI = bi;
   let BH = 0;
 }
 
+class XLForm_3<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+               InstrItinClass itin>
+         : I<opcode, OL, asmstr, itin> {
+  bits<3> BF;
+  bits<3> BFA;
+  
+  let Inst{6-8}   = BF;
+  let Inst{9-10}  = 0;
+  let Inst{11-13} = BFA;
+  let Inst{14-15} = 0;
+  let Inst{16-20} = 0;
+  let Inst{21-30} = xo;
+  let Inst{31}    = 0;
+}
+
 // 1.7.8 XFX-Form
-class XFXForm_1<string name, bits<6> opcode, bits<10> xo, bit ppc64, bit vmx>
-  : I<name, opcode, ppc64, vmx> {
-  field bits<5>  ST;
-  field bits<10> SPR;
-
-  let ArgCount = 2;
-  let Arg0Type = Imm5.Value;
-  let Arg1Type = Gpr.Value;
-  let Arg2Type = 0;
-  let Arg3Type = 0;
-  let Arg4Type = 0;
+class XFXForm_1<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+                InstrItinClass itin>
+         : I<opcode, OL, asmstr, itin> {
+  bits<5>  RT;
+  bits<10> SPR;
 
-  let Inst{6-10}  = ST;
+  let Inst{6-10}  = RT;
   let Inst{11-20} = SPR;
   let Inst{21-30} = xo;
   let Inst{31}    = 0;
 }
 
-class XFXForm_1_ext<string name, bits<6> opcode, bits<10> xo, bits<10> spr, 
-                    bit ppc64, bit vmx> : XFXForm_1<name,opcode,xo,ppc64,vmx> {
-  let ArgCount = 1;
-  let Arg0Type = Gpr.Value;
-  let Arg1Type = 0;
+class XFXForm_1_ext<bits<6> opcode, bits<10> xo, bits<10> spr, 
+                   dag OL, string asmstr, InstrItinClass itin> 
+  : XFXForm_1<opcode, xo, OL, asmstr, itin> {
   let SPR = spr;
 }
 
-class XFXForm_7<string name, bits<6> opcode, bits<10> xo, bit ppc64, bit vmx>
-  : XFXForm_1<name, opcode, xo, ppc64, vmx>;
+class XFXForm_3<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+                InstrItinClass itin>
+         : I<opcode, OL, asmstr, itin> {
+  bits<5>  RT;
+   
+  let Inst{6-10}  = RT;
+  let Inst{11-20} = 0;
+  let Inst{21-30} = xo;
+  let Inst{31}    = 0;
+}
+
+class XFXForm_5<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+                InstrItinClass itin> 
+  : I<opcode, OL, asmstr, itin> {
+  bits<8>  FXM;
+  bits<5>  ST;
+   
+  let Inst{6-10}  = ST;
+  let Inst{11}    = 0;
+  let Inst{12-19} = FXM;
+  let Inst{20}    = 0;
+  let Inst{21-30} = xo;
+  let Inst{31}    = 0;
+}
+
+class XFXForm_5a<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+                 InstrItinClass itin> 
+  : I<opcode, OL, asmstr, itin> {
+  bits<5>  ST;
+  bits<8>  FXM;
+   
+  let Inst{6-10}  = ST;
+  let Inst{11}    = 1;
+  let Inst{12-19} = FXM;
+  let Inst{20}    = 0;
+  let Inst{21-30} = xo;
+  let Inst{31}    = 0;
+}
+
 
-class XFXForm_7_ext<string name, bits<6> opcode, bits<10> xo, bits<10> spr, 
-                    bit ppc64, bit vmx> : XFXForm_7<name,opcode,xo,ppc64,vmx> {
-  let ArgCount = 1;
-  let Arg0Type = Gpr.Value;
-  let Arg1Type = 0;
+class XFXForm_7<bits<6> opcode, bits<10> xo, dag OL, string asmstr,
+                InstrItinClass itin>
+  : XFXForm_1<opcode, xo, OL, asmstr, itin>;
+
+class XFXForm_7_ext<bits<6> opcode, bits<10> xo, bits<10> spr, 
+                    dag OL, string asmstr, InstrItinClass itin> 
+  : XFXForm_7<opcode, xo, OL, asmstr, itin> {
   let SPR = spr;
 }
 
+// 1.7.10 XS-Form
+class XSForm_1<bits<6> opcode, bits<9> xo, dag OL, string asmstr,
+               InstrItinClass itin>
+         : I<opcode, OL, asmstr, itin> {
+  bits<5> RS;
+  bits<5> A;
+  bits<6> SH;
+
+  bit RC = 0;    // set by isDOT
+
+  let Inst{6-10}  = RS;
+  let Inst{11-15} = A;
+  let Inst{16-20} = SH{1-5};
+  let Inst{21-29} = xo;
+  let Inst{30}    = SH{0};
+  let Inst{31}    = RC;
+}
+
 // 1.7.11 XO-Form
-class XOForm_1<string name, bits<6> opcode, bits<9> xo, bit oe, bit rc, 
-               bit ppc64, bit vmx> : I<name, opcode, ppc64, vmx> {
-  field bits<5>  RT;
-  field bits<5>  RA;
-  field bits<5>  RB;
-
-  let ArgCount = 3;
-  let Arg0Type = Gpr.Value;
-  let Arg1Type = Gpr.Value;
-  let Arg2Type = Gpr.Value;
-  let Arg3Type = 0;
-  let Arg4Type = 0;
+class XOForm_1<bits<6> opcode, bits<9> xo, bit oe, dag OL, string asmstr,
+               InstrItinClass itin, list<dag> pattern>
+         : I<opcode, OL, asmstr, itin> {
+  bits<5> RT;
+  bits<5> RA;
+  bits<5> RB;
+
+  let Pattern = pattern;
+
+  bit RC = 0;    // set by isDOT
 
   let Inst{6-10}  = RT;
   let Inst{11-15} = RA;
   let Inst{16-20} = RB;
   let Inst{21}    = oe;
   let Inst{22-30} = xo;
-  let Inst{31}    = rc;  
+  let Inst{31}    = RC;  
 }
 
-// This is a reversal of the two operands, used notably by extended ops SUB*:
-// sub  x, y, z == subf  x, z, y
-// subc x, y, z == subfc x, z, y
-class XOForm_1_rev<string name, bits<6> opcode, bits<9> xo, bit oe, bit rc,
-                   bit ppc64, bit vmx> 
-  : XOForm_1<name, opcode, xo, oe, rc, ppc64, vmx> {
-  let Inst{11-15} = RB;
-  let Inst{16-20} = RA;
-}
-
-class XOForm_2<string name, bits<6> opcode, bits<9> xo, bit rc, bit ppc64, 
-               bit vmx> : XOForm_1<name, opcode, xo, 0, rc, ppc64, vmx>;
-
-class XOForm_3<string name, bits<6> opcode, bits<9> xo, bit oe, bit rc, 
-               bit ppc64, bit vmx> : XOForm_1<name,opcode,xo,oe,rc,ppc64,vmx> {
+class XOForm_3<bits<6> opcode, bits<9> xo, bit oe, 
+               dag OL, string asmstr, InstrItinClass itin, list<dag> pattern>
+  : XOForm_1<opcode, xo, oe, OL, asmstr, itin, pattern> {
   let RB = 0;
 }
 
 // 1.7.12 A-Form
-class AForm_1<string name, bits<6> opcode, bits<5> xo, bit rc, bit ppc64, 
-              bit vmx> : I<name, opcode, ppc64, vmx> {
-  let ArgCount = 4;
-  field bits<5>  FRT;
-  field bits<5>  FRA;
-  field bits<5>  FRB;
-  field bits<5>  FRC;
-
-  let Arg0Type = Fpr.Value;
-  let Arg1Type = Fpr.Value;
-  let Arg2Type = Fpr.Value;
-  let Arg3Type = Fpr.Value;
-  let Arg4Type = 0;
+class AForm_1<bits<6> opcode, bits<5> xo, dag OL, string asmstr, 
+              InstrItinClass itin, list<dag> pattern>
+         : I<opcode, OL, asmstr, itin> {
+  bits<5> FRT;
+  bits<5> FRA;
+  bits<5> FRC;
+  bits<5> FRB;
+
+  let Pattern = pattern;
+
+  bit RC = 0;    // set by isDOT
 
   let Inst{6-10}  = FRT;
   let Inst{11-15} = FRA;
   let Inst{16-20} = FRB;
   let Inst{21-25} = FRC;
   let Inst{26-30} = xo;
-  let Inst{31}    = rc;
+  let Inst{31}    = RC;
 }
 
-class AForm_2<string name, bits<6> opcode, bits<5> xo, bit rc, bit ppc64, 
-              bit vmx> : AForm_1<name, opcode, xo, rc, ppc64, vmx> {
-  let ArgCount = 3;
-  let Arg3Type = 0;
+class AForm_2<bits<6> opcode, bits<5> xo, dag OL, string asmstr,
+              InstrItinClass itin, list<dag> pattern>
+  : AForm_1<opcode, xo, OL, asmstr, itin, pattern> {
   let FRC = 0;
 }
 
-class AForm_3<string name, bits<6> opcode, bits<5> xo, bit rc, bit ppc64, 
-              bit vmx> : AForm_1<name, opcode, xo, rc, ppc64, vmx> {
-  let ArgCount = 3;
-  let Arg3Type = 0;
+class AForm_3<bits<6> opcode, bits<5> xo, dag OL, string asmstr,
+              InstrItinClass itin, list<dag> pattern> 
+  : AForm_1<opcode, xo, OL, asmstr, itin, pattern> {
   let FRB = 0;
 }
 
-class AForm_4<string name, bits<6> opcode, bits<5> xo, bit rc, bit ppc64, 
-              bit vmx> : AForm_1<name, opcode, xo, rc, ppc64, vmx> {
-  let ArgCount = 2;
-  let Arg2Type = 0;
-  let Arg3Type = 0;
-  let FRA = 0;
-  let FRC = 0;
-}
-
 // 1.7.13 M-Form
-class MForm_1<string name, bits<6> opcode, bit rc, bit ppc64, bit vmx> 
-  : I<name, opcode, ppc64, vmx> {
-  let ArgCount = 5;
-  field bits<5>  RS;
-  field bits<5>  RA;
-  field bits<5>  RB;
-  field bits<5>  MB;
-  field bits<5>  ME;
-
-  let Arg0Type = Gpr.Value;
-  let Arg1Type = Gpr.Value;
-  let Arg2Type = Gpr.Value;
-  let Arg3Type = Imm5.Value;
-  let Arg4Type = Imm5.Value;
+class MForm_1<bits<6> opcode, dag OL, string asmstr,
+              InstrItinClass itin, list<dag> pattern>
+    : I<opcode, OL, asmstr, itin> {
+  bits<5> RA;
+  bits<5> RS;
+  bits<5> RB;
+  bits<5> MB;
+  bits<5> ME;
+
+  let Pattern = pattern;
+
+  bit RC = 0;    // set by isDOT
 
   let Inst{6-10}  = RS;
   let Inst{11-15} = RA;
   let Inst{16-20} = RB;
   let Inst{21-25} = MB;
   let Inst{26-30} = ME;
-  let Inst{31}    = rc;
+  let Inst{31}    = RC;
 }
 
-class MForm_2<string name, bits<6> opcode, bit rc, bit ppc64, bit vmx> 
-  : MForm_1<name, opcode, rc, ppc64, vmx> {
-  let Arg2Type = Imm5.Value;
+class MForm_2<bits<6> opcode, dag OL, string asmstr,
+              InstrItinClass itin, list<dag> pattern>
+  : MForm_1<opcode, OL, asmstr, itin, pattern> {
 }
 
-//===----------------------------------------------------------------------===//
+// 1.7.14 MD-Form
+class MDForm_1<bits<6> opcode, bits<3> xo, dag OL, string asmstr,
+               InstrItinClass itin, list<dag> pattern>
+    : I<opcode, OL, asmstr, itin> {
+  bits<5> RS;
+  bits<5> RA;
+  bits<6> SH;
+  bits<6> MBE;
+
+  let Pattern = pattern;
 
-class Pseudo<string name> : I<name, 0, 0, 0> {
-       let Name = name;
-       let ArgCount = 0;
-       let PPC64 = 0;
-       let VMX = 0;
+  bit RC = 0;    // set by isDOT
 
-       let Arg0Type = Pseudo.Value;
-       let Arg1Type = Pseudo.Value;
-       let Arg2Type = Pseudo.Value;
-       let Arg3Type = Pseudo.Value;
-       let Arg4Type = 0;
+  let Inst{6-10}  = RS;
+  let Inst{11-15} = RA;
+  let Inst{16-20} = SH{1-5};
+  let Inst{21-26} = MBE;
+  let Inst{27-29} = xo;
+  let Inst{30}    = SH{0};
+  let Inst{31}    = RC;
+}
+
+//===----------------------------------------------------------------------===//
+def NoItin : InstrItinClass;
+class Pseudo<dag OL, string asmstr>
+    : I<0, OL, asmstr, NoItin> {
+  let PPC64 = 0;
+  let VMX = 0;
 
-       let Inst{31-0} = 0;
+  let Inst{31-0} = 0;
 }