[fpc-devel] bug ID #4855

[Peter Vreman]

> Thanks a lot marc,
>   I was looking for that code that we used to prove this,
> But couldn't find the damn thing...
>
> Your 100% correct in what my problem is...
> Id love any help to get this fixed... in fact I need
> It fixed :(
>
> I must port our companies server software to linux, and
> I want to do that with freepascal.  However we have made use
> Of functions returning interfaces extensively and I can not
> Change every instance of this in our software.
>
> So if need be I can probably talk the company into "Sponsoring"
> Someone (With the right experience) to fix this bug, should it
> Come to that.

Try the following patch:

Index: paramgr.pas
===================================================================
--- paramgr.pas (revision 3190)
+++ paramgr.pas (working copy)
@@ -141,7 +141,7 @@
            (def.deftype=recorddef) or
            ((def.deftype=stringdef) and (tstringdef(def).string_typ in
[st_shortstring,st_longstring])) or
            ((def.deftype=procvardef) and (po_methodpointer in
tprocvardef(def).procoptions)) or
-           ((def.deftype=objectdef) and is_object(def)) or
+           ((def.deftype=objectdef) and (is_object(def) or
is_interface(def))) or
            (def.deftype=variantdef) or
            ((def.deftype=setdef) and (tsetdef(def).settype<>smallset));
       end;