paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 14:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use callnodeflag to check if the result of a function is used

Browse Source 
git-svn-id: trunk@8425 -
This commit is contained in:
peter 2007-09-10 16:40:40 +00:00
parent 2c10fb7e7d
commit 5f4b89903c
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/nbas.pas
View File

@ -378,9 +378,8 @@ implementation
if (not (cs_extsyntax in current_settings.moduleswitches)) and
assigned(left.resultdef) and
not((left.nodetype=calln) and
{ don't complain when funcretrefnode is set, because then the
value is already used. And also not for constructors }
(assigned(tcallnode(left).funcretnode) or
{ don't complain when the value is used. And also not for constructors }
((cnf_return_value_used in tcallnode(left).callnodeflags) or
(tcallnode(left).procdefinition.proctypeoption=potype_constructor))) and
not(is_void(left.resultdef)) then
CGMessage(parser_e_illegal_expression);