diff options
-rw-r--r-- | classattributes/compiler/symtable.pas | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/classattributes/compiler/symtable.pas b/classattributes/compiler/symtable.pas index 627c01ddc8..e9d98d0fda 100644 --- a/classattributes/compiler/symtable.pas +++ b/classattributes/compiler/symtable.pas @@ -673,9 +673,11 @@ implementation if (vo_is_funcret in tabstractvarsym(sym).varoptions) then begin { don't warn about the result of constructors } + { or the synthetic helper functions for class-attributes } if ((tsym(sym).owner.symtabletype<>localsymtable) or (tprocdef(tsym(sym).owner.defowner).proctypeoption<>potype_constructor)) and - not(cs_opt_nodedfa in current_settings.optimizerswitches) then + not(cs_opt_nodedfa in current_settings.optimizerswitches) and + (tprocdef(tsym(sym).owner.defowner).synthetickind <> tsk_get_rttiattribute) then MessagePos(tsym(sym).fileinfo,sym_w_function_result_not_set) end else if (tsym(sym).owner.symtabletype=parasymtable) then |