From 7eeb169b982af90fac9873956e70d2c471555c31 Mon Sep 17 00:00:00 2001 From: Yann Herklotz Date: Mon, 26 Jun 2023 10:08:16 +0100 Subject: Finish some proofs and remove unnecessary Admitted --- driver/VericertDriver.ml | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'driver') diff --git a/driver/VericertDriver.ml b/driver/VericertDriver.ml index d45587c..ac358fe 100644 --- a/driver/VericertDriver.ml +++ b/driver/VericertDriver.ml @@ -99,8 +99,9 @@ let compile_c_file sourcename ifile ofile = in match translation csyntax with | Vericert.Errors.OK v -> - v + if !Vericert.Cohpred.cohpred_counter > 0 then Printf.fprintf stderr "OK\n"; v | Vericert.Errors.Error msg -> + if !Vericert.Cohpred.cohpred_counter > 0 then Printf.fprintf stderr "OK\n"; let loc = file_loc sourcename in fatal_error loc "%a" print_error msg in let oc = open_out ofile in -- cgit