|
|
|
@ -76,7 +76,11 @@ let do_frontend_checks cfg cg source_file ast =
|
|
|
|
|
match ast with
|
|
|
|
|
| Clang_ast_t.TranslationUnitDecl(_, decl_list, _, _) ->
|
|
|
|
|
let context = context_with_ck_set CLintersContext.empty decl_list in
|
|
|
|
|
IList.iter (do_frontend_checks_decl context cfg cg) decl_list;
|
|
|
|
|
let is_decl_allowed decl =
|
|
|
|
|
let decl_info = Clang_ast_proj.get_decl_tuple decl in
|
|
|
|
|
CLocation.should_do_frontend_check decl_info.Clang_ast_t.di_source_range in
|
|
|
|
|
let allowed_decls = IList.filter is_decl_allowed decl_list in
|
|
|
|
|
IList.iter (do_frontend_checks_decl context cfg cg) allowed_decls;
|
|
|
|
|
(* TODO (t12740727): Remove condition once the transition to linters mode is finished *)
|
|
|
|
|
if Config.analyzer = Some Config.Linters then store_issues source_file
|
|
|
|
|
| _ -> assert false (* NOTE: Assumes that an AST alsways starts with a TranslationUnitDecl *)
|
|
|
|
|