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 = VarinfoHashtbl.find functions_no_source fdec.svar in
        VarinfoHashtbl.remove functions_no_source fdec.svar;
        n
      with Not_found ->
        0
    in
    let n =
      try VarinfoHashtbl.find functions_with_source fdec.svar + n
      with Not_found -> n
    in
    VarinfoHashtbl.replace functions_with_source fdec.svar n;
    DoChildren