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

* object constructor results are always used

Browse Source
This commit is contained in:
peter 2003-10-29 20:01:41 +00:00
parent cac39ccfd4
commit 003ea697c0
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/pstatmnt.pas
View File

@ -982,13 +982,15 @@ implementation
continuen,labeln,blockn,exitn]) then
Message(cg_e_illegal_expression);
{ specify that we don't use the value returned by the call }
{ Question : can this be also improtant
for inlinen ??
{ specify that we don't use the value returned by the call
it is used for :
- dispose of temp stack space
- dispose on FPU stack }
if p.nodetype=calln then
- dispose on FPU stack
Object constructor results are ignored }
if (p.nodetype=calln) and
not((tcallnode(p).procdefinition.proctypeoption=potype_constructor) and
assigned(tprocdef(tcallnode(p).procdefinition)._class) and
is_object(tprocdef(tcallnode(p).procdefinition)._class)) then
exclude(p.flags,nf_return_value_used);
code:=p;
@ -1132,7 +1134,10 @@ implementation
end.
{
$Log$
Revision 1.117 2003-10-29 15:40:20 peter
Revision 1.118 2003-10-29 20:01:41 peter
* object constructor results are always used
Revision 1.117 2003/10/29 15:40:20 peter
* support indexing and offset retrieval for locals
Revision 1.116 2003/10/17 14:38:32 peter