method vfunc fdec =
current_file_name <- file_of (GFun (fdec, null_location));
current_function_name <- fdec.svar.vname;
self#add_stat (current_file_name,current_function_name,(0,0,0,0,0,0,0,0));
funcs <- funcs+1;
let n =
try
let n = Varinfo.Hashtbl.find functions_no_source fdec.svar in
Varinfo.Hashtbl.remove functions_no_source fdec.svar;
n
with Not_found ->
0
in
let n =
try Varinfo.Hashtbl.find functions_with_source fdec.svar + n
with Not_found -> n
in
Varinfo.Hashtbl.replace functions_with_source fdec.svar n;
DoChildren