diff options
| author |  varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-04-04 11:59:39 +0000 |
|---|---|---|
| committer | varobert <varobert@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-04-04 11:59:39 +0000 |
| commit | cf3d6bde3582c26bc62d1baaaaff6fefef0f2a29 (patch) | |
| tree | a0a417b178b8f3331ba6d6a9744b7227d59209a5 /checklink/Fuzz.ml | |
| parent | caf14050d5fe108dc65e9c8d8df84633e84f79c8 (diff) | |
Catch Integer_overflow during fuzz testing
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1870 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'checklink/Fuzz.ml')
| -rw-r--r-- | checklink/Fuzz.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/checklink/Fuzz.ml b/checklink/Fuzz.ml index 7752aee..c1f6780 100644 --- a/checklink/Fuzz.ml +++ b/checklink/Fuzz.ml @@ -51,6 +51,9 @@ let fuzz_check elfmap bs byte old sdumps = | Assert_failure(s, l, c) -> if !fuzz_debug then Printf.printf "fuzz_check failed an assertion at %s (%d, %d)\n" s l c + | Library.Integer_overflow -> + if !fuzz_debug + then Printf.printf "fuzz_check raised an integer overflow exception\n" | Match_failure(s, l, c) -> if !fuzz_debug then Printf.printf "fuzz_check raised a match failure at %s (%d, %d)\n" s l c |