From 700f9ce852f9aa0d6b80b7db7cceeb1156f98437 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 27 Mar 2000 11:57:22 +0000
Subject: [PATCH]  * fix for bug #890

---
 compiler/psub.pas | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/compiler/psub.pas b/compiler/psub.pas
index 5b9730bee9..dcff49ab73 100644
--- a/compiler/psub.pas
+++ b/compiler/psub.pas
@@ -1218,7 +1218,8 @@ begin
       { walk the procdef list }
         while (assigned(pd)) and (assigned(pd^.nextoverloaded)) do
          begin
-           if not(m_repeat_forward in aktmodeswitches) or
+           if (not(m_repeat_forward in aktmodeswitches) and
+               (aktprocsym^.definition^.para^.count=0)) or
               (equal_paras(aktprocsym^.definition^.para,pd^.nextoverloaded^.para,false) and
               { for operators equal_paras is not enough !! }
               ((aktprocsym^.definition^.proctypeoption<>potype_operator) or (optoken<>_ASSIGNMENT) or
@@ -1998,7 +1999,10 @@ end.
 
 {
   $Log$
-  Revision 1.54  2000-03-23 22:17:51  pierre
+  Revision 1.55  2000-03-27 11:57:22  pierre
+   * fix for bug 890
+
+  Revision 1.54  2000/03/23 22:17:51  pierre
    * fix tf000008 bug
 
   Revision 1.53  2000/03/16 16:41:13  pierre