s390x: implement vector support on s390

src/s390/constants-s390.h

Index: src/s390/constants-s390.h
diff --git a/src/s390/constants-s390.h b/src/s390/constants-s390.h
index 1cfc0b7da754a29d0041a7525897e1568cfdbd66..0387ac76e9736d7c88df81fce35a201bb341a2d9 100644
--- a/src/s390/constants-s390.h
+++ b/src/s390/constants-s390.h
@@ -157,9 +157,33 @@ typedef uint16_t TwoByteInstr;
 typedef uint32_t FourByteInstr;
 typedef uint64_t SixByteInstr;
 
+#define VRR_A_OPCODE_LIST(V)                 \
+  V(wfc, WFC, 0xE7CB)     /* Vector FP Op */ \

[JoranSiu, 2016/12/16 01:11:07]

CAn we expand the comments to note the actual operation instead of a generic
"Vector FP Op"... saves us from the trouble of having to reference the
Principles of Operation.

+  V(vcdg, VCDG, 0xE7D3)   /* Vector FP Op */ \
+  V(vcdlg, VCDLG, 0xE7C1) /* Vector FP Op */ \
+  V(vcgd, VCGD, 0xE7C2)   /* Vector FP Op */ \
+  V(vclgd, VCLGD, 0xE7C0) /* Vector FP Op */ \
+  V(vfi, VFI, 0xE7C7)     /* Vector FP Op */ \
+  V(vlde, VLDE, 0xE7C4)   /* Vector FP Op */ \
+  V(vled, VLED, 0xE7C5)   /* Vector FP Op */ \
+  V(vfpso, VFPSO, 0xE7CC) /* Vector FP Op */ \
+  V(vfsq, VFSQ, 0xE7CE)   /* Vector FP Op */ \
+  V(wfk, WFK, 0xE7CA)     /* Vector FP Op */
+
+#define VRR_C_OPCODE_LIST(V)              \
+  V(vfa, VFA, 0xE7E3) /* Vector FP Add */ \
+  V(vfs, VFS, 0xE7E2) /* Vector FP Sub */ \
+  V(vfm, VFM, 0xE7E7) /* Vector FP Mul */ \
+  V(vfd, VFD, 0xE7E5) /* Vector FP Div */
+
 // Opcodes as defined in Appendix B-2 table
 enum Opcode {
-  A = 0x5A,           // Add (32)
+#define DECLARE_OPCODES(name, opcode_name, opcode_value) \
+  opcode_name = opcode_value,
+  VRR_A_OPCODE_LIST(DECLARE_OPCODES) VRR_C_OPCODE_LIST(DECLARE_OPCODES)
+#undef DECLARE_OPCODES
+
+      A = 0x5A,       // Add (32)
   ADB = 0xED1A,       // Add (long BFP)
   ADBR = 0xB31A,      // Add (long BFP)
   ADTR = 0xB3D2,      // Add (long DFP)
@@ -1304,6 +1328,23 @@ class Instruction {
   DISALLOW_IMPLICIT_CONSTRUCTORS(Instruction);
 };
 
+#define DECLARE_FIELD_FOR_SIX_BYTE_INSTR(name, T, lo, hi)   \
+  inline int name() const {                                 \
+    return Bits<SixByteInstr, T>(47 - (lo), 47 - (hi) + 1); \
+  }
+
+// VRR Instruction
+class VRR_C_Instruction : Instruction {
+ public:
+  DECLARE_FIELD_FOR_SIX_BYTE_INSTR(R1Value, int, 8, 12);
+  DECLARE_FIELD_FOR_SIX_BYTE_INSTR(R2Value, int, 12, 16);
+  DECLARE_FIELD_FOR_SIX_BYTE_INSTR(R3Value, int, 16, 20);
+  DECLARE_FIELD_FOR_SIX_BYTE_INSTR(M6Value, uint32_t, 24, 28);
+  DECLARE_FIELD_FOR_SIX_BYTE_INSTR(M5Value, uint32_t, 28, 32);
+  DECLARE_FIELD_FOR_SIX_BYTE_INSTR(M4Value, uint32_t, 32, 36);
+  inline int size() const { return 6; }
+};
+
 // I Instruction -- suspect this will not be used,
 // but implement for completeness
 class IInstruction : Instruction {