From 34d4f5e2917c39fdbb11ec48f961c492598b747f Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 25 Jan 2002 17:38:19 +0000
Subject: [PATCH]   * fixed default value for properties with index values

---
 compiler/pdecobj.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/pdecobj.pas b/compiler/pdecobj.pas
index 8b7189a704..c33db79310 100644
--- a/compiler/pdecobj.pas
+++ b/compiler/pdecobj.pas
@@ -508,7 +508,7 @@ implementation
                              (tsetdef(p.proptype.def).settype=smallset))) or
                             ((p.proptype.def.deftype=arraydef) and
                              (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);
                      { Get the result of the default, the firstpass is
                        needed to support values like -1 }
@@ -1110,7 +1110,10 @@ implementation
 end.
 {
   $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
    * removed m_tp modeswitch, use m_tp7 or not(m_fpc) instead