From 521b0a2672b933ead98932cebcc40bdc52fecb0b Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 1 Feb 2000 12:54:20 +0000
Subject: [PATCH]   * cargs must also increase pushedparasize else it won't be
 'popped'

---
 compiler/cg386ld.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/compiler/cg386ld.pas b/compiler/cg386ld.pas
index 1a89beca42..0d263d44e9 100644
--- a/compiler/cg386ld.pas
+++ b/compiler/cg386ld.pas
@@ -960,6 +960,7 @@ implementation
                      end
                     else
                      emit_push_loc(hp^.left^.location);
+                    inc(pushedparasize); 
                   end
                  else
                   begin
@@ -1003,7 +1004,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.97  2000-01-21 12:17:42  jonas
+  Revision 1.98  2000-02-01 12:54:20  peter
+    * cargs must also increase pushedparasize else it won't be 'popped'
+
+  Revision 1.97  2000/01/21 12:17:42  jonas
     * regallocation fixes
 
   Revision 1.96  2000/01/09 12:35:01  jonas