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

git-svn-id: trunk@392 -

compiler/nobj.pas

@@ -665,8 +665,6 @@ implementation
                                 begin
                                   { new one has not override }
                                   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
                                    begin
                                      { we start a new virtual tree, hide the old }

compiler/pdecobj.pas

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