From 8aa2cc111884326bc7cfd9e53b88ba58f7761b2f Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 20 Sep 1998 08:31:29 +0000
Subject: [PATCH]   + bit 6 of tpropinfo.propprocs is set, if the property
 contains a     constant index

---
 compiler/symdef.inc | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/compiler/symdef.inc b/compiler/symdef.inc
index 2af3f70811..2bd29c10eb 100644
--- a/compiler/symdef.inc
+++ b/compiler/symdef.inc
@@ -2831,7 +2831,11 @@
         end;
 
       begin
-         proctypesinfo:=0;
+
+         if (ppropertysym(sym)^.options and ppo_indexed)<>0 then
+           proctypesinfo:=$40
+         else
+           proctypesinfo:=0;
          if (sym^.typ=propertysym) and ((sym^.properties and sp_published)<>0) then
            begin
               rttilist^.concat(new(pai_const,init_symbol(strpnew(lab2str(ppropertysym(sym)^.proptype^.get_rtti_label)))));
@@ -2965,7 +2969,11 @@
 
 {
   $Log$
-  Revision 1.44  1998-09-19 15:23:58  florian
+  Revision 1.45  1998-09-20 08:31:29  florian
+    + bit 6 of tpropinfo.propprocs is set, if the property contains a
+      constant index
+
+  Revision 1.44  1998/09/19 15:23:58  florian
     * rtti for ordtypes corrected
 
   Revision 1.43  1998/09/18 17:12:40  florian