paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-24 01:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* when two objectdefs resolve to the same "real" objectdef, consider them

Browse Source 
as te_exact rather than as te_equal (otherwise you get compilation errors
    if only a formal external definition is in scope in the interface, but
    the full definition is in scope in the implementation)

git-svn-id: trunk@17201 -
This commit is contained in:
Jonas Maebe 2011-03-28 18:03:57 +00:00
parent ebb4d26201
commit 5c2050e756
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/defcmp.pas
View File

@ -1260,7 +1260,9 @@ implementation
find_real_objcclass_definition(tobjectdef(def_to),false)) then
begin
doconv:=tc_equal;
eq:=te_equal;
{ exact, not equal, because can change between interface
and implementation }
eq:=te_exact;
end
{ object pascal objects }
else if (def_from.typ=objectdef) and