fcl-passrc: no writeln, bug #31656

git-svn-id: trunk@35782 -
2025-04-15 19:19:24 +02:00 · 2017-04-12 13:13:14 +00:00 · 2017-04-12 13:13:14 +00:00 · d8dbeb10b9
commit d8dbeb10b9
parent b6d05dba9e
1 changed files with 1 additions and 1 deletions
--- a/packages/fcl-passrc/src/pparser.pp
+++ b/packages/fcl-passrc/src/pparser.pp
@ -4103,7 +4103,7 @@ begin
  while True do
  begin
    NextToken;
-     WriteLn({$IFDEF VerbosePasParser}i,{$ENDIF}' Token=',CurTokenText);
+    // WriteLn({$IFDEF VerbosePasParser}i,{$ENDIF}' Token=',CurTokenText);
    case CurToken of
    tkasm:
      begin