paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-03 07:47:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed default value for properties with index values

Browse Source
This commit is contained in:
peter 2002-01-25 17:38:19 +00:00
parent 24fdea1ad0
commit 34d4f5e291
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pdecobj.pas
View File

@ -508,7 +508,7 @@ implementation
(tsetdef(p.proptype.def).settype=smallset))) or (tsetdef(p.proptype.def).settype=smallset))) or
((p.proptype.def.deftype=arraydef) and ((p.proptype.def.deftype=arraydef) and
(ppo_indexed in p.propoptions)) or (ppo_indexed in p.propoptions)) or
not(propertyparas.empty) then (ppo_hasparameters in p.propoptions) 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 }
@ -1110,7 +1110,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.37 2002-01-24 18:25:48 peter Revision 1.38 2002-01-25 17:38:19 peter
* fixed default value for properties with index values
Revision 1.37 2002/01/24 18:25:48 peter
* implicit result variable generation for assembler routines * implicit result variable generation for assembler routines
* removed m_tp modeswitch, use m_tp7 or not(m_fpc) instead * removed m_tp modeswitch, use m_tp7 or not(m_fpc) instead