paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 10:38:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed parsing hint modifiers without semicolon

Browse Source 
git-svn-id: trunk@42787 -
This commit is contained in:
mattias 2013-09-13 23:47:47 +00:00
parent 82f068abd7
commit 5faa53a9a4
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/codetools/pascalparsertool.pas
View File

@ -3364,14 +3364,17 @@ procedure TPascalParserTool.ReadHintModifiers;
end;
end;
var
NeedUndo: boolean;
begin
while CurPos.Flag=cafSemicolon do begin
if CurPos.Flag=cafSemicolon then begin
ReadNextAtom;
if not IsModifier then begin
UndoReadNextAtom;
exit;
end;
NeedUndo:=true;
end else
NeedUndo:=false;
while IsModifier do begin
//debugln(['TPascalParserTool.ReadHintModifier ',CurNode.DescAsString,' ',CleanPosToStr(CurPos.StartPos)]);
NeedUndo:=true;
CreateChildNode;
CurNode.Desc:=ctnHintModifier;
CurNode.EndPos:=CurPos.EndPos;
@ -3386,7 +3389,12 @@ begin
if not (CurPos.Flag in [cafSemicolon,cafRoundBracketClose]) then
SaveRaiseCharExpectedButAtomFound(';');
EndChildNode;
if CurPos.Flag<>cafSemicolon then
break;
ReadNextAtom;
end;
if NeedUndo then
UndoReadNextAtom;
end;
function TPascalParserTool.KeyWordFuncBeginEnd: boolean;