let compute () =
let file = Ast.get () in
let v = new slocVisitor in
visitCilFileSameGlobals (v:>cilVisitor) file;
LastResult.set
{ call_statements = v#calls;
goto_statements = v#gotos;
assign_statements = v#assigns;
if_statements = v#ifs;
mem_access = v#mem_access;
loop_statements = v#loops;
sloc = v#sloc;
functions_without_source = v#functions_no_source;
functions_with_source = v#functions_with_source;
}