diff options
author | Yann Herklotz <git@yannherklotz.com> | 2023-06-26 10:08:16 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2023-06-26 10:08:44 +0100 |
commit | 7eeb169b982af90fac9873956e70d2c471555c31 (patch) | |
tree | 53a1a3a98bb5b1e38891ca77af17c10d852daea0 /driver/VericertDriver.ml | |
parent | e9f748f8e302f4d9977661e9c51ddaf5410bdec6 (diff) | |
download | vericert-7eeb169b982af90fac9873956e70d2c471555c31.tar.gz vericert-7eeb169b982af90fac9873956e70d2c471555c31.zip |
Finish some proofs and remove unnecessary Admitted
Diffstat (limited to 'driver/VericertDriver.ml')
-rw-r--r-- | driver/VericertDriver.ml | 3 |
1 files changed, 2 insertions, 1 deletions
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 |