Home | History | Annotate | Download | only in ocaml
      1 (* Capstone Disassembly Engine
      2  * By Guillaume Jeanne <guillaume.jeanne (a] ensimag.fr>, 2014> *)
      3 
      4 open Xcore_const
      5 
      6 type xcore_op_mem = {
      7 	base: int;
      8 	index: int;
      9 	disp: int;
     10 	direct: int;
     11 }
     12 
     13 type xcore_op_value =
     14 	| XCORE_OP_INVALID of int
     15 	| XCORE_OP_REG of int
     16 	| XCORE_OP_IMM of int
     17 	| XCORE_OP_MEM of xcore_op_mem
     18 
     19 type xcore_op = {
     20 	value: xcore_op_value;
     21 }
     22 
     23 type cs_xcore = { 
     24 	operands: xcore_op array;
     25 }
     26 
     27