paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 06:27:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* also allow overloading of function results with related interfaces

Browse Source 
git-svn-id: trunk@2128 -
This commit is contained in:
Jonas Maebe 2006-01-02 18:58:41 +00:00
parent ce73006fc3
commit f3e69a1569
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/nobj.pas
View File

@ -129,7 +129,7 @@ implementation
uses
strings,
globals,verbose,systems,
symtable,symconst,symtype,defcmp,
symtable,symconst,symtype,defcmp,defutil,
dbgbase
;
@ -706,8 +706,8 @@ implementation
if not(equal_defs(procdefcoll^.data.rettype.def,pd.rettype.def)) and
not((procdefcoll^.data.rettype.def.deftype=objectdef) and
(pd.rettype.def.deftype=objectdef) and
is_class(procdefcoll^.data.rettype.def) and
is_class(pd.rettype.def) and
is_class_or_interface(procdefcoll^.data.rettype.def) and
is_class_or_interface(pd.rettype.def) and
(tobjectdef(pd.rettype.def).is_related(
tobjectdef(procdefcoll^.data.rettype.def)))) then
Message2(parser_e_overridden_methods_not_same_ret,pd.fullprocname(false),