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

codetools: fixed parsing properties of class interfaces

Browse Source 
git-svn-id: trunk@11835 -
This commit is contained in:
mattias 2007-08-18 15:37:32 +00:00
parent 0d150f7df9
commit 896b613597
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/codetools/examples/fixdefinitionorder.lpi
View File

@ -26,10 +26,10 @@
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="CodeTools"/>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
<PackageName Value="CodeTools"/>
</Item2>
</RequiredPackages>
<Units Count="3">

2
components/codetools/pascalparsertool.pas
View File

@ -1838,7 +1838,7 @@ function TPascalParserTool.KeyWordFuncClassProperty: boolean;
end;
begin
if not (CurNode.Desc in AllClassBaseSections) then
if not (CurNode.Desc in (AllClassBaseSections+[ctnClassInterface])) then
RaiseIdentExpectedButAtomFound;
// create class method node
CreateChildNode;