mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-19 03:29:08 +02:00
* Fixed ie 200301234 problem on Win32 target
This commit is contained in:
parent
af4b350879
commit
390ae3e2b1
@ -1675,7 +1675,6 @@ unit cgx86;
|
|||||||
r.number:=NR_EDI;
|
r.number:=NR_EDI;
|
||||||
list.concat(Taicpu.op_reg(A_DEC,S_L,r));
|
list.concat(Taicpu.op_reg(A_DEC,S_L,r));
|
||||||
a_jmp_cond(list,OC_NE,again);
|
a_jmp_cond(list,OC_NE,again);
|
||||||
r.enum:=R_EDI;
|
|
||||||
rg.ungetregisterint(list,r);
|
rg.ungetregisterint(list,r);
|
||||||
list.concat(Taicpu.op_const_reg(A_SUB,S_L,localsize mod winstackpagesize,rsp));
|
list.concat(Taicpu.op_const_reg(A_SUB,S_L,localsize mod winstackpagesize,rsp));
|
||||||
end
|
end
|
||||||
@ -1925,7 +1924,10 @@ unit cgx86;
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.33 2003-02-26 21:15:43 daniel
|
Revision 1.34 2003-02-27 16:40:32 daniel
|
||||||
|
* Fixed ie 200301234 problem on Win32 target
|
||||||
|
|
||||||
|
Revision 1.33 2003/02/26 21:15:43 daniel
|
||||||
* Fixed the optimizer
|
* Fixed the optimizer
|
||||||
|
|
||||||
Revision 1.32 2003/02/19 22:00:17 daniel
|
Revision 1.32 2003/02/19 22:00:17 daniel
|
||||||
|
Loading…
Reference in New Issue
Block a user