From 1bb6c695e7187cbf4935aeefb5fb20b9774dcbad Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 10 Aug 2000 18:42:03 +0000
Subject: [PATCH]   * fixed for constants in emit_push_mem_size for go32v2
 (merged)

---
 compiler/cgai386.pas | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/compiler/cgai386.pas b/compiler/cgai386.pas
index b8800cc7fb..c86db94800 100644
--- a/compiler/cgai386.pas
+++ b/compiler/cgai386.pas
@@ -844,13 +844,19 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
       end;
 
     procedure emit_push_mem_size(const t: treference; size: longint);
-      
+
       var
         s: topsize;
-      
+
       begin
         if t.is_immediate then
-           push_int(t.offset)
+          begin
+            if (size=4) or
+               (target_os.stackalignment=4) then
+              exprasmlist^.concat(new(paicpu,op_const(A_PUSH,S_L,t.offset)))
+            else
+              exprasmlist^.concat(new(paicpu,op_const(A_PUSH,S_W,t.offset)));
+          end
         else
           if size < 4 then
             begin
@@ -4061,7 +4067,10 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
 end.
 {
   $Log$
-  Revision 1.8  2000-08-07 11:29:40  jonas
+  Revision 1.9  2000-08-10 18:42:03  peter
+    * fixed for constants in emit_push_mem_size for go32v2 (merged)
+
+  Revision 1.8  2000/08/07 11:29:40  jonas
     + emit_push_mem_size() which pushes a value in memory of a certain size
     * pushsetelement() and pushvaluepara() use this new procedure, because
       otherwise they could sometimes try to push data past the end of the