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

find declaration now knows, that FPC uses IUknown as default interface ancestor

Browse Source 
git-svn-id: trunk@8510 -
This commit is contained in:
mattias 2006-01-12 10:09:06 +00:00
parent b3a5142b3d
commit 18e682b419
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/codetools/finddeclarationtool.pas
View File

@ -3976,9 +3976,11 @@ begin
SearchBaseClass:= SearchBaseClass:=
not CompareSrcIdentifier(ClassIdentNode.StartPos,'TObject'); not CompareSrcIdentifier(ClassIdentNode.StartPos,'TObject');
end else begin end else begin
// if this class is not IInterface, IInterface is ancestor // Delphi has as default interface IInterface
// FPC has as interface IUnknown
SearchBaseClass:= SearchBaseClass:=
not CompareSrcIdentifier(ClassIdentNode.StartPos,'IInterface'); (not CompareSrcIdentifier(ClassIdentNode.StartPos,'IInterface'))
and (not CompareSrcIdentifier(ClassIdentNode.StartPos,'IUnknown'));
end; end;
if not SearchBaseClass then exit; if not SearchBaseClass then exit;
end; end;