diff options
author | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-01-15 23:49:16 +0000 |
---|---|---|
committer | Erick Tryzelaar <idadesub@users.sourceforge.net> | 2010-01-15 23:49:16 +0000 |
commit | 53e5f48f5f2a4efc97dc902ef3becb08bef1f1be (patch) | |
tree | 673b1c866efb9526712d77a2fe069f07f026d596 /bindings | |
parent | 67cce68221c693cd2c80cf2a16b626b6abfc67e6 (diff) | |
download | external_llvm-53e5f48f5f2a4efc97dc902ef3becb08bef1f1be.zip external_llvm-53e5f48f5f2a4efc97dc902ef3becb08bef1f1be.tar.gz external_llvm-53e5f48f5f2a4efc97dc902ef3becb08bef1f1be.tar.bz2 |
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
Diffstat (limited to 'bindings')
-rw-r--r-- | bindings/ocaml/llvm/llvm_ocaml.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/bindings/ocaml/llvm/llvm_ocaml.c b/bindings/ocaml/llvm/llvm_ocaml.c index 8868d07..6cc475d 100644 --- a/bindings/ocaml/llvm/llvm_ocaml.c +++ b/bindings/ocaml/llvm/llvm_ocaml.c @@ -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 */ |