@ -14,7 +14,7 @@ open General_utils
(* === Warnings on properties === *)
(* === Warnings on properties === *)
(* Strong Delegate Warning: a property with name delegate should not be declared strong *)
(* Strong Delegate Warning: a property with name delegate should not be declared strong *)
let checker_strong_delegate_warning class_ decl_info pname obj_c_property_decl_info =
let checker_strong_delegate_warning decl_info pname obj_c_property_decl_info =
Printing . log_out " Checking for STRONG_DELEGATE property warning \n " ;
Printing . log_out " Checking for STRONG_DELEGATE property warning \n " ;
let delegate_regexp = Str . regexp_string_case_fold " delegate " in
let delegate_regexp = Str . regexp_string_case_fold " delegate " in
let pname_contains_delegate = try
let pname_contains_delegate = try
@ -26,7 +26,7 @@ let checker_strong_delegate_warning class_decl_info pname obj_c_property_decl_in
{ name = " STRONG_DELEGATE_WARNING " ;
{ name = " STRONG_DELEGATE_WARNING " ;
description = " Property or ivar " ^ pname . Clang_ast_t . ni_name ^ " declared strong " ;
description = " Property or ivar " ^ pname . Clang_ast_t . ni_name ^ " declared strong " ;
suggestion = " In general delegates should be declared weak or assign " ;
suggestion = " In general delegates should be declared weak or assign " ;
loc = CLocation . get_sil_location_from_range class_ decl_info. Clang_ast_t . di_source_range true ;
loc = CLocation . get_sil_location_from_range decl_info. Clang_ast_t . di_source_range true ;
} in
} in
( condition , warning_desc )
( condition , warning_desc )