0

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;;

0 Answers0