paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 18:47:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
to "out"

git-svn-id: trunk@28228 -
This commit is contained in:
Jonas Maebe 2014-07-18 09:09:16 +00:00
parent 627c83e828
commit 9e29fd424d
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/nbas.pas
View File

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