> 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;
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
