P114-013 set steps default value to 0

src/driver/call_provers.ml

@@ -51,12 +51,12 @@ let empty_limit =
 
 let get_time x = Opt.get_def 0 x.limit_time
 let get_mem x = Opt.get_def 0 x.limit_mem
-let get_steps x = Opt.get_def (-1) x.limit_steps
+let get_steps x = Opt.get_def 0 x.limit_steps
 
 let mk_limit t m s =
   { limit_time = if t = 0 then None else Some t;
     limit_mem  = if m = 0 then None else Some m;
-    limit_steps = if s = -1 then None else Some s
+    limit_steps = if s = 0 then None else Some s
   }
 
 let limit_max a b =

src/driver/call_provers.mli

@@ -139,7 +139,7 @@ val get_time : resource_limit -> int
 val get_mem : resource_limit -> int
 (* return time, return default value 0 if not set *)
 val get_steps : resource_limit -> int
-(* return time, return default value (-1) if not set *)
+(* return time, return default value 0 if not set *)
 
 val mk_limit : int -> int -> int -> resource_limit
 (* build a limit object, transforming the default values into None on the fly

src/session/session_scheduler.ml

@@ -422,22 +422,22 @@ let adapt_limits ~use_steps a =
     let increased_mem = 3 * memlimit / 2 in
     begin
       match r with
-      | Call_provers.OutOfMemory -> increased_time, memlimit, -1
-      | Call_provers.Timeout -> timelimit, increased_mem, -1
+      | Call_provers.OutOfMemory -> increased_time, memlimit, 0
+      | Call_provers.Timeout -> timelimit, increased_mem, 0
       | Call_provers.Valid ->
         let steplimit =
-          if use_steps && not a.proof_obsolete then s else -1
+          if use_steps && not a.proof_obsolete then s else 0
         in
         increased_time, increased_mem, steplimit
       | Call_provers.Unknown _
       | Call_provers.StepLimitExceeded
-      | Call_provers.Invalid -> increased_time, increased_mem, -1
+      | Call_provers.Invalid -> increased_time, increased_mem, 0
       | Call_provers.Failure _
       | Call_provers.HighFailure ->
         (* correct ? failures are supposed to appear quickly anyway... *)
-        timelimit, memlimit, -1
+        timelimit, memlimit, 0
     end
-  | _ -> timelimit, memlimit, -1
+  | _ -> timelimit, memlimit, 0
 
 let adapt_limits ~use_steps a =
   let t, m, s = adapt_limits ~use_steps a in

src/tools/why3replay.ml

@@ -400,7 +400,7 @@ let run_as_bench env_session =
     eprintf " done.@.";
     exit 0
   in
-  let limit = Call_provers.mk_limit 2 0 (-1) in
+  let limit = Call_provers.mk_limit 2 0 0 in
   M.play_all env_session sched ~callback ~limit provers;
   main_loop ();
   eprintf "main replayer (in bench mode) exited unexpectedly@.";