paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 06:58:25 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/nutils.pas
View File

@ -202,7 +202,7 @@ implementation
function foreachnodestatic(var n: tnode; f: staticforeachnodefunction; arg: pointer): boolean; function foreachnodestatic(var n: tnode; f: staticforeachnodefunction; arg: pointer): boolean;
begin begin
foreachnodestatic(pm_postprocess,n,f,arg); result:=foreachnodestatic(pm_postprocess,n,f,arg);
end; end;
@ -259,7 +259,7 @@ implementation
end; end;
until false; until false;
{ a tempref is used when it is loaded from a withsymtable } { 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 begin
hp:=ccallnode.create_procvar(nil,p1); hp:=ccallnode.create_procvar(nil,p1);
resulttypepass(hp); resulttypepass(hp);