diff options
| author | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-08-20 14:51:22 +0000 |
|---|---|---|
| committer | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-08-20 14:51:22 +0000 |
| commit | f7af931930dfab74b8a72b195e53df34b4ea2480 (patch) | |
| tree | 5446119778568375fbf3c8cd3620cb2aec5381a5 /bindings/ocaml/llvm/llvm_ocaml.c | |
| parent | e12741055015ef5b98e1225834fcece0a3f04029 (diff) | |
| download | llvm-f7af931930dfab74b8a72b195e53df34b4ea2480.tar.gz llvm-f7af931930dfab74b8a72b195e53df34b4ea2480.tar.bz2 llvm-f7af931930dfab74b8a72b195e53df34b4ea2480.tar.xz | |
Expose LLVMSetOperand and LLVMGetNumOperands to llvm-c and ocaml.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@111625 91177308-0d34-0410-b5e6-96231b3b80d8
Diffstat (limited to 'bindings/ocaml/llvm/llvm_ocaml.c')
| -rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index 2caa3876dc..d25d2942d1 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/bindings/ocaml/llvm/llvm_ocaml.c @@ -452,6 +452,17 @@ CAMLprim LLVMValueRef llvm_operand(LLVMValueRef V, value I) { return LLVMGetOperand(V, Int_val(I)); } +/* llvalue -> int -> llvalue -> unit */ +CAMLprim value llvm_set_operand(LLVMValueRef U, value I, LLVMValueRef V) { + LLVMSetOperand(U, Int_val(I), V); + return Val_unit; +} + +/* llvalue -> int */ +CAMLprim value llvm_num_operands(LLVMValueRef V) { + return Val_int(LLVMGetNumOperands(V)); +} + /*--... Operations on constants of (mostly) any type .......................--*/ /* llvalue -> bool */ |