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

codetools: complete block: fixed closing program begin end.

Browse Source 
git-svn-id: trunk@20432 -
This commit is contained in:
mattias 2009-06-05 11:17:57 +00:00
parent 75d50cf723
commit 0ac9217af3
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/codetools/stdcodetools.pas
View File

@ -5373,10 +5373,17 @@ var
case CurPos.Flag of
cafEnd:
if (CurPos.EndPos<=SrcLen) and (Src[CurPos.EndPos]='.') then begin
// unexpected end of source
{$IFDEF ShowCompleteBlock}
DebugLn(['ReadStatements unexpected end. ',GetAtom,' at ',CleanPosToStr(CurPos.StartPos)]);
{$ENDIF}
if (Stack.Top=0) and (TopBlockType(Stack)=btBegin)
and (StartNode.Desc=ctnBeginBlock)
and ((StartNode.Parent=nil) or (StartNode.Parent.Desc in AllSourceTypes))
then begin
if not EndBlockIsOk then exit; // close main begin
end else begin
// unexpected end of source
{$IFDEF ShowCompleteBlock}
DebugLn(['ReadStatements unexpected end. ',GetAtom,' at ',CleanPosToStr(CurPos.StartPos)]);
{$ENDIF}
end;
break;
end else begin
case TopBlockType(Stack) of
@ -5537,7 +5544,7 @@ var
end;
LastPos:=CurPos.StartPos;
until false;
until Stack.Top<0;
//DebugLn(['ReadStatements END Stack.Top=',Stack.Top,' CursorBlockLvl=',CursorBlockLvl,' BehindCursorBlock=',BehindCursorBlock]);