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/Fuzz.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/Fuzz.ml')
| -rw-r--r-- | checklink/Fuzz.ml | 5 |
1 files changed, 4 insertions, 1 deletions
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. *) |