fcl-passrc: fixed writeln, bug #31656

git-svn-id: trunk@36223 -

packages/fcl-passrc/src/pparser.pp

@@ -5014,7 +5014,7 @@ begin
             SrcPos:=Scanner.CurSourcePos;
             Name:=CurTokenString;
             NextToken;
-            writeln('ON t=',Name,' Token=',CurTokenText);
+            //writeln('ON t=',Name,' Token=',CurTokenText);
             if CurToken=tkColon then
               begin
               // the first expression was the variable name