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

fcl-passrc: fixed compile pas2js

Browse Source
This commit is contained in:
mattias 2022-05-23 00:55:46 +02:00
parent 1b7aefc11d
commit 172803b2f7
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2625,7 +2625,7 @@ begin
Log(mtError,nErrInvalidCharacter,SErrInvalidCharacter,['#0'])
else if Src[p]=c then
break
else (c='''') and (Src[p] in [#10,#13]) then
else if (c='''') and (Src[p] in [#10,#13]) then
Log(mtError,nErrInvalidCharacter,SErrInvalidCharacter,['#'+IntToStr(ord(Src[p]))])
else
inc(p);
@ -3773,9 +3773,11 @@ function TPascalScanner.DoFetchMultilineTextToken:TToken;
// works similar to DoFetchTextToken, except changes indentation
var
StartPos,OldLength : Integer;
TokenStart : {$ifdef UsePChar}PChar{$else}integer{$endif};
{$ifndef UsePChar}
StartPos: Integer;
TokenStart: {$ifdef UsePChar}PChar{$else}integer{$endif};
{$ifdef UsePChar}
OldLength: integer;
{$else}
s: String;
l: integer;
{$endif}
@ -3848,13 +3850,13 @@ var
begin
Result:=tkEOF;
OldLength:=0;
FCurTokenString := '';
{$ifndef UsePChar}
s:=FCurLine;
l:=length(s);
StartPos:=FTokenPos;
{$ELSE}
OldLength:=0;
StartPos:=FTokenPos-PChar(FCurLine);
{$endif}
Apostroph:='''';