Browse Source

* fix pushw reg

peter 22 years ago
parent
commit
5a7ce9fbe3
1 changed files with 6 additions and 4 deletions
  1. 6 4
      compiler/x86/cgx86.pas

+ 6 - 4
compiler/x86/cgx86.pas

@@ -348,10 +348,9 @@ unit cgx86;
                 OS_16,OS_S16:
                 OS_16,OS_S16:
                   begin
                   begin
                     if target_info.alignment.paraalign = 2 then
                     if target_info.alignment.paraalign = 2 then
-                      r:=rg.makeregsize(r,OS_16)
+                      list.concat(taicpu.op_reg(A_PUSH,S_W,rg.makeregsize(r,OS_16)))
                     else
                     else
-                      r:=rg.makeregsize(r,OS_32);
-                    list.concat(taicpu.op_reg(A_PUSH,S_L,r));
+                      list.concat(taicpu.op_reg(A_PUSH,S_L,rg.makeregsize(r,OS_32)));
                   end;
                   end;
                 OS_32,OS_S32:
                 OS_32,OS_S32:
                   begin
                   begin
@@ -1598,7 +1597,10 @@ unit cgx86;
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.68  2003-09-29 20:58:56  peter
+  Revision 1.69  2003-09-30 19:53:47  peter
+    * fix pushw reg
+
+  Revision 1.68  2003/09/29 20:58:56  peter
     * optimized releasing of registers
     * optimized releasing of registers
 
 
   Revision 1.67  2003/09/28 13:37:19  peter
   Revision 1.67  2003/09/28 13:37:19  peter