paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 21:49:09 +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 ) then
Message(parser_e_property_cant_have_a_default_value); Message(parser_e_property_cant_have_a_default_value);
pt:=comp_expr(true); 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); pt:=gentypeconvnode(pt,p^.proptype);
do_firstpass(pt); do_firstpass(pt);
if not(is_constnode(pt)) then if not(is_constnode(pt)) then
@ -2235,7 +2239,10 @@ unit pdecl;
end. end.
{ {
$Log$ $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 * NEWLAB for label as symbol
Revision 1.120 1999/05/20 22:19:52 pierre Revision 1.120 1999/05/20 22:19:52 pierre