From 34d0dff8405a4e9704c5a80e6667c6990c003f06 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 21 Oct 2003 18:14:49 +0000
Subject: [PATCH]   * fix counting of parameters when loading ppu

---
 compiler/symdef.pas | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index d1b2f9c3aa..de45b548f9 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -3240,6 +3240,13 @@ implementation
             hp.parasym:=tvarsym(hp.parasymderef.resolve);
             { connect parasym to paraitem }
             tvarsym(hp.parasym).paraitem:=hp;
+            { Don't count hidden parameters }
+            if (not hp.is_hidden) then
+             begin
+               if not assigned(hp.defaultvalue) then
+                 inc(minparacount);
+               inc(maxparacount);
+             end;
             hp:=TParaItem(hp.next);
           end;
       end;
@@ -3278,13 +3285,6 @@ implementation
             ppufile.getderef(hp.parasymderef);
             hp.parasym:=nil;
             hp.is_hidden:=boolean(ppufile.getbyte);
-            { Don't count hidden parameters }
-            if (not hp.is_hidden) then
-             begin
-               if not assigned(hp.defaultvalue) then
-                inc(minparacount);
-               inc(maxparacount);
-             end;
             { Parameters are stored left to right in both ppu and memory }
             Para.concat(hp);
           end;
@@ -5884,7 +5884,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.181  2003-10-17 15:08:34  peter
+  Revision 1.182  2003-10-21 18:14:49  peter
+    * fix counting of parameters when loading ppu
+
+  Revision 1.181  2003/10/17 15:08:34  peter
     * commented out more obsolete constants
 
   Revision 1.180  2003/10/17 14:52:07  peter