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

* getinterface fixed

Browse Source
This commit is contained in:
florian 2005-04-28 17:58:18 +00:00
parent e9b8c080bf
commit 3a6006367f
1 changed files with 28 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
rtl/inc/objpas.inc
View File

@ -614,11 +614,15 @@
IEntry: pinterfaceentry; IEntry: pinterfaceentry;
begin begin
IEntry:=getinterfaceentry(iid); IEntry:=getinterfaceentry(iid);
if Assigned(IEntry) then begin if Assigned(IEntry) then
PPointer(@obj)^:=Pointer(Self)+IEntry^.IOffset; begin
Pointer(obj):=Pointer(Self)+IEntry^.IOffset;
if assigned(pointer(obj)) then
iinterface(obj)._AddRef;
getinterface:=True; getinterface:=True;
end end
else begin else
begin
PPointer(@Obj)^:=nil; PPointer(@Obj)^:=nil;
getinterface:=False; getinterface:=False;
end; end;
@ -629,11 +633,15 @@
IEntry: pinterfaceentry; IEntry: pinterfaceentry;
begin begin
IEntry:=getinterfaceentrybystr(iidstr); IEntry:=getinterfaceentrybystr(iidstr);
if Assigned(IEntry) then begin if Assigned(IEntry) then
PPointer(@obj)^:=Pointer(Self)+IEntry^.IOffset; begin
Pointer(obj):=Pointer(Self)+IEntry^.IOffset;
if assigned(pointer(obj)) then
iinterface(obj)._AddRef;
getinterfacebystr:=True; getinterfacebystr:=True;
end end
else begin else
begin
PPointer(@Obj)^:=nil; PPointer(@Obj)^:=nil;
getinterfacebystr:=False; getinterfacebystr:=False;
end; end;
@ -758,7 +766,10 @@
{ {
$Log$ $Log$
Revision 1.48 2005-04-05 21:05:31 peter Revision 1.49 2005-04-28 17:58:18 florian
* getinterface fixed
Revision 1.48 2005/04/05 21:05:31 peter
* call initspecialchars if one of the specialchars is configured * call initspecialchars if one of the specialchars is configured
for the first time for the first time