Home | History | Annotate | Download | only in ocaml 
      1 (* Capstone Disassembly Engine
      2  * By Nguyen Anh Quynh <aquynh (a] gmail.com>, 2013-2014 *)
      3 
      4 open Mips_const
      5 
      6 (* architecture specific info of instruction *)
      7 type mips_op_mem = {
      8 	base: int;
      9 	disp: int
     10 }
     11 
     12 type mips_op_value =
     13 	| MIPS_OP_INVALID of int
     14 	| MIPS_OP_REG of int
     15 	| MIPS_OP_IMM of int
     16 	| MIPS_OP_MEM of mips_op_mem
     17 
     18 type mips_op = {
     19 	value: mips_op_value;
     20 }
     21 
     22 type cs_mips = {
     23 	operands: mips_op array;
     24 }
     25