* factored out overridden properties into a virtual method

git-svn-id: trunk@27939 -

compiler/pdecvar.pas

@@ -502,8 +502,7 @@ implementation
                  not(is_dispinterface(astruct)) then
                 begin
                   tpropertysym(overridden).makeduplicate(p,readprocdef,writeprocdef,paranr);
-                  p.overriddenpropsym:=tpropertysym(overridden);
-                  include(p.propoptions,ppo_overrides);
+                  p.register_override(tpropertysym(overridden));
                 end
               else
                 begin

compiler/symsym.pas

@@ -349,6 +349,7 @@ interface
           procedure add_index_parameter(var paranr: word; readprocdef, writeprocdef: tprocdef);
           { set up the accessors for this property }
           procedure add_getter_or_setter_for_sym(getset: tpropaccesslisttypes; sym: tsym; fielddef: tdef; accessordef: tprocdef);
+          procedure register_override(overriddenprop: tpropertysym); virtual;
        end;
        tpropertysymclass = class of tpropertysym;
 
@@ -1437,6 +1438,13 @@ implementation
       end;
 
 
+    procedure tpropertysym.register_override(overriddenprop: tpropertysym);
+      begin
+        overriddenpropsym:=tpropertysym(overriddenprop);
+        include(propoptions,ppo_overrides);
+      end;
+
+
     procedure tpropertysym.makeduplicate(p: tpropertysym; readprocdef, writeprocdef: tprocdef; out paranr: word);
       begin
         { inherit all type related entries }