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

* interfaces return values need to be passed in parameters

Browse Source 
git-svn-id: trunk@3194 -
This commit is contained in:
peter 2006-04-12 10:26:10 +00:00
parent 05540cad44
commit b7a936faa0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/paramgr.pas
View File

@ -141,7 +141,8 @@ implementation
(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
{ interfaces are also passed by reference to be compatible with delphi and COM }
((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;