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

[oota-llvm.git] / bindings / ocaml / target / target_ocaml.c

diff --git a/bindings/ocaml/target/target_ocaml.c b/bindings/ocaml/target/target_ocaml.c
index 86f8de023daed2582b17f6899e4576d29ab2f69a..4d0beffa5defb3313d6f3ca95f62df9c35e5ffe6 100644 (file)
--- 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 */