diff options
author | lduboisd <lduboisd@inria.fr> | 2022-04-08 17:11:50 +0200 |
---|---|---|
committer | lduboisd <lduboisd@inria.fr> | 2022-04-08 17:11:50 +0200 |
commit | 59be27207e4527661d219991728a1372335ceede (patch) | |
tree | 0523c9497df43f329d772e9cf859e6f492bf204c /src/verit/verit.ml | |
parent | 15ab2869ab700d21c59c5a272721b5bba1d2b8ee (diff) | |
download | smtcoq-59be27207e4527661d219991728a1372335ceede.tar.gz smtcoq-59be27207e4527661d219991728a1372335ceede.zip |
use of anomaly for timeout
Diffstat (limited to 'src/verit/verit.ml')
-rw-r--r-- | src/verit/verit.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/verit/verit.ml b/src/verit/verit.ml index b0c75a7..12efcc9 100644 --- a/src/verit/verit.ml +++ b/src/verit/verit.ml @@ -207,7 +207,7 @@ let call_verit timeout _ rt ro ra_quant rf_quant first lsmt = CoqInterface.error ("veriT failed with the error: " ^ l) done with End_of_file -> () in - if exit_code = 124 (*code for timeout*) then (Printf.printf "bar" ; flush stdout ; close_in win; Sys.remove wname; let _ = failwith "veriT timed out" in ()); + if exit_code = 124 (*code for timeout*) then (Printf.printf "bar" ; flush stdout ; close_in win; Sys.remove wname; let _ = CErrors.anomaly (Pp.str "veriT timed out") in ()) ; try if exit_code <> 0 then CoqInterface.warning "verit-non-zero-exit-code" ("Verit.call_verit: command " ^ command ^ " exited with code " ^ string_of_int exit_code); raise_warnings_errors (); |