paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 03:11:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

* start search for overriden properties in the parent class

Browse Source
This commit is contained in:
peter 2003-04-26 00:32:37 +00:00
parent 9b236892b7
commit 5541dc331f
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecobj.pas
View File

@ -357,7 +357,7 @@ implementation
else else
begin begin
{ do an property override } { 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 if assigned(overriden) and (overriden.typ=propertysym) then
begin begin
p.dooverride(tpropertysym(overriden)); p.dooverride(tpropertysym(overriden));
@ -1154,7 +1154,10 @@ implementation
end. end.
{ {
$Log$ $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 * removed funcretn,funcretsym, function result is now in varsym
and aliases for result and function name are added using absolutesym and aliases for result and function name are added using absolutesym
* vs_hidden parameter for funcret passed in parameter * vs_hidden parameter for funcret passed in parameter