let update_actions_call_func kf (_,tr) =
let treat_one_trans idx status =
if status then begin
let trans = Data_for_aorai.getTransition idx in
Aorai_option.debug ~dkey:"action"
"Call to %a: treating actions of trans %s -> %s"
Kernel_function.pretty kf
trans.start.Promelaast.name trans.stop.Promelaast.name;
let actions = actions_to_range (snd trans.cross) in
List.iter
(fun (l,v) ->
Aorai_option.debug ~dkey:"action"
"Add binding for %a: %a + %a"
Cil_datatype.Term.pretty l Cil_datatype.Term.pretty (fst v)
Data_for_aorai.Range.pretty (snd v);
Data_for_aorai.add_action_path kf Kglobal trans.start trans.stop l v)
actions
end
in
Array.iter (Array.iteri treat_one_trans) tr