paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 01:38:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* do not allow implementing interface methods using methods that are not

Browse Source 
visible in the current class

git-svn-id: trunk@40645 -
This commit is contained in:
Jonas Maebe 2018-12-25 17:51:30 +00:00
parent 66b61bd607
commit 9c6838ecca
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/nobj.pas
View File

@ -519,7 +519,9 @@ implementation
begin
srsym:=tsym(hclass.symtable.FindWithHash(hashedid));
if assigned(srsym) and
(srsym.typ=procsym) then
(srsym.typ=procsym) and
((hclass=_class) or
is_visible_for_object(srsym,_class)) then
begin
for i:=0 to Tprocsym(srsym).ProcdefList.Count-1 do
begin