paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 05:49: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; End;
Function GetLastInstruction(Current: Pai; Var Last: Pai): Boolean; Function GetLastInstruction(Current: Pai; Var Last: Pai): Boolean;
{skips ait_regalloc, ait_regdealloc and ait_stab* objects and puts the {skips the ait-types in SkipInstr puts the previous pai object in
last pai object in Last. Returns false if there isn't any} Last. Returns false if there isn't any}
Begin Begin
GetLastInstruction := False; GetLastInstruction := False;
Current := Pai(Current^.previous); Current := Pai(Current^.previous);
@ -727,7 +727,7 @@ End;
A_MOV: A_MOV:
Begin Begin
If (Pai386(p)^.op2t = top_reg) And 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} { Assigned(p^.next) And}
GetNextInstruction(p, hp1) And GetNextInstruction(p, hp1) And
(Pai(hp1)^.typ = ait_instruction) And (Pai(hp1)^.typ = ait_instruction) And
@ -924,7 +924,7 @@ End;
RefsEqual(TReference(Pai386(hp2)^.op1^), RefsEqual(TReference(Pai386(hp2)^.op1^),
TReference(Pai386(hp1)^.op2^)) TReference(Pai386(hp1)^.op2^))
Then Then
If (TRegister(Pai386(p)^.op2) <> R_ESI) If (TRegister(Pai386(p)^.op2) = R_EDI)
Then Then
{ mov mem1, reg1 { mov mem1, reg1
mov reg1, mem2 mov reg1, mem2
@ -953,7 +953,7 @@ End;
Pai386(hp1)^.op2 := Pai386(hp2)^.op2; Pai386(hp1)^.op2 := Pai386(hp2)^.op2;
Pai386(hp2)^.opxt := top_reg + top_ref shl 4; Pai386(hp2)^.opxt := top_reg + top_ref shl 4;
Pai386(hp2)^.op2 := Pai386(hp2)^.op1; Pai386(hp2)^.op2 := Pai386(hp2)^.op1;
Pai386(hp2)^.op1 := Pointer(R_ESI) Pai386(hp2)^.op1 := Pai386(p)^.op2;
End; End;
End; End;
End End
@ -1445,7 +1445,10 @@ End;
While Assigned(hp1) And While Assigned(hp1) And
(Pai(hp1)^.typ In [ait_instruction]+SkipInstr) And (Pai(hp1)^.typ In [ait_instruction]+SkipInstr) And
Not((Pai(hp1)^.typ = ait_instruction) 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); hp1 := Pai(hp1^.next);
If Assigned(hp1) And If Assigned(hp1) And
(Pai(hp1)^.typ = ait_instruction) And (Pai(hp1)^.typ = ait_instruction) And
@ -1618,7 +1621,10 @@ end;
End. End.
{ {
$Log$ $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 * better position info with UseTokenInfo
UseTokenInfo greatly simplified UseTokenInfo greatly simplified
+ added check for changed tree after first time firstpass + added check for changed tree after first time firstpass