1(* Capstone Disassembly Engine 2 * By Guillaume Jeanne <guillaume.jeanne@ensimag.fr>, 2014> *) 3 4open Sparc_const 5 6type sparc_op_mem = { 7 base: int; 8 index: int; 9 disp: int; 10} 11 12type sparc_op_value = 13 | SPARC_OP_INVALID of int 14 | SPARC_OP_REG of int 15 | SPARC_OP_IMM of int 16 | SPARC_OP_MEM of sparc_op_mem 17 18type sparc_op = { 19 value: sparc_op_value; 20} 21 22type cs_sparc = { 23 cc: int; 24 hint: int; 25 operands: sparc_op array; 26} 27 28