Reducing the scope of all frontend checks on declarations

Reviewed By: akotulski

Differential Revision: D3298032

fbshipit-source-id: 0a445fa

infer/src/clang/cFrontend_errors.ml

@@ -122,6 +122,8 @@ let run_frontend_checkers_on_stmt trans_state instr =
 
 let rec run_frontend_checkers_on_decl cfg cg dec =
   let open Clang_ast_t in
+  let decl_info = Clang_ast_proj.get_decl_tuple dec in
+  if CLocation.should_do_frontend_check decl_info.Clang_ast_t.di_source_range then
     match dec with
     | ObjCCategoryImplDecl(_, _, decl_list, _, ocidi) ->
         let decls = (get_categories_decls ocidi.Clang_ast_t.ocidi_category_decl) @ decl_list in
@@ -134,12 +136,10 @@ let rec run_frontend_checkers_on_decl cfg cg dec =
         invoke_set_of_checkers call_ns_checker cfg cg None ns_notification_checker_list;
         IList.iter (run_frontend_checkers_on_decl cfg cg) decl_list
     | ObjCProtocolDecl (decl_info, _, decl_list, _, _) ->
-      if CLocation.should_do_frontend_check decl_info.Clang_ast_t.di_source_range then
+        check_for_property_errors cfg cg decl_list;
-        (check_for_property_errors cfg cg decl_list;
         let call_ns_checker = checkers_for_ns decl_info decl_list in
         invoke_set_of_checkers call_ns_checker cfg cg None ns_notification_checker_list;
-         IList.iter (run_frontend_checkers_on_decl cfg cg) decl_list)
+        IList.iter (run_frontend_checkers_on_decl cfg cg) decl_list
-      else ()
     | VarDecl _ ->
         let call_global_checker = checker_for_global_var dec in
         invoke_set_of_checkers call_global_checker cfg cg None global_var_checker_list

infer/src/clang/cLocation.ml

@@ -89,14 +89,13 @@ let file_in_project file =
   | None -> false
 
 let should_do_frontend_check (loc_start, _) =
-  let file =
   match loc_start.Clang_ast_t.sl_file with
-    | Some f -> f
+  | Some file ->
-    | None -> assert false in
       let equal_current_source file =
         DB.source_file_equal (source_file_from_path file) !DB.current_source in
       equal_current_source file ||
       (file_in_project file &&  not Config.testing_mode)
+  | None -> false
 
 (* We translate by default the instructions in the current file.*)
 (* In C++ development, we also translate the headers that are part *)