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

* fixed variant copy for interfaces

Browse Source
This commit is contained in:
florian 2005-02-08 21:17:25 +00:00
parent b0d04907e6
commit 09a051718a
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/objpas/varutils.inc
View File

@ -107,14 +107,15 @@ begin
Move(VBytes, VargDest.VBytes, SizeOf(VargDest.VBytes));
varOleStr:
CopyAsWideString(VargDest.VOleStr,VOleStr);
varDispatch,
varDispatch:
IUnknown(VargDest.vdispatch):=IUnknown(VargSrc.vdispatch);
varUnknown:
NoInterfaces; // We should bump up reference count here (Addref)
IUnknown(VargDest.vunknown):=IUnknown(VargSrc.vunknown);
else
Exit(VAR_BADVARTYPE);
end;
end;
VargDest.VType:=VType;
VargDest.VType:=VType;
end;
end;
@ -711,7 +712,10 @@ end;
{$endif HASVARIANT}
{
$Log$
Revision 1.17 2005-02-08 07:25:26 marco
Revision 1.18 2005-02-08 21:17:25 florian
* fixed variant copy for interfaces
Revision 1.17 2005/02/08 07:25:26 marco
* patch from Peter
Revision 1.16 2005/02/07 21:52:08 florian