diff options
| author |  varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-04-04 11:59:36 +0000 |
|---|---|---|
| committer | varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-04-04 11:59:36 +0000 |
| commit | 6b5556326d9b922b299383de0b7b39f89ab6d595 (patch) | |
| tree | c1e3b7972ffb59df67b7710a1e39485908f6860e /checklink/Frameworks.ml | |
| parent | d892ae294cb2cec3fcf9445555f884420e90c346 (diff) | |
Adjustments to cchecklink's options and verbosity
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1866 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'checklink/Frameworks.ml')
| -rw-r--r-- | checklink/Frameworks.ml | 10 |
1 files changed, 5 insertions, 5 deletions
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" |