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

codetools: fixed parsing interface

Browse Source 
git-svn-id: trunk@33718 -
This commit is contained in:
mattias 2011-11-23 08:57:18 +00:00
parent 0748370917
commit 9b4fd7d602
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/codetools/pascalparsertool.pas
View File

@ -4007,7 +4007,7 @@ begin
end; end;
if CurPos.Flag=cafEdgedBracketOpen then if CurPos.Flag=cafEdgedBracketOpen then
ReadGUID; ReadGUID;
// parse till "end" of interface // parse till "end" of interface/dispinterface/objcprotocol
repeat repeat
if not ParseInnerClass(CurPos.StartPos,CurPos.EndPos-CurPos.StartPos) then if not ParseInnerClass(CurPos.StartPos,CurPos.EndPos-CurPos.StartPos) then
begin begin
@ -4023,8 +4023,10 @@ begin
EndChildNode; EndChildNode;
end; end;
// end last class section (public, private, ...) // end last class section (public, private, ...)
CurNode.EndPos:=CurPos.StartPos; if CurNode.Desc in AllClassSections then begin
EndChildNode; CurNode.EndPos:=CurPos.StartPos;
EndChildNode;
end;
end else begin end else begin
// forward definition // forward definition
CurNode.SubDesc:=CurNode.SubDesc+ctnsForwardDeclaration; CurNode.SubDesc:=CurNode.SubDesc+ctnsForwardDeclaration;