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

* bugfix in a_mov optimizations; completed bugfix of "sub $2,esp;...;movw reg, y(%esp)"

Browse Source
This commit is contained in:
Jonas Maebe 1998-05-10 12:06:30 +00:00
parent 1b9418fafb
commit 6c86e16f46
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
compiler/aopt386.pas
View File

@ -153,8 +153,8 @@ End;
End;
Function GetLastInstruction(Current: Pai; Var Last: Pai): Boolean;
{skips ait_regalloc, ait_regdealloc and ait_stab* objects and puts the
last pai object in Last. Returns false if there isn't any}
{skips the ait-types in SkipInstr puts the previous pai object in
Last. Returns false if there isn't any}
Begin
GetLastInstruction := False;
Current := Pai(Current^.previous);
@ -727,7 +727,7 @@ End;
A_MOV:
Begin
If (Pai386(p)^.op2t = top_reg) And
(TRegister(Pai386(p)^.op2) In [R_EAX, R_EBX, R_EDX, R_EDI]) And
(TRegister(Pai386(p)^.op2) In [R_EAX{, R_EBX, R_EDX, R_EDI}]) And
{ Assigned(p^.next) And}
GetNextInstruction(p, hp1) And
(Pai(hp1)^.typ = ait_instruction) And
@ -924,7 +924,7 @@ End;
RefsEqual(TReference(Pai386(hp2)^.op1^),
TReference(Pai386(hp1)^.op2^))
Then
If (TRegister(Pai386(p)^.op2) <> R_ESI)
If (TRegister(Pai386(p)^.op2) = R_EDI)
Then
{ mov mem1, reg1
mov reg1, mem2
@ -953,7 +953,7 @@ End;
Pai386(hp1)^.op2 := Pai386(hp2)^.op2;
Pai386(hp2)^.opxt := top_reg + top_ref shl 4;
Pai386(hp2)^.op2 := Pai386(hp2)^.op1;
Pai386(hp2)^.op1 := Pointer(R_ESI)
Pai386(hp2)^.op1 := Pai386(p)^.op2;
End;
End;
End
@ -1445,7 +1445,10 @@ End;
While Assigned(hp1) And
(Pai(hp1)^.typ In [ait_instruction]+SkipInstr) And
Not((Pai(hp1)^.typ = ait_instruction) And
(Pai386(hp1)^._operator in [A_CALL,A_PUSH])) do
((Pai386(hp1)^._operator = A_PUSH) or
((Pai386(hp1)^._operator = A_MOV) And
(Pai386(hp1)^.op2t = top_ref) And
(TReference(Pai386(hp1)^.op2^).base = r_esp)))) do
hp1 := Pai(hp1^.next);
If Assigned(hp1) And
(Pai(hp1)^.typ = ait_instruction) And
@ -1618,7 +1621,10 @@ end;
End.
{
$Log$
Revision 1.9 1998-05-06 08:38:34 pierre
Revision 1.10 1998-05-10 12:06:30 jonas
* bugfix in a_mov optimizations; completed bugfix of "sub $2,esp;...;movw reg, y(%esp)"
Revision 1.9 1998/05/06 08:38:34 pierre
* better position info with UseTokenInfo
UseTokenInfo greatly simplified
+ added check for changed tree after first time firstpass