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

* fixed property reading

Browse Source
This commit is contained in:
peter 1999-10-27 16:04:06 +00:00
parent 326e64a39c
commit 7ab2ee0e79
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ptype.pas
View File

@ -695,7 +695,7 @@ uses
((p^.proptype^.deftype=setdef) and ((p^.proptype^.deftype=setdef) and
(psetdef(p^.proptype)^.settype=smallset) (psetdef(p^.proptype)^.settype=smallset)
) or ) or
assigned(propertyparas) not(propertyparas^.empty)
) then ) then
Message(parser_e_property_cant_have_a_default_value); Message(parser_e_property_cant_have_a_default_value);
{ Get the result of the default, the firstpass is { Get the result of the default, the firstpass is
@ -743,7 +743,7 @@ uses
{$else} {$else}
p^.propoptions:=p^.propoptions+[ppo_defaultproperty]; p^.propoptions:=p^.propoptions+[ppo_defaultproperty];
{$endif} {$endif}
if not(assigned(propertyparas)) then if propertyparas^.empty then
message(parser_e_property_need_paras); message(parser_e_property_need_paras);
end; end;
consume(_SEMICOLON); consume(_SEMICOLON);
@ -1598,7 +1598,10 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.4 1999-10-27 14:17:08 florian Revision 1.5 1999-10-27 16:04:06 peter
* fixed property reading
Revision 1.4 1999/10/27 14:17:08 florian
* property overriding fixed * property overriding fixed
Revision 1.3 1999/10/26 12:30:45 peter Revision 1.3 1999/10/26 12:30:45 peter