paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 12:18:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix pushw reg

Browse Source
This commit is contained in:
peter 2003-09-30 19:53:47 +00:00
parent 957a3d4b36
commit 5a7ce9fbe3
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/x86/cgx86.pas
View File

@ -348,10 +348,9 @@ unit cgx86;
OS_16,OS_S16:
begin
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
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;
OS_32,OS_S32:
begin
@ -1598,7 +1597,10 @@ unit cgx86;
end.
{
$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
Revision 1.67 2003/09/28 13:37:19 peter