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

* fixed 819

Browse Source
This commit is contained in:
florian 2000-02-21 22:17:49 +00:00
parent edc1765a62
commit 642bf91b4c
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ptype.pas
View File

@ -656,17 +656,15 @@ uses
if (idtoken=_DEFAULT) then if (idtoken=_DEFAULT) then
begin begin
consume(_DEFAULT); consume(_DEFAULT);
{ overriding a default propertyp is allowed
p2:=search_default_property(aktclass); p2:=search_default_property(aktclass);
if assigned(p2) then if assigned(p2) then
message1(parser_e_only_one_default_property, message1(parser_e_only_one_default_property,
pobjectdef(p2^.owner^.defowner)^.objname^) pobjectdef(p2^.owner^.defowner)^.objname^)
else else
}
begin begin
{$ifdef INCLUDEOK}
include(p^.propoptions,ppo_defaultproperty); include(p^.propoptions,ppo_defaultproperty);
{$else}
p^.propoptions:=p^.propoptions+[ppo_defaultproperty];
{$endif}
if propertyparas^.empty then if propertyparas^.empty then
message(parser_e_property_need_paras); message(parser_e_property_need_paras);
end; end;
@ -1541,7 +1539,10 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.18 2000-02-09 13:23:01 peter Revision 1.19 2000-02-21 22:17:49 florian
* fixed 819
Revision 1.18 2000/02/09 13:23:01 peter
* log truncated * log truncated
Revision 1.17 2000/02/05 14:33:32 florian Revision 1.17 2000/02/05 14:33:32 florian
@ -1605,4 +1606,4 @@ end.
* split type reading from pdecl to ptype unit * split type reading from pdecl to ptype unit
* parameter_dec routine is now used for procedure and procvars * parameter_dec routine is now used for procedure and procvars
} }