How could i print the results of this function find_simple_stmt_nodes : (t -> Cil_types.stmt -> PdgTypes.Node.t list) Pervasives.ref.Is there a method to do that? If anybody could help me... I tried something like that:
let listeStatement= !Db.Pdg.find_simple_stmt_nodes pdg assert_stmt in
let rec print_list = function
[] -> ()
| x :: l -> Format.printf "%a@." (!Db.Pdg.pretty_node false) x;
print_string " "; Format.printf "%a@." (!Db.Pdg.pretty_node false) l in
print_list listeStatement;;