Skip to content
Snippets Groups Projects
Commit fdcb0d60 authored by François Bobot's avatar François Bobot
Browse files

Merge branch 'feature/wp/stable-vanadium-fix-memlimit' into 'stable/vanadium'

[WP] Fix for memlimit

See merge request frama-c/frama-c!3206
parents 21b49440 65312ded
No related branches found
No related tags found
No related merge requests found
...@@ -1249,10 +1249,11 @@ let digest wpo drv prover task = ...@@ -1249,10 +1249,11 @@ let digest wpo drv prover task =
let batch pconf driver ?script ~timeout ~steplimit prover task = let batch pconf driver ?script ~timeout ~steplimit prover task =
let steps = match steplimit with Some 0 -> None | _ -> steplimit in let steps = match steplimit with Some 0 -> None | _ -> steplimit in
let limit = let limit =
let memlimit = Why3.Whyconf.memlimit (Why3.Whyconf.get_main (Why3Provers.config ())) in
let def = Why3.Call_provers.empty_limit in let def = Why3.Call_provers.empty_limit in
{ def with { Why3.Call_provers.limit_time = Why3.Opt.get_def def.limit_time timeout;
Why3.Call_provers.limit_time = Why3.Opt.get_def def.limit_time timeout;
Why3.Call_provers.limit_steps = Why3.Opt.get_def def.limit_time steps; Why3.Call_provers.limit_steps = Why3.Opt.get_def def.limit_time steps;
Why3.Call_provers.limit_mem = memlimit;
} in } in
let with_steps = match steps, pconf.Why3.Whyconf.command_steps with let with_steps = match steps, pconf.Why3.Whyconf.command_steps with
| None, _ -> false | None, _ -> false
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment