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

* if an invokable that isn't a function reference is followed by a point in a mode that doesn't use TP/Delphi style calling without parameters then don't call it like is done with normal procvars

Browse Source
This commit is contained in:
Sven/Sarah Barth 2022-02-15 21:46:23 +01:00
parent 76df7144ba
commit f2305d1cee
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/pexpr.pas
View File

@ -2317,7 +2317,7 @@ implementation
end; end;
{ procvar.<something> can never mean anything so always { procvar.<something> can never mean anything so always
try to call it in case it returns a record/object/... } try to call it in case it returns a record/object/... }
maybe_call_procvar(p1,false); maybe_call_procvar(p1,is_invokable(p1.resultdef) and not is_funcref(p1.resultdef));
if (p1.nodetype=ordconstn) and if (p1.nodetype=ordconstn) and
not is_boolean(p1.resultdef) and not is_boolean(p1.resultdef) and