From: Peter Zotov <whitequark@whitequark.org>
Date: Sun, 3 Nov 2013 08:27:08 +0000 (+0000)
Subject: [OCaml] Llvm_target: fix typo (Int_val instead of Int64_val)
X-Git-Url: http://plrg.eecs.uci.edu/git/?a=commitdiff_plain;h=fed0b3414250b6dea1732e95d79163b00a2cb38e;p=oota-llvm.git

[OCaml] Llvm_target: fix typo (Int_val instead of Int64_val)

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@193948 91177308-0d34-0410-b5e6-96231b3b80d8
---

diff --git a/bindings/ocaml/target/target_ocaml.c b/bindings/ocaml/target/target_ocaml.c
index 86f8de023da..4d0beffa5de 100644
--- a/bindings/ocaml/target/target_ocaml.c
+++ b/bindings/ocaml/target/target_ocaml.c
@@ -92,7 +92,7 @@ CAMLprim value llvm_preferred_align_of_global(LLVMTargetDataRef TD,
 /* DataLayout.t -> Llvm.lltype -> Int64.t -> int */
 CAMLprim value llvm_element_at_offset(LLVMTargetDataRef TD, LLVMTypeRef Ty,
                                       value Offset) {
-  return Val_int(LLVMElementAtOffset(TD, Ty, Int_val(Offset)));
+  return Val_int(LLVMElementAtOffset(TD, Ty, Int64_val(Offset)));
 }
 
 /* DataLayout.t -> Llvm.lltype -> int -> Int64.t */