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

[Erick Tryzelaar]

Author: erickt
Date: Fri Jan 15 17:49:16 2010
New Revision: 93588

URL: http://llvm.org/viewvc/llvm-project?rev=93588&view=rev
Log:
Fix bug 5992: O'Caml's llvm_create_module was treating the context as a string.

Thanks Andy Ray for catching this!

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=93588&r1=93587&r2=93588&view=diff

==============================================================================
--- llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c (original)
+++ llvm/trunk/bindings/ocaml/llvm/llvm_ocaml.c Fri Jan 15 17:49:16 2010
@@ -112,9 +112,9 @@
 
 /*===-- Modules -----------------------------------------------------------===*/
 
-/* string -> llmodule */
-CAMLprim LLVMModuleRef llvm_create_module(value ModuleID) {
-  return LLVMModuleCreateWithName(String_val(ModuleID));
+/* llcontext -> string -> llmodule */
+CAMLprim LLVMModuleRef llvm_create_module(LLVMContextRef C, value ModuleID) {
+  return LLVMModuleCreateWithNameInContext(String_val(ModuleID), C);
 }
 
 /* llmodule -> unit */