Explorar o código

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

git-svn-id: trunk@1476 -
peter %!s(int64=20) %!d(string=hai) anos
pai
achega
b55645790b
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  1. 2 2
      compiler/nutils.pas

+ 2 - 2
compiler/nutils.pas

@@ -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);