From 786a43e2d8f98034046b7fd3a78d94e57a466895 Mon Sep 17 00:00:00 2001 From: Peter Zotov Date: Mon, 11 Nov 2013 14:47:20 +0000 Subject: [OCaml] Accept context explicitly in Llvm_target functions Llvm_target.intptr_type used to implicitly use global context. As none of other functions in OCaml bindings do, it is changed to accept context explicitly. git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@194381 91177308-0d34-0410-b5e6-96231b3b80d8 --- bindings/ocaml/target/target_ocaml.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'bindings/ocaml/target/target_ocaml.c') diff --git a/bindings/ocaml/target/target_ocaml.c b/bindings/ocaml/target/target_ocaml.c index e457742727..46bf8dc454 100644 --- a/bindings/ocaml/target/target_ocaml.c +++ b/bindings/ocaml/target/target_ocaml.c @@ -72,9 +72,9 @@ CAMLprim value llvm_pointer_size(value TD) { return Val_int(LLVMPointerSize(TargetData_val(TD))); } -/* DataLayout.t -> int -> Llvm.lltype */ -CAMLprim LLVMTypeRef llvm_intptr_type(value TD) { - return LLVMIntPtrType(TargetData_val(TD));; +/* DataLayout.t -> Llvm.llcontext -> Llvm.lltype */ +CAMLprim LLVMTypeRef llvm_intptr_type(value TD, LLVMContextRef C) { + return LLVMIntPtrTypeInContext(C, TargetData_val(TD));; } /* DataLayout.t -> Llvm.lltype -> Int64.t */ -- cgit v1.2.3