paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 07:34:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation on non-windows

Browse Source 
git-svn-id: trunk@46941 -
This commit is contained in:
michael 2020-09-24 10:09:04 +00:00
parent f44ce539a3
commit 81bc4d9fec
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4188,6 +4188,7 @@ begin
end;
function TPascalScanner.DoFetchToken: TToken;
var
TokenStart: {$ifdef UsePChar}PChar{$else}integer{$endif};
i: TToken;
@ -4199,6 +4200,7 @@ var
s: string;
l: integer;
{$endif}
LE : String[2];
procedure FetchCurTokenString; inline;
begin
@ -4334,6 +4336,7 @@ begin
Result := tkBraceOpen
else
begin
LE:=LineEnding;
// Old-style multi-line comment
Inc(FTokenPos);
TokenStart := FTokenPos;
@ -4353,7 +4356,7 @@ begin
// Corrected JC: Append the correct lineending
Inc(OldLength, SectionLength);
for Ch in LineEnding do
for Ch in LE do
begin
Inc(OldLength);
FCurTokenString[OldLength] := Ch;
@ -4651,6 +4654,7 @@ begin
end;
'{': // Multi-line comment
begin
LE:=LineEnding;
Inc(FTokenPos);
TokenStart := FTokenPos;
FCurTokenString := '';
@ -4669,7 +4673,7 @@ begin
// Corrected JC: Append the correct lineending
Inc(OldLength, SectionLength);
for Ch in LineEnding do
for Ch in LE do
begin
Inc(OldLength);
FCurTokenString[OldLength] := Ch;