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