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

* require "override;" as well in macpas mode to override methods

Browse Source 
git-svn-id: trunk@392 -
This commit is contained in:
Jonas Maebe 2005-06-12 17:12:49 +00:00
parent 893f45c9e2
commit 8efe880649
2 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nobj.pas
View File

@ -665,8 +665,6 @@ implementation
begin begin
{ new one has not override } { new one has not override }
if is_class(_class) and if is_class(_class) and
{ in Macintosh Object Pascal, all methods are virtual/override }
not(m_mac in aktmodeswitches) and
not(po_overridingmethod in pd.procoptions) then not(po_overridingmethod in pd.procoptions) then
begin begin
{ we start a new virtual tree, hide the old } { we start a new virtual tree, hide the old }

3
compiler/pdecobj.pas
View File

@ -597,8 +597,7 @@ implementation
begin begin
parse_object_proc_directives(pd); parse_object_proc_directives(pd);
{ all Macintosh Object Pascal methods are virtual/ } { all Macintosh Object Pascal methods are virtual. }
{ override; the override part is handled in nobj }
{ this can't be a class method, because macpas mode } { this can't be a class method, because macpas mode }
{ has no m_class } { has no m_class }
if (m_mac in aktmodeswitches) then if (m_mac in aktmodeswitches) then