paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Reset operator after variable list

Browse Source 
git-svn-id: trunk@45516 -
This commit is contained in:
michael 2020-05-27 11:38:35 +00:00
parent 8b07fe33e6
commit d81b21007f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-passrc/src/pparser.pp
View File

@ -3507,7 +3507,7 @@ begin
HadTypeSection:=false;
while True do
begin
if CurBlock in [DeclNone,declConst,declType] then
if CurBlock in [DeclNone,declConst,declType,declVar] then
Scanner.SetTokenOption(toOperatorToken)
else
Scanner.UnSetTokenOption(toOperatorToken);
@ -4652,7 +4652,8 @@ begin
case CurToken of
tkColon: break;
tkComma: ExpectIdentifier;
else ParseExc(nParserExpectedCommaColon,SParserExpectedCommaColon);
else
ParseExc(nParserExpectedCommaColon,SParserExpectedCommaColon);
end;
Until (CurToken=tkColon);
OldForceCaret:=Scanner.SetForceCaret(True);