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