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

* hopefully the default property bug fixed

Browse Source
This commit is contained in:
florian 1999-05-21 20:08:22 +00:00
parent 2e88fbde1a
commit 6a652349de
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pdecl.pas
View File

@ -1056,7 +1056,11 @@ unit pdecl;
) then
Message(parser_e_property_cant_have_a_default_value);
pt:=comp_expr(true);
arrayconstructor_to_set(pt);
if p^.proptype^.deftype=setdef then
begin
do_firstpass(pt);
arrayconstructor_to_set(pt);
end;
pt:=gentypeconvnode(pt,p^.proptype);
do_firstpass(pt);
if not(is_constnode(pt)) then
@ -2235,7 +2239,10 @@ unit pdecl;
end.
{
$Log$
Revision 1.121 1999-05-21 13:55:04 peter
Revision 1.122 1999-05-21 20:08:22 florian
* hopefully the default property bug fixed
Revision 1.121 1999/05/21 13:55:04 peter
* NEWLAB for label as symbol
Revision 1.120 1999/05/20 22:19:52 pierre