From d4b3174fb44f4c790c258932f8f4d27ad73aefd7 Mon Sep 17 00:00:00 2001 From: varobert Date: Fri, 1 Jun 2012 15:20:35 +0000 Subject: checklink: improved error messages git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1909 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- checklink/Library.ml | 1 + 1 file changed, 1 insertion(+) (limited to 'checklink/Library.ml') diff --git a/checklink/Library.ml b/checklink/Library.ml index 0ce3bcd..ebcbac8 100644 --- a/checklink/Library.ml +++ b/checklink/Library.ml @@ -140,6 +140,7 @@ let string_of_bitstring bs = (* To print addresses/offsets *) let string_of_int32 = Printf.sprintf "0x%08lx" +let string_of_int64 = Printf.sprintf "0x%08Lx" (* To print counts/indices *) let string_of_int32i = Int32.to_string -- cgit v1.2.3