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

* fix writing of private virtual/overriden methods that aren't

Browse Source 
visibile in the current class, bug #3184
This commit is contained in:
peter 2004-06-29 20:58:46 +00:00
parent e179e7d9e1
commit e448a6731d
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/nobj.pas
View File

@ -673,8 +673,12 @@ implementation
MessagePos1(pd.fileinfo,parser_w_should_use_override,pd.fullprocname(false)); MessagePos1(pd.fileinfo,parser_w_should_use_override,pd.fullprocname(false));
end; end;
end end
{ check if the method to override is visible } { check if the method to override is visible, check is only needed
else if (po_overridingmethod in pd.procoptions) and for the current parsed class. Parent classes are already validated and
need to include all virtual methods including the ones not visible in the
current class }
else if (_class=pd._class) and
(po_overridingmethod in pd.procoptions) and
(not tstoredsym(procdefcoll^.data.procsym).is_visible_for_object(pd._class)) then (not tstoredsym(procdefcoll^.data.procsym).is_visible_for_object(pd._class)) then
begin begin
{ do nothing, the error will follow when adding the entry } { do nothing, the error will follow when adding the entry }
@ -1378,7 +1382,11 @@ initialization
end. end.
{ {
$Log$ $Log$
Revision 1.71 2004-06-20 08:55:29 florian Revision 1.72 2004-06-29 20:58:46 peter
* fix writing of private virtual/overriden methods that aren't
visibile in the current class, bug 3184
Revision 1.71 2004/06/20 08:55:29 florian
* logs truncated * logs truncated
Revision 1.70 2004/06/16 20:07:09 florian Revision 1.70 2004/06/16 20:07:09 florian