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 | |
| parent | e9f748f8e302f4d9977661e9c51ddaf5410bdec6 (diff) | |
| download | vericert-7eeb169b982af90fac9873956e70d2c471555c31.tar.gz vericert-7eeb169b982af90fac9873956e70d2c471555c31.zip | |
Finish some proofs and remove unnecessary Admitted
Diffstat (limited to 'driver')
| -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 |