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

codetools: fixed parsing classes containing only the inheritage brackets, but no end (bug #10563)

Browse Source 
git-svn-id: trunk@13644 -
This commit is contained in:
mattias 2008-01-05 23:04:14 +00:00
parent ebeaadf940
commit f9cbb95fc4
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/codetools/pascalparsertool.pas
View File

@ -3146,6 +3146,7 @@ var
ClassAtomPos: TAtomPosition;
Level: integer;
ContextDesc: Word;
IsForward: Boolean;
begin
ContextDesc:=CurNode.Desc;
if not (ContextDesc in [ctnTypeDefinition,ctnGenericType,
@ -3167,8 +3168,10 @@ begin
CurNode.StartPos:=ClassAtomPos.StartPos;
end;
// find end of class
IsForward:=true;
ReadNextAtom;
if UpAtomIs('OF') then begin
IsForward:=false;
if ChildCreated then CurNode.Desc:=ctnClassOfType;
ReadNextAtom;
AtomIsIdentifier(true);
@ -3186,11 +3189,12 @@ begin
SaveRaiseExceptionFmt(ctsAnonymDefinitionsAreNotAllowed,['class']);
end else if (CurPos.Flag=cafRoundBracketOpen) then begin
// read inheritage brackets
IsForward:=false;
ReadTilBracketClose(true);
ReadNextAtom;
end;
if CurPos.Flag=cafSemicolon then begin
if ChildCreated and (CurNode.Desc=ctnClass) then begin
if ChildCreated and (CurNode.Desc=ctnClass) and IsForward then begin
// forward class definition found
CurNode.SubDesc:=CurNode.SubDesc+ctnsForwardDeclaration;
end;
@ -3250,8 +3254,9 @@ begin
ReadTilBracketClose(true);
ReadNextAtom;
end;
if CurPos.Flag=cafEdgedBracketOpen then
if CurPos.Flag=cafEdgedBracketOpen then begin
ReadGUID;
end;
// parse till "end" of class/object
CurKeyWordFuncList:=ClassInterfaceKeyWordFuncList;
try