From 550b398f020b25bb9ae37c8b00e481ae301c81f8 Mon Sep 17 00:00:00 2001 From: florian Date: Sun, 5 Oct 2003 11:53:57 +0000 Subject: [PATCH] * writing of loop nodes fixed --- compiler/nflw.pas | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/compiler/nflw.pas b/compiler/nflw.pas index 4ab1636257..7b6dca7de4 100644 --- a/compiler/nflw.pas +++ b/compiler/nflw.pas @@ -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