From 43ece4c2b7a22d38c51d11dc334f17c7af6e6ae4 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Wed, 19 Dec 2001 09:34:51 +0000
Subject: [PATCH]   * publishing of publishable classes fixed

---
 compiler/symdef.pas | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index 1a44a85b1f..1a1b3e444f 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -4826,6 +4826,8 @@ implementation
             case tsym(sym).typ of
               propertysym:
                 tstoreddef(tpropertysym(sym).proptype.def).get_rtti_label(fullrtti);
+              varsym:
+                tstoreddef(tvarsym(sym).vartype.def).get_rtti_label(fullrtti);
               else
                 internalerror(1509991);
             end;
@@ -5504,7 +5506,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.60  2001-12-06 17:57:39  florian
+  Revision 1.61  2001-12-19 09:34:51  florian
+    * publishing of publishable classes fixed
+
+  Revision 1.60  2001/12/06 17:57:39  florian
     + parasym to tparaitem added
 
   Revision 1.59  2001/12/03 21:48:42  peter