let update_actions_call_func kf (_,tr) =
  (* We update actions for the active transitions at the entrance
     of the function: the active states are exactly the ones upon which we
     split (and the ending states of the active transitions)
   *)

  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