capstone/bindings/ocaml/mips.ml

(* Capstone Disassembler Engine
 * By Nguyen Anh Quynh <aquynh@gmail.com>, 2013> *)

open Mips_const

(* architecture specific info of instruction *)
type mips_op_mem = {
	base: int;
	displ: 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 = {
	op_count: int;
	operands: mips_op array;
}