@ -61,7 +61,7 @@ let rec translate_one_declaration tenv cg cfg parent_dec dec =
| Some ObjCCategoryDecl ( _ , _ , cat_decl_list , _ , _ ) ->
| Some ObjCCategoryDecl ( _ , _ , cat_decl_list , _ , _ ) ->
let name = CContext . get_curr_class_name curr_class in
let name = CContext . get_curr_class_name curr_class in
let decls = cat_decl_list @ decl_list in
let decls = cat_decl_list @ decl_list in
CFrontend_errors . check_for_property_errors cfg cg tenv name decl _info decl s
CFrontend_errors . check_for_property_errors cfg cg tenv name decl s
| _ -> () )
| _ -> () )
| ObjCImplementationDecl ( decl_info , name_info , decl_list , decl_context_info , idi ) ->
| ObjCImplementationDecl ( decl_info , name_info , decl_list , decl_context_info , idi ) ->
@ -73,7 +73,7 @@ let rec translate_one_declaration tenv cg cfg parent_dec dec =
| Some ObjCInterfaceDecl ( _ , _ , cl_decl_list , _ , _ ) ->
| Some ObjCInterfaceDecl ( _ , _ , cl_decl_list , _ , _ ) ->
let name = CContext . get_curr_class_name curr_class in
let name = CContext . get_curr_class_name curr_class in
let decls = cl_decl_list @ decl_list in
let decls = cl_decl_list @ decl_list in
CFrontend_errors . check_for_property_errors cfg cg tenv name decl _info decl s
CFrontend_errors . check_for_property_errors cfg cg tenv name decl s
| _ -> () )
| _ -> () )
| CXXMethodDecl ( decl_info , name_info , type_ptr , function_decl_info , _ )
| CXXMethodDecl ( decl_info , name_info , type_ptr , function_decl_info , _ )