Magic-Mirror/capstone
1
0
Fork 0
mirror of https://github.com/capstone-engine/capstone.git synced 2025-03-05 21:11:56 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

ocaml: properly handle newly added mode CS_MODE_V8 & PPC_OP_CRX in test_ppc.ml

Browse Source
This commit is contained in:
Nguyen Anh Quynh 2014-11-12 10:26:17 +08:00
parent 9ba1906470
commit 7b7d7455b0
2 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
bindings/ocaml/ocaml.c
View File

@ -811,21 +811,24 @@ CAMLprim value ocaml_open(value _arch, value _mode)
mode |= CS_MODE_MCLASS;
break;
case 7:
mode |= CS_MODE_MICRO;
mode |= CS_MODE_V8;
break;
case 8:
mode |= CS_MODE_MIPS3;
mode |= CS_MODE_MICRO;
break;
case 9:
mode |= CS_MODE_MIPS32R6;
mode |= CS_MODE_MIPS3;
break;
case 10:
mode |= CS_MODE_MIPSGP64;
mode |= CS_MODE_MIPS32R6;
break;
case 11:
mode |= CS_MODE_V9;
mode |= CS_MODE_MIPSGP64;
break;
case 12:
mode |= CS_MODE_V9;
break;
case 13:
mode |= CS_MODE_BIG_ENDIAN;
break;
default:

8
bindings/ocaml/test_ppc.ml
View File

@ -31,6 +31,14 @@ let print_op handle i op =
if mem.disp != 0 then
printf "\t\t\toperands[%u].mem.disp: 0x%x\n" i mem.disp;
);
| PPC_OP_CRX crx -> ( printf "\t\top[%d]: CRX\n" i;
if crx.scale != 0 then
printf "\t\t\toperands[%u].crx.scale = %u\n" i crx.scale;
if crx.reg != 0 then
printf "\t\t\toperands[%u].crx.reg = %s\n" i (cs_reg_name handle crx.reg);
if crx.cond != 0 then
printf "\t\t\toperands[%u].crx.cond = 0x%x\n" i crx.cond;
);
);
();;