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/Fuzz.ml | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'checklink/Fuzz.ml') diff --git a/checklink/Fuzz.ml b/checklink/Fuzz.ml index 538c2d8..56b665a 100644 --- a/checklink/Fuzz.ml +++ b/checklink/Fuzz.ml @@ -14,6 +14,9 @@ let range_of_byte elfmap byte = let (_, _, _, r) = full_range_of_byte elfmap byte in r +(** [fuzz_check] will print what happened on stderr, and report errors (that is, + when the check went fine) to stdout. +*) let fuzz_check elfmap bs byte old sdumps = try (* The point here is to go all the way through the checks, and see whether @@ -21,7 +24,7 @@ let fuzz_check elfmap bs byte old sdumps = might be missing a bug! *) let elf = read_elf_bs bs in - let efw = check_elf elf sdumps in + let efw = check_elf_nodump elf sdumps in if List.exists (function ERROR(s) -> true | _ -> false) efw.log then () (* finding an ERROR is expected *) else (* not finding an ERROR is bad! This is reported. *) -- cgit v1.2.3