paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 19:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* initinterfacepointers improved

Browse Source
This commit is contained in:
florian 2002-10-11 14:05:21 +00:00
parent fcc5675528
commit b5f091d0cb
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
rtl/inc/objpas.inc
View File

@ -167,13 +167,15 @@
intftable : pinterfacetable;
i : longint;
begin
if assigned(objclass.classparent) then
InitInterfacePointers(objclass.classparent,instance);
intftable:=objclass.getinterfacetable;
if assigned(intftable) then
for i:=0 to intftable^.EntryCount-1 do
ppointer(@(PChar(instance)[intftable^.Entries[i].IOffset]))^:=
pointer(intftable^.Entries[i].VTable);
while assigned(objclass) do
begin
intftable:=objclass.getinterfacetable;
if assigned(intftable) then
for i:=0 to intftable^.EntryCount-1 do
ppointer(@(PChar(instance)[intftable^.Entries[i].IOffset]))^:=
pointer(intftable^.Entries[i].VTable);
objclass:=objclass.classparent
end;
end;
{$else HASINTF}
begin
@ -699,7 +701,10 @@
{
$Log$
Revision 1.27 2002-09-07 15:07:46 peter
Revision 1.28 2002-10-11 14:05:21 florian
* initinterfacepointers improved
Revision 1.27 2002/09/07 15:07:46 peter
* old logs removed and tabs fixed
Revision 1.26 2002/09/07 11:08:58 carl
@ -708,4 +713,4 @@
Revision 1.25 2002/08/31 13:11:11 florian
* several fixes for Linux/PPC compilation
}
}