paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 09:16:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed TCustomCodeTool.ReadBackTilBracketOpen when there is no bracket

Browse Source 
git-svn-id: trunk@43378 -
This commit is contained in:
mattias 2013-11-05 23:07:57 +00:00
parent 3163c7673e
commit 6123660445
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/codetools/customcodetool.pas
View File

@ -1954,25 +1954,25 @@ begin
exit;
end;
Start:=CurPos;
repeat
while CurPos.StartPos>1 do begin
ReadPriorAtom;
if (CurPos.Flag=OpenBracket) then break;
if (CurPos.Flag=OpenBracket) then exit(true);
if (CurPos.StartPos<1)
or (CurPos.Flag in [AntiOpenBracket,cafEND])
or ((CurPos.Flag=cafWord)
and UnexpectedKeyWordInBrackets.DoItCaseInsensitive(Src,
CurPos.StartPos,CurPos.EndPos-CurPos.StartPos))
then begin
CurPos:=Start;
if ExceptionOnNotFound then
RaiseBracketNotFound;
exit;
break;
end;
if CurPos.Flag in [cafRoundBracketClose,cafEdgedBracketClose] then begin
if not ReadBackTilBracketOpen(ExceptionOnNotFound) then exit;
end;
until false;
Result:=true;
end;
CurPos:=Start;
if ExceptionOnNotFound then
RaiseBracketNotFound;
Result:=false;
end;
procedure TCustomCodeTool.ReadTillCommentEnd;