mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-05 10:05:58 +02:00
* fixed pop/push optmization
This commit is contained in:
parent
4e1ba2115f
commit
618547adf0
@ -1137,7 +1137,6 @@ Begin
|
|||||||
Reset_reference(tmpref^);
|
Reset_reference(tmpref^);
|
||||||
TmpRef^.base := R_ESP;
|
TmpRef^.base := R_ESP;
|
||||||
Pai386(p)^.LoadRef(0,TmpRef);
|
Pai386(p)^.LoadRef(0,TmpRef);
|
||||||
hp1 := Pai(p^.next);
|
|
||||||
AsmL^.Remove(hp1);
|
AsmL^.Remove(hp1);
|
||||||
Dispose(hp1, Done)
|
Dispose(hp1, Done)
|
||||||
End;
|
End;
|
||||||
@ -1569,7 +1568,10 @@ End.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.62 1999-08-10 12:30:00 pierre
|
Revision 1.63 1999-08-23 10:20:46 jonas
|
||||||
|
* fixed pop/push optmization
|
||||||
|
|
||||||
|
Revision 1.62 1999/08/10 12:30:00 pierre
|
||||||
* avoid unused locals
|
* avoid unused locals
|
||||||
|
|
||||||
Revision 1.61 1999/08/05 15:02:48 jonas
|
Revision 1.61 1999/08/05 15:02:48 jonas
|
||||||
|
Loading…
Reference in New Issue
Block a user