From a44cae75fcd6d70c273aa5be0e9bc566f839df0c Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 23 Dec 2002 21:24:22 +0000
Subject: [PATCH]   * fix wrong internalerror when var names were different

---
 compiler/pdecsub.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/pdecsub.pas b/compiler/pdecsub.pas
index a2132fc44a..bffbe49fde 100644
--- a/compiler/pdecsub.pas
+++ b/compiler/pdecsub.pas
@@ -1958,7 +1958,7 @@ const
                         ad:=tsym(ad.indexnext);
                         fd:=tsym(fd.indexnext);
                       until false;
-                      if assigned(ad) or assigned(fd) then
+                      if assigned(ad) xor assigned(fd) then
                         internalerror(200204178);
                     end;
 
@@ -2087,7 +2087,10 @@ const
 end.
 {
   $Log$
-  Revision 1.91  2002-12-23 20:58:52  peter
+  Revision 1.92  2002-12-23 21:24:22  peter
+    * fix wrong internalerror when var names were different
+
+  Revision 1.91  2002/12/23 20:58:52  peter
     * cdecl array fix, hack to change it to vs_var is not needed
 
   Revision 1.90  2002/12/17 22:19:33  peter