Просмотр исходного кода

* start search for overriden properties in the parent class

peter 22 лет назад
Родитель
Сommit
5541dc331f
1 измененных файлов с 5 добавлено и 2 удалено
  1. 5 2
      compiler/pdecobj.pas

+ 5 - 2
compiler/pdecobj.pas

@@ -357,7 +357,7 @@ implementation
            else
              begin
                 { do an property override }
-                overriden:=search_class_member(aktclass,propname);
+                overriden:=search_class_member(aktclass.childof,propname);
                 if assigned(overriden) and (overriden.typ=propertysym) then
                   begin
                     p.dooverride(tpropertysym(overriden));
@@ -1154,7 +1154,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.60  2003-04-25 20:59:33  peter
+  Revision 1.61  2003-04-26 00:32:37  peter
+    * start search for overriden properties in the parent class
+
+  Revision 1.60  2003/04/25 20:59:33  peter
     * removed funcretn,funcretsym, function result is now in varsym
       and aliases for result and function name are added using absolutesym
     * vs_hidden parameter for funcret passed in parameter