Skip to content
Snippets Groups Projects
Commit 94f2f7cc authored by Allan Blanchard's avatar Allan Blanchard
Browse files

[wp] Add default behavior when it is missing

parent 2cc4f5a7
No related branches found
No related tags found
No related merge requests found
...@@ -78,9 +78,10 @@ let apply task ~kf ?bhvs ?prop () = ...@@ -78,9 +78,10 @@ let apply task ~kf ?bhvs ?prop () =
let bhvs = match bhvs with let bhvs = match bhvs with
| Some bhvs -> bhvs | Some bhvs -> bhvs
| None -> | None ->
match Annotations.behaviors kf with let bhvs = Annotations.behaviors kf in
| [] -> [empty_default_behavior] if List.exists (Cil.is_default_behavior) bhvs then bhvs
| bhvs -> bhvs in else empty_default_behavior :: bhvs
in
let add_mode kf m = let add_mode kf m =
let modes = let modes =
match KFmap.find_opt kf task.modes with match KFmap.find_opt kf task.modes with
......
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