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

* assign an Interface to TGuid was not possible (const Guid: TGuid = IUnknown)

Browse Source 
git-svn-id: trunk@12690 -
This commit is contained in:
ivost 2009-02-06 01:01:59 +00:00
parent 57e65411ad
commit c61a0784cb
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/defcmp.pas
View File

@ -500,7 +500,7 @@ implementation
objectdef : objectdef :
begin begin
{ corba interface -> id string } { corba interface -> id string }
if is_interfacecorba(def_from) then if is_interfacecorba(def_from) or is_interfacecom(def_from) then
begin begin
doconv:=tc_intf_2_string; doconv:=tc_intf_2_string;
eq:=te_convert_l1; eq:=te_convert_l1;