paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 07:40:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: correct ObjCProtocol external block parse

Browse Source 
git-svn-id: trunk@33682 -
This commit is contained in:
paul 2011-11-22 01:01:09 +00:00
parent 4e496989d4
commit be91d94a0d
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/codetools/pascalparsertool.pas
View File

@ -3846,7 +3846,7 @@ begin
ReadNextAtom; ReadNextAtom;
end; end;
end end
else if UpAtomIs('EXTERNAL') and (ClassDesc in [ctnObjCClass,ctnObjCCategory,ctnObjCProtocol]) then else if UpAtomIs('EXTERNAL') and (ClassDesc in [ctnObjCClass,ctnObjCCategory]) then
begin begin
CreateChildNode; CreateChildNode;
CurNode.Desc:=ctnClassExternal; CurNode.Desc:=ctnClassExternal;
@ -3960,6 +3960,20 @@ begin
// find end of interface // find end of interface
ReadNextAtom; ReadNextAtom;
if (CurPos.Flag<>cafSemicolon) then begin if (CurPos.Flag<>cafSemicolon) then begin
if CurPos.Flag=cafWord then begin
if UpAtomIs('EXTERNAL') and (IntfDesc=ctnObjCProtocol) then
begin
CreateChildNode;
CurNode.Desc:=ctnClassExternal;
ReadNextAtom;
if UpAtomIs('NAME') then begin
ReadNextAtom;
ReadConstant(true,false,[]);
end;
CurNode.EndPos:=CurPos.StartPos;
EndChildNode;
end;
end;
if (CurPos.Flag=cafRoundBracketOpen) then begin if (CurPos.Flag=cafRoundBracketOpen) then begin
// read inheritage brackets // read inheritage brackets
ReadClassInheritance(true); ReadClassInheritance(true);