paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 15:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: fixed compile with pas2js

Browse Source 
git-svn-id: trunk@46965 -
This commit is contained in:
Mattias Gaertner 2020-09-26 22:27:57 +00:00
parent 4d4cdfb804
commit 8246aae1ae
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -4200,7 +4200,7 @@ var
s: string;
l: integer;
{$endif}
LE : String[2];
LE : String{$ifdef fpc}[2]{$endif};
procedure FetchCurTokenString; inline;
begin
@ -4327,7 +4327,7 @@ begin
'(':
begin
Inc(FTokenPos);
if {$ifdef UsePChar}FTokenPos[0] = '.'{$else}(FTokenPos>l) or (s[FTokenPos]<>'.'){$endif} then
if {$ifdef UsePChar}FTokenPos[0] = '.'{$else}(FTokenPos<=l) and (s[FTokenPos]='.'){$endif} then
begin
Inc(FTokenPos);
Result := tkSquaredBraceOpen;
@ -4519,7 +4519,7 @@ begin
Inc(FTokenPos);
until {$ifdef UsePChar}not (FTokenPos[0] in Digits){$else}(FTokenPos>l) or not (s[FTokenPos] in Digits){$endif};
if {$ifdef UsePChar}(FTokenPos[0]='.') and (FTokenPos[1]<>'.') and (FTokenPos[1]<>')'){$else}
(FTokenPos<=l) and (s[FTokenPos]='.') and ((FTokenPos=l) or (s[FTokenPos+1]<>'.') and ((FTokenPos=l) or (s[FTokenPos+1]<>')')){$endif}then
(FTokenPos<=l) and (s[FTokenPos]='.') and ((FTokenPos=l) or ((s[FTokenPos+1]<>'.') and (s[FTokenPos+1]<>')'))){$endif}then
begin
inc(FTokenPos);
while {$ifdef UsePChar}FTokenPos[0] in Digits{$else}(FTokenPos<=l) and (s[FTokenPos] in Digits){$endif} do