From 5d57010458aade97cffaa3b0b8d2be8d781f6ef3 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 10 Dec 2000 14:14:51 +0000
Subject: [PATCH]   * fixed web bug #1203: class fields can be now redefined   
  in Delphi mode though I don't like this :/

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

diff --git a/compiler/symtable.pas b/compiler/symtable.pas
index 11f0ed6789..3ae7a78779 100644
--- a/compiler/symtable.pas
+++ b/compiler/symtable.pas
@@ -1072,7 +1072,11 @@ implementation
          { check for duplicate field id in inherited classes }
          if (sym^.typ=varsym) and
             (symtabletype=objectsymtable) and
-            assigned(defowner) then
+            assigned(defowner) and
+            (
+             not(m_delphi in aktmodeswitches) or
+             is_object(defowner)
+            ) then
            begin
               hsym:=search_class_member(pobjectdef(defowner),sym^.name);
               { but private ids can be reused }
@@ -2364,7 +2368,11 @@ implementation
 end.
 {
   $Log$
-  Revision 1.19  2000-11-30 22:16:49  florian
+  Revision 1.20  2000-12-10 14:14:51  florian
+    * fixed web bug 1203: class fields can be now redefined
+      in Delphi mode though I don't like this :/
+
+  Revision 1.19  2000/11/30 22:16:49  florian
     * moved to i386
 
   Revision 1.18  2000/11/29 00:30:42  florian