paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 02:59:17 +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> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>
<PackageName Value="CodeTools"/> <PackageName Value="LCL"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="LCL"/> <PackageName Value="CodeTools"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="3"> <Units Count="3">

2
components/codetools/pascalparsertool.pas
View File

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