Initial Commit

thirdparty/capstone/bindings/ocaml/systemz.ml

@@ -0,0 +1,27 @@
+(* Capstone Disassembly Engine
+ * By Guillaume Jeanne <guillaume.jeanne@ensimag.fr>, 2014> *)
+
+open Sysz_const
+
+type sysz_op_mem = {
+	base: int;
+	index: int;
+	length: int64;
+	disp: int64;
+}
+
+type sysz_op_value = 
+	| SYSZ_OP_INVALID of int
+	| SYSZ_OP_REG of int
+	| SYSZ_OP_ACREG of int
+	| SYSZ_OP_IMM of int
+	| SYSZ_OP_MEM of sysz_op_mem
+
+type sysz_op = {
+	value: sysz_op_value;
+}
+
+type cs_sysz = { 
+	cc: int;
+	operands: sysz_op array;
+}