[llvm-commits] [llvm] r79414 - /llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c

[Erick Tryzelaar]

Author: erickt
Date: Wed Aug 19 03:37:00 2009
New Revision: 79414

URL: http://llvm.org/viewvc/llvm-project?rev=79414&view=rev
Log:
Add the ocaml binding to LLVMBuildAggregateRet.

Modified:
    llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c

Modified: llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c
URL: http://llvm.org/viewvc/llvm-project/llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c?rev=79414&r1=79413&r2=79414&view=diff

==============================================================================
--- llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c (original)
+++ llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c Wed Aug 19 03:37:00 2009
@@ -974,6 +974,12 @@
   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);