paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 05:09:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

* writing of loop nodes fixed

Browse Source
This commit is contained in:
florian 2003-10-05 11:53:57 +00:00
parent abcb44f847
commit 550b398f02
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/nflw.pas
View File

@ -319,13 +319,15 @@ implementation
procedure tloopnode.printnodetree(var t:text);
begin
printnodeinfo(t);
write(t,printnodeindention,'(');
printnodeindent;
printnodeinfo(t);
printnode(t,left);
printnode(t,right);
printnode(t,t1);
printnode(t,t2);
printnodeunindent;
writeln(t,printnodeindention,')');
end;
@ -1429,7 +1431,10 @@ begin
end.
{
$Log$
Revision 1.80 2003-10-01 20:34:48 peter
Revision 1.81 2003-10-05 11:53:57 florian
* writing of loop nodes fixed
Revision 1.80 2003/10/01 20:34:48 peter
* procinfo unit contains tprocinfo
* cginfo renamed to cgbase
* moved cgmessage to verbose