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

* allow also procvar calls with a postfix operation after a calln

Browse Source 
git-svn-id: trunk@1476 -
This commit is contained in:
peter 2005-10-18 12:32:09 +00:00
parent 8b60dbe4cb
commit b55645790b
1 changed files with 2 additions and 2 deletions

4
compiler/nutils.pas
View File

@ -202,7 +202,7 @@ implementation
function foreachnodestatic(var n: tnode; f: staticforeachnodefunction; arg: pointer): boolean;
begin
foreachnodestatic(pm_postprocess,n,f,arg);
result:=foreachnodestatic(pm_postprocess,n,f,arg);
end;
@ -259,7 +259,7 @@ implementation
end;
until false;
{ a tempref is used when it is loaded from a withsymtable }
if (hp.nodetype in [loadn,temprefn]) then
if (hp.nodetype in [calln,loadn,temprefn]) then
begin
hp:=ccallnode.create_procvar(nil,p1);
resulttypepass(hp);