paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 12:59:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ fix from Ivan Shikhalev for QueryInterface to return ancestor methods

Browse Source
This commit is contained in:
michael 2003-07-19 11:19:07 +00:00
parent 2772a461b6
commit bea2706914
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/objpas.inc
View File

@ -595,6 +595,8 @@
if (i>0) then
getinterfaceentry:=Res;
end;
if (getinterfaceentry=nil)and not(classparent=nil) then
getinterfaceentry:=classparent.getinterfaceentry(iid)
end;
class function TObject.getinterfaceentrybystr(const iidstr : string) : pinterfaceentry;
@ -615,6 +617,8 @@
if (i>0) then
getinterfaceentrybystr:=Res;
end;
if (getinterfaceentrybystr=nil)and not(classparent=nil) then
getinterfaceentrybystr:=classparent.getinterfaceentrybystr(iidstr)
end;
class function TObject.getinterfacetable : pinterfacetable;
@ -691,7 +695,10 @@
{
$Log$
Revision 1.32 2003-05-01 08:05:23 florian
Revision 1.33 2003-07-19 11:19:07 michael
+ fix from Ivan Shikhalev for QueryInterface to return ancestor methods
Revision 1.32 2003/05/01 08:05:23 florian
* started to make the rtl 64 bit save by introducing SizeInt and SizeUInt (similar to size_t of C)
Revision 1.31 2003/03/17 20:55:58 peter