Initial Commit

thirdparty/capstone/bindings/ocaml/mips.ml

@@ -0,0 +1,24 @@
+(* Capstone Disassembly Engine
+ * By Nguyen Anh Quynh <aquynh@gmail.com>, 2013-2014 *)
+
+open Mips_const
+
+(* architecture specific info of instruction *)
+type mips_op_mem = {
+	base: int;
+	disp: int
+}
+
+type mips_op_value =
+	| MIPS_OP_INVALID of int
+	| MIPS_OP_REG of int
+	| MIPS_OP_IMM of int
+	| MIPS_OP_MEM of mips_op_mem
+
+type mips_op = {
+	value: mips_op_value;
+}
+
+type cs_mips = {
+	operands: mips_op array;
+}