Fix bug 5992: O'Caml's llvm_create_module was treating the context as a string.

Thanks Andy Ray for catching this!

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@93588 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Erick Tryzelaar 2010-01-15 23:49:16 +00:00
parent 53d4d78d9a
commit 263d989a71

View File

@ -112,9 +112,9 @@ CAMLprim LLVMContextRef llvm_global_context(value Unit) {
/*===-- 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 */