diff options
| author | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2009-08-19 08:37:00 +0000 |
|---|---|---|
| committer | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2009-08-19 08:37:00 +0000 |
| commit | 4a9c9df62c661e3d7917296a5052fd11ee7e053d (patch) | |
| tree | 70fc5496b02912b388edf40ba6d400ac9e5bd7a5 | |
| parent | 2296c753e1c85679dd6558134a7bfdf6a0734c33 (diff) | |
| download | external_llvm-4a9c9df62c661e3d7917296a5052fd11ee7e053d.zip external_llvm-4a9c9df62c661e3d7917296a5052fd11ee7e053d.tar.gz external_llvm-4a9c9df62c661e3d7917296a5052fd11ee7e053d.tar.bz2 | |
Add the ocaml binding to LLVMBuildAggregateRet.
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@79414 91177308-0d34-0410-b5e6-96231b3b80d8
| -rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index ccb1b1c..2fea055 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/bindings/ocaml/llvm/llvm_ocaml.c @@ -974,6 +974,12 @@ CAMLprim LLVMValueRef llvm_build_ret(LLVMValueRef Val, value B) { return LLVMBuildRet(Builder_val(B), Val); } +/* llvalue array -> llbuilder -> llvalue */ +CAMLprim LLVMValueRef llvm_build_aggregate_ret(value RetVals, value B) { + return LLVMBuildAggregateRet(Builder_val(B), (LLVMValueRef *) Op_val(RetVals), + Wosize_val(RetVals)); +} + /* llbasicblock -> llbuilder -> llvalue */ CAMLprim LLVMValueRef llvm_build_br(LLVMBasicBlockRef BB, value B) { return LLVMBuildBr(Builder_val(B), BB); |