From 7b34e97a6c7ccba473503118e4e6742ee655cebd Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 2 Aug 2023 08:51:59 +0200
Subject: [PATCH] fcl-passrc: clean up

---
 packages/fcl-passrc/src/pscanner.pp | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/packages/fcl-passrc/src/pscanner.pp b/packages/fcl-passrc/src/pscanner.pp
index 62f496b0a9..b5b591cbf3 100644
--- a/packages/fcl-passrc/src/pscanner.pp
+++ b/packages/fcl-passrc/src/pscanner.pp
@@ -3781,7 +3781,7 @@ end;
 function TPascalScanner.DoFetchTextToken:TToken;
 var
   TokenStart, StartP : {$ifdef UsePChar}PAnsiChar{$else}integer{$endif};
-  I,SectionLength : Integer;
+  SectionLength : Integer;
   {$ifndef UsePChar}
   s: TPasScannerString;
   l: integer;
@@ -3867,10 +3867,10 @@ begin
   SetLength(FCurTokenString, SectionLength);
   if SectionLength > 0 then
     Move(StartP^, FCurTokenString[1], SectionLength);
-  Writeln('String: ',UTF8String(FCurTokenString),length(FCurTokenString));
-  For I:=2 to Length(FCurTokenString)-1 do
-    Write(hexStr(Ord(FCurtokenString[I]),2));
-  Writeln;
+  //Writeln('String: ',UTF8String(FCurTokenString),length(FCurTokenString));
+  //For I:=2 to Length(FCurTokenString)-1 do
+  //  Write(hexStr(Ord(FCurtokenString[I]),2));
+  //Writeln;
   {$else}
   FCurTokenString:=FCurTokenString+copy(FCurLine,StartP,SectionLength);
   {$endif}