Initial Commit

thirdparty/capstone/bindings/ocaml/xcore.ml

@@ -0,0 +1,26 @@
+(* Capstone Disassembly Engine
+ * By Guillaume Jeanne <guillaume.jeanne@ensimag.fr>, 2014> *)
+
+open Xcore_const
+
+type xcore_op_mem = {
+	base: int;
+	index: int;
+	disp: int;
+	direct: int;
+}
+
+type xcore_op_value =
+	| XCORE_OP_INVALID of int
+	| XCORE_OP_REG of int
+	| XCORE_OP_IMM of int
+	| XCORE_OP_MEM of xcore_op_mem
+
+type xcore_op = {
+	value: xcore_op_value;
+}
+
+type cs_xcore = { 
+	operands: xcore_op array;
+}
+