diff options
author | Chantal Keller <Chantal.Keller@lri.fr> | 2022-04-14 18:01:15 +0200 |
---|---|---|
committer | Chantal Keller <Chantal.Keller@lri.fr> | 2022-04-14 18:01:15 +0200 |
commit | 65c185275f8c78908c1496c6665bc7fd50a4607b (patch) | |
tree | 3d68caf8b482563c01ada2cf426f7f96d6fda76a /src | |
parent | deb9927455bcb3b506d17a63a9b7b5ec11fe9027 (diff) | |
download | smtcoq-65c185275f8c78908c1496c6665bc7fd50a4607b.tar.gz smtcoq-65c185275f8c78908c1496c6665bc7fd50a4607b.zip |
Clean-up
Diffstat (limited to 'src')
-rw-r--r-- | src/trace/coqInterface.ml | 1 | ||||
-rw-r--r-- | src/trace/coqInterface.mli | 1 | ||||
-rw-r--r-- | src/verit/verit.ml | 2 |
3 files changed, 3 insertions, 1 deletions
diff --git a/src/trace/coqInterface.ml b/src/trace/coqInterface.ml index a8af566..8b91225 100644 --- a/src/trace/coqInterface.ml +++ b/src/trace/coqInterface.ml @@ -150,6 +150,7 @@ let set_evars_tac noc = (* Other differences between the two versions of Coq *) type constr_expr = Constrexpr.constr_expr let error s = CErrors.user_err (Pp.str s) +let anomaly s = CErrors.anomaly (Pp.str s) let warning n s = CWarnings.create ~name:n ~category:"SMTCoq plugin" Pp.str s let extern_constr c = Constrextern.extern_constr true Environ.empty_env Evd.empty (EConstr.of_constr c) diff --git a/src/trace/coqInterface.mli b/src/trace/coqInterface.mli index 86fdd95..453bce1 100644 --- a/src/trace/coqInterface.mli +++ b/src/trace/coqInterface.mli @@ -98,6 +98,7 @@ val set_evars_tac : constr -> tactic (* Other differences between the two versions of Coq *) type constr_expr = Constrexpr.constr_expr val error : string -> 'a +val anomaly : string -> 'a val warning : string -> string -> unit val extern_constr : constr -> constr_expr val destruct_rel_decl : (constr, types) Context.Rel.Declaration.pt -> name * types diff --git a/src/verit/verit.ml b/src/verit/verit.ml index eb8c5cc..33f9b4c 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 _ = CErrors.anomaly (Pp.str "veriT timed out") in ()) ; + if exit_code = 124 (*code for timeout*) then (close_in win; Sys.remove wname; let _ = CoqInterface.anomaly "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 (); |