paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-09 07:27:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Avoid infinite loop in tparser.alphanum. Fix issue #39227

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-07-11 08:58:04 +02:00
parent e8092ce662
commit 4f81e571e4
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/rtl/classes.pas
View File

@ -10463,10 +10463,9 @@ begin
if not IsAlpha then
ErrorFmt(SParserExpected,[GetTokenName(toSymbol)]);
Result:='';
while IsAlphaNum do
while (not fEofReached) and IsAlphaNum do
begin
Result:=Result+fBuf[fPos];
GotoToNextChar;
end;
end;
@ -10476,7 +10475,7 @@ begin
if fBuf[fPos]=#13 then //CR
GotoToNextChar;
if fBuf[fPos]=#10 then //LF
if (not fEOFReached) and (fBuf[fPos]=#10) then //LF
GotoToNextChar;
inc(fSourceLine);