paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 14:50:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: clean up

Browse Source
This commit is contained in:
mattias 2023-08-02 08:51:59 +02:00 committed by Pierre Muller
parent 9a8479825f
commit 7b34e97a6c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-passrc/src/pscanner.pp
View File

@ -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}