Skip to content
Snippets Groups Projects
Commit c2eecb04 authored by Loïc Correnson's avatar Loïc Correnson
Browse files

[wp] revert formals allocation in pre

parent 3150f058
No related branches found
No related tags found
No related merge requests found
......@@ -342,15 +342,16 @@ struct
let requires_init = if init then b.bhv_requires else [] in
(* pre-state *)
W.label env.we None Clabels.pre @@
(* frame-in *)
W.scope env.we formals SC_Frame_in @@
(* pre-conditions *)
List.fold_right (use_property env) (default_requires env.mode kf) @@
List.fold_right (use_property env) b.bhv_assumes @@
List.fold_right (prove_property env) requires_init @@
List.fold_right (use_property env) b.bhv_requires @@
List.fold_right (prove_property env) b.bhv_smokes @@
List.fold_right (use_property env) side_behaviors w
List.fold_right (use_property env) side_behaviors @@
(* frame-in *)
W.scope env.we formals SC_Frame_in w
let do_post env ~formals (b : CfgAnnot.behavior) w =
W.scope env.we formals SC_Frame_out @@
......
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