From e2ec92c20cea781c52ee1824114940a580a38075 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Wed, 8 Nov 2000 09:27:45 +0000
Subject: [PATCH]  * fix for new is_class function

---
 compiler/browcol.pas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/compiler/browcol.pas b/compiler/browcol.pas
index e39e14b8a6..43aee64b9b 100644
--- a/compiler/browcol.pas
+++ b/compiler/browcol.pas
@@ -1534,7 +1534,7 @@ end;
                       if ObjDef<>nil then
                         Symbol^.RelatedTypeID:=longint(ObjDef);{TypeNames^.Add(S);}
                       Symbol^.Flags:=(Symbol^.Flags or sfObject);
-                      if is_class then
+                      if is_class(restype.def) then
                         Symbol^.Flags:=(Symbol^.Flags or sfClass);
                       ProcessSymTable(Symbol,Symbol^.Items,pobjectdef(restype.def)^.symtable);
                     end;
@@ -2095,7 +2095,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.12  2000-11-02 15:01:22  pierre
+  Revision 1.13  2000-11-08 09:27:45  pierre
+   * fix for new is_class function
+
+  Revision 1.12  2000/11/02 15:01:22  pierre
    * get it to compile again
 
   Revision 1.11  2000/10/31 22:02:46  peter
@@ -2131,4 +2134,4 @@ end.
   Revision 1.2  2000/07/13 11:32:32  michael
   + removed logs
 
-}
\ No newline at end of file
+}