diff options
| author | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-02-28 20:45:03 +0000 |
|---|---|---|
| committer | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-02-28 20:45:03 +0000 |
| commit | b65c5f2ec347db8342cb7e42d072b0088b74fa73 (patch) | |
| tree | 8729f5e146e008e8344c3286ef8d3b21a14e1194 /bindings | |
| parent | 6ba5c56cf5b1609ec4af45f4901118865a8ed9b6 (diff) | |
| download | llvm-b65c5f2ec347db8342cb7e42d072b0088b74fa73.tar.gz llvm-b65c5f2ec347db8342cb7e42d072b0088b74fa73.tar.bz2 llvm-b65c5f2ec347db8342cb7e42d072b0088b74fa73.tar.xz | |
Add support getting the operands of a User to ocaml.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@97414 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings')
| -rw-r--r-- | bindings/ocaml/llvm/llvm.ml | 3 | ||||
| -rw-r--r-- | bindings/ocaml/llvm/llvm.mli | 7 | ||||
| -rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 7 |
3 files changed, 17 insertions, 0 deletions
diff --git a/bindings/ocaml/llvm/llvm.ml b/bindings/ocaml/llvm/llvm.ml index 48f649a3cf..0af8f48fa3 100644 --- a/bindings/ocaml/llvm/llvm.ml +++ b/bindings/ocaml/llvm/llvm.ml @@ -242,6 +242,9 @@ external dump_value : llvalue -> unit = "llvm_dump_value" external replace_all_uses_with : llvalue -> llvalue -> unit = "LLVMReplaceAllUsesWith" +(*--... Operations on users ................................................--*) +external operand : llvalue -> int -> llvalue = "llvm_operand" + (*--... Operations on constants of (mostly) any type .......................--*) external is_constant : llvalue -> bool = "llvm_is_constant" external const_null : lltype -> llvalue = "LLVMConstNull" diff --git a/bindings/ocaml/llvm/llvm.mli b/bindings/ocaml/llvm/llvm.mli index 3413a64660..674ec9e9c0 100644 --- a/bindings/ocaml/llvm/llvm.mli +++ b/bindings/ocaml/llvm/llvm.mli @@ -513,6 +513,13 @@ external replace_all_uses_with : llvalue -> llvalue -> unit = "LLVMReplaceAllUsesWith" +(* {6 Users} *) + +(** [operand v i] returns the operand at index [i] for the value [v]. See the + method [llvm::User::getOperand]. *) +external operand : llvalue -> int -> llvalue = "llvm_operand" + + (** {7 Operations on constants of (mostly) any type} *) (** [is_constant v] returns [true] if the value [v] is a constant, [false] diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index 78cf6e4368..cdd137e51b 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/bindings/ocaml/llvm/llvm_ocaml.c @@ -440,6 +440,13 @@ CAMLprim value llvm_dump_value(LLVMValueRef Val) { return Val_unit; } +/*--... Operations on users ................................................--*/ + +/* llvalue -> int -> llvalue */ +CAMLprim LLVMValueRef llvm_operand(LLVMValueRef V, value I) { + return LLVMGetOperand(V, Int_val(I)); +} + /*--... Operations on constants of (mostly) any type .......................--*/ /* llvalue -> bool */ |