Przeglądaj źródła

* changed the "laststatement" parameter of internalstatements() from "var"
to "out"

git-svn-id: trunk@28228 -

Jonas Maebe 11 lat temu
rodzic
commit
9e29fd424d
1 zmienionych plików z 2 dodań i 2 usunięć
  1. 2 2
      compiler/nbas.pas

+ 2 - 2
compiler/nbas.pas

@@ -258,7 +258,7 @@ interface
 
 
        { Create a blocknode and statement node for multiple statements
        { Create a blocknode and statement node for multiple statements
          generated internally by the parser }
          generated internally by the parser }
-       function  internalstatements(var laststatement:tstatementnode):tblocknode;
+       function  internalstatements(out laststatement:tstatementnode):tblocknode;
        function  laststatement(block:tblocknode):tstatementnode;
        function  laststatement(block:tblocknode):tstatementnode;
        procedure addstatement(var laststatement:tstatementnode;n:tnode);
        procedure addstatement(var laststatement:tstatementnode;n:tnode);
 
 
@@ -282,7 +282,7 @@ implementation
                                      Helpers
                                      Helpers
 *****************************************************************************}
 *****************************************************************************}
 
 
-    function internalstatements(var laststatement:tstatementnode):tblocknode;
+    function internalstatements(out laststatement:tstatementnode):tblocknode;
       begin
       begin
         { create dummy initial statement }
         { create dummy initial statement }
         laststatement := cstatementnode.create(cnothingnode.create,nil);
         laststatement := cstatementnode.create(cnothingnode.create,nil);