From 5540304b85531b988053420e3b9938d086236643 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 8 Jun 2003 11:40:00 +0000
Subject: [PATCH]   * check parast when inserting in localst

---
 compiler/symtable.pas | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/compiler/symtable.pas b/compiler/symtable.pas
index e9e6bff7d4..f3e3881ab7 100644
--- a/compiler/symtable.pas
+++ b/compiler/symtable.pas
@@ -1282,6 +1282,13 @@ implementation
         if assigned(next) and
            (next.symtabletype=parasymtable) then
           begin
+            { check para symtable }
+            hsym:=tsym(next.search(sym.name));
+            if assigned(hsym) then
+              begin
+                DuplicateSym(hsym);
+                exit;
+              end;
             { check for duplicate id in local symtable of methods }
             if assigned(next.next) and
                { funcretsym is allowed !! }
@@ -2452,7 +2459,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.104  2003-06-07 20:26:32  peter
+  Revision 1.105  2003-06-08 11:40:00  peter
+    * check parast when inserting in localst
+
+  Revision 1.104  2003/06/07 20:26:32  peter
     * re-resolving added instead of reloading from ppu
     * tderef object added to store deref info for resolving