From ab6fd6b3b8fce35f14f80d712dc5b3076c686c24 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 7 Jul 2000 20:42:55 +0000
Subject: [PATCH]  * get a failure on webtbf/tbug890

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

diff --git a/compiler/psub.pas b/compiler/psub.pas
index 97fe4a88fa..70eb7f91c7 100644
--- a/compiler/psub.pas
+++ b/compiler/psub.pas
@@ -1292,7 +1292,7 @@ begin
                is_equal(pd^.nextoverloaded^.rettype.def,aktprocsym^.definition^.rettype.def))) then
              begin
                if not equal_paras(aktprocsym^.definition^.para,hd^.para,cp_all) and
-                 (m_repeat_forward in aktmodeswitches) then
+                 ((m_repeat_forward in aktmodeswitches) or (aktprocsym^.definition^.para^.count>0)) then
                  begin
                     Message1(parser_e_header_dont_match_forward,aktprocsym^.demangledName);
                     exit;
@@ -2083,7 +2083,10 @@ end.
 
 {
   $Log$
-  Revision 1.66  2000-07-06 19:04:59  peter
+  Revision 1.67  2000-07-07 20:42:55  pierre
+   * get a failure on webtbf/tbug890
+
+  Revision 1.66  2000/07/06 19:04:59  peter
     * allow in delphi mode directives without semicolons between
 
   Revision 1.65  2000/06/25 20:13:51  florian