paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:49:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed lost default value in case of a property override

Browse Source 
git-svn-id: trunk@12114 -
This commit is contained in:
michael 2008-11-15 22:13:59 +00:00
parent 1b418875b3
commit 11a41788fb
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/pdecvar.pas
View File

@ -285,6 +285,7 @@ implementation
{ Generate propertysym and insert in symtablestack } { Generate propertysym and insert in symtablestack }
p:=tpropertysym.create(orgpattern); p:=tpropertysym.create(orgpattern);
p.visibility:=symtablestack.top.currentvisibility; p.visibility:=symtablestack.top.currentvisibility;
p.default:=longint($80000000);
symtablestack.top.insert(p); symtablestack.top.insert(p);
consume(_ID); consume(_ID);
{ property parameters ? } { property parameters ? }
@ -632,12 +633,13 @@ implementation
else if try_to_consume(_NODEFAULT) then else if try_to_consume(_NODEFAULT) then
begin begin
p.default:=longint($80000000); p.default:=longint($80000000);
end end;
else if allow_default_property(p) then (*
else {if allow_default_property(p) then
begin begin
p.default:=longint($80000000); p.default:=longint($80000000);
end; end;
*)
{ Parse possible "implements" keyword } { Parse possible "implements" keyword }
if try_to_consume(_IMPLEMENTS) then if try_to_consume(_IMPLEMENTS) then
begin begin