paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-24 11:39:17 +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;
if CurPos.Flag=cafEdgedBracketOpen then
ReadGUID;
// parse till "end" of interface
// parse till "end" of interface/dispinterface/objcprotocol
repeat
if not ParseInnerClass(CurPos.StartPos,CurPos.EndPos-CurPos.StartPos) then
begin
@ -4023,8 +4023,10 @@ begin
EndChildNode;
end;
// end last class section (public, private, ...)
CurNode.EndPos:=CurPos.StartPos;
EndChildNode;
if CurNode.Desc in AllClassSections then begin
CurNode.EndPos:=CurPos.StartPos;
EndChildNode;
end;
end else begin
// forward definition
CurNode.SubDesc:=CurNode.SubDesc+ctnsForwardDeclaration;