diff options
| author | Torok Edwin <edwintorok@gmail.com> | 2011-10-14 20:38:19 +0000 |
|---|---|---|
| committer | Torok Edwin <edwintorok@gmail.com> | 2011-10-14 20:38:19 +0000 |
| commit | a33ba4020647ebdcc1e735d5c4323a8a55c73686 (patch) | |
| tree | 447b9a11b463cadc424caf59f0f5b11b95197e8e /llvm/bindings/ocaml | |
| parent | 90e6edf7c482aa3025de2127d3641d0924c302ff (diff) | |
| download | bcm5719-llvm-a33ba4020647ebdcc1e735d5c4323a8a55c73686.tar.gz bcm5719-llvm-a33ba4020647ebdcc1e735d5c4323a8a55c73686.zip | |
OCaml bindings: add icmp_predicate
llvm-svn: 141995
Diffstat (limited to 'llvm/bindings/ocaml')
| -rw-r--r-- | llvm/bindings/ocaml/llvm/llvm.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/llvm/bindings/ocaml/llvm/llvm.ml b/llvm/bindings/ocaml/llvm/llvm.ml index 168c21ccc86..0b24fd5e424 100644 --- a/llvm/bindings/ocaml/llvm/llvm.ml +++ b/llvm/bindings/ocaml/llvm/llvm.ml @@ -815,6 +815,8 @@ external instr_pred : llvalue -> (llbasicblock, llvalue) llrev_pos external instr_opcode : llvalue -> Opcode.t = "llvm_instr_get_opcode" external icmp_predicate : llvalue -> Icmp.t option = "llvm_instr_icmp_predicate" +external icmp_predicate : llvalue -> Icmp.t option = "llvm_instr_icmp_predicate" + let rec iter_instrs_range f i e = if i = e then () else match i with |
