From b19b9defebf96ba8599f481d4c617d43c21642ef Mon Sep 17 00:00:00 2001 From: David Monniaux Date: Fri, 10 Apr 2020 18:09:34 +0200 Subject: use proper local labels --- backend/Profilingaux.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'backend/Profilingaux.ml') diff --git a/backend/Profilingaux.ml b/backend/Profilingaux.ml index a1d41ceb..0ba739c2 100644 --- a/backend/Profilingaux.ml +++ b/backend/Profilingaux.ml @@ -48,13 +48,14 @@ let load_profiling_info (filename : string) : unit = let id : identifier = really_input_string ic 16 in let counter0 = input_counter ic in let counter1 = input_counter ic in - (* Printf.fprintf stderr "%a : %Ld %Ld\n" pp_id id counter0 counter1; *) + (* Printf.fprintf stderr "%a : %Ld %Ld\n" pp_id id counter0 counter1 *) add_profiling_counts id counter0 counter1 done with End_of_file -> close_in ic;; let condition_oracle (id : identifier) : bool option = let (count0, count1) = get_counts id in - (* Printf.fprintf stderr "%a : %Ld %Ld\n" pp_id id count0 count1; *) + (if count0 <> 0L || count1 <> 0L then + Printf.fprintf stderr "%a : %Ld %Ld\n" pp_id id count0 count1); if count0 = count1 then None else Some(count1 > count0);; -- cgit