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

* array type property can have default value, fixed.

Browse Source
This commit is contained in:
kaz 2000-06-13 17:09:56 +00:00
parent 6039ee2675
commit 8742406bdd
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ptype.pas
View File

@ -627,9 +627,8 @@ uses
if not(is_ordinal(p^.proptype.def) or if not(is_ordinal(p^.proptype.def) or
is_64bitint(p^.proptype.def) or is_64bitint(p^.proptype.def) or
((p^.proptype.def^.deftype=setdef) and ((p^.proptype.def^.deftype=setdef) and
(psetdef(p^.proptype.def)^.settype=smallset)) or (psetdef(p^.proptype.def)^.settype=smallset))) or
not(propertyparas^.empty) 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
needed to support values like -1 } needed to support values like -1 }
@ -1594,7 +1593,10 @@ uses
end. end.
{ {
$Log$ $Log$
Revision 1.25 2000-06-02 18:48:47 florian Revision 1.26 2000-06-13 17:09:56 kaz
* array type property can have default value, fixed.
Revision 1.25 2000/06/02 18:48:47 florian
+ fieldtable support for classes + fieldtable support for classes
Revision 1.24 2000/03/27 21:51:19 pierre Revision 1.24 2000/03/27 21:51:19 pierre