paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 19:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed TPascalParserTool.ReadBackTilBlockEnd, bug #27755

Browse Source 
git-svn-id: trunk@48636 -
This commit is contained in:
mattias 2015-04-05 19:00:26 +00:00
parent a0ac7864a9
commit aa026d9f75
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/customcodetool.pas
View File

@ -1530,7 +1530,7 @@ begin
dec(CurPos.StartPos);
while (CurPos.StartPos>=1) do begin
if (Src[CurPos.StartPos]=#3) and (CurPos.StartPos>1)
and (Src[CurPos.StartPos-1]='}') then begin
and (Src[CurPos.StartPos-1]='{') then begin
dec(CurPos.StartPos,2);
break;
end;

2
components/codetools/pascalparsertool.pas
View File

@ -2938,7 +2938,7 @@ begin
RaiseUnknownBlockType;
repeat
ReadPriorAtom;
if (CurPos.StartPos<1) then begin
if (CurPos.EndPos<=1) then begin
SaveRaiseExceptionFmt(ctsWordNotFound,['begin']);
end else if WordIsBlockKeyWord.DoIdentifier(@Src[CurPos.StartPos]) then begin
if (CurPos.Flag=cafEND) or (UpAtomIs('UNTIL')) then begin