Home | History | Annotate | Download | only in ocaml
      1 (* Capstone Disassembly Engine
      2  * By Guillaume Jeanne <guillaume.jeanne (a] ensimag.fr>, 2014> *)
      3 
      4 open Ppc_const
      5 
      6 type ppc_op_mem = {
      7 	base: int;
      8 	disp: int;
      9 }
     10 
     11 type ppc_op_crx = {
     12 	scale: int;
     13 	reg: int;
     14 	cond: int;
     15 }
     16 
     17 type ppc_op_value = 
     18 	| PPC_OP_INVALID of int
     19 	| PPC_OP_REG of int
     20 	| PPC_OP_IMM of int
     21 	| PPC_OP_MEM of ppc_op_mem
     22 	| PPC_OP_CRX of ppc_op_crx
     23 
     24 type ppc_op = {
     25 	value: ppc_op_value;
     26 }
     27 
     28 type cs_ppc = { 
     29 	bc: int;
     30 	bh: int;
     31 	update_cr0: bool;
     32 	operands: ppc_op array;
     33 }
     34 
     35