|
|
@@ -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
|
joost