paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 11:49:24 +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 { 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);