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

* patch from Peter

Browse Source
This commit is contained in:
marco 2005-02-08 07:25:26 +00:00
parent f089ddabd6
commit e60722939a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/varutils.inc
View File

@ -75,7 +75,7 @@ begin
WideString(Pointer(VOleStr)):='';
varDispatch,
varUnknown:
iinterface(v.vunknown):=nil;
iinterface(vunknown):=nil;
else
exit(VAR_BADVARTYPE)
end;
@ -711,7 +711,10 @@ end;
{$endif HASVARIANT}
{
$Log$
Revision 1.16 2005-02-07 21:52:08 florian
Revision 1.17 2005-02-08 07:25:26 marco
* patch from Peter
Revision 1.16 2005/02/07 21:52:08 florian
+ basic variant<->intf conversion
Revision 1.15 2005/01/16 16:56:32 florian