From 6b5556326d9b922b299383de0b7b39f89ab6d595 Mon Sep 17 00:00:00 2001 From: varobert Date: Wed, 4 Apr 2012 11:59:36 +0000 Subject: Adjustments to cchecklink's options and verbosity git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1866 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- checklink/Frameworks.ml | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'checklink/Frameworks.ml') diff --git a/checklink/Frameworks.ml b/checklink/Frameworks.ml index e8f75ba..f63eb9a 100644 --- a/checklink/Frameworks.ml +++ b/checklink/Frameworks.ml @@ -6,10 +6,9 @@ open Lens open Library type log_entry = - | LOG of string + | DEBUG of string | ERROR of string | WARNING of string - | DEBUG of string type byte_chunk_desc = | ELF_header @@ -37,6 +36,8 @@ type e_framework = { The first two fields are the start and stop offsets, the third is an alignment constraint, the last is a description. *) chkd_bytes_list: (int32 * int32 * int * byte_chunk_desc) list; + chkd_fun_syms: bool array; + chkd_data_syms: bool array; } module PosOT = struct @@ -164,11 +165,10 @@ let ( ^%=? ) (lens: ('a, 'b) Lens.t) (transf: 'b -> 'b on_success) (** Finally, some printers. *) -let string_of_log_entry = function -| LOG(s) -> s +let string_of_log_entry show_debug = function +| DEBUG(s) -> if show_debug then s else "" | ERROR(s) -> "ERROR: " ^ s | WARNING(s) -> "WARNING: " ^ s -| DEBUG(s) -> "DEBUG: " ^ s let string_of_byte_chunk_desc = function | ELF_header -> "ELF header" -- cgit v1.2.3