Bläddra i källkod

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

git-svn-id: trunk@1476 -
peter 20 år sedan
förälder
incheckning
b55645790b
1 ändrade filer med 2 tillägg och 2 borttagningar
  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;
     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);