[fpc-devel] bug ID #4855
peter at freepascal.org
Tue Apr 11 09:36:00 CEST 2006
> 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:
--- paramgr.pas (revision 3190)
+++ paramgr.pas (working copy)
@@ -141,7 +141,7 @@
((def.deftype=stringdef) and (tstringdef(def).string_typ in
((def.deftype=procvardef) and (po_methodpointer in
- ((def.deftype=objectdef) and is_object(def)) or
+ ((def.deftype=objectdef) and (is_object(def) or
((def.deftype=setdef) and (tsetdef(def).settype<>smallset));
More information about the fpc-devel