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

* big error (with little consequences) corrected in NoChangedRegInRef

Browse Source
This commit is contained in:
Jonas Maebe 1998-09-17 21:54:21 +00:00
parent c4dd8d472a
commit 1151b6d698
1 changed files with 16 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/csopt386.pas
View File

@ -67,20 +67,20 @@ Var hp2, hp3, EndMod: Pai;
consequently all instructions containg %eax are removed} consequently all instructions containg %eax are removed}
Begin Begin
TmpResult := True; TmpResult := True;
If (Pai(oldp)^.typ = ait_instruction) Then {oldp and newp are the same instruction} If (Pai(NewP)^.typ = ait_instruction) Then
Case Pai386(oldp)^.op1t Of Case Pai386(NewP)^.op1t Of
Top_Reg: Top_Reg:
If (Reg32(TRegister(Pai386(oldp)^.op1)) in RegsNotYetChecked) Then If (Reg32(TRegister(Pai386(NewP)^.op1)) in RegsNotYetChecked) Then
Begin Begin
RegsNotYetChecked := RegsNotYetChecked - [Reg32(TRegister(Pai386(oldp)^.op1))]; RegsNotYetChecked := RegsNotYetChecked - [Reg32(TRegister(Pai386(NewP)^.op1))];
TmpP := NewP; TmpP := NewP;
While GetLastInstruction(TmpP, TmpP) And While GetLastInstruction(TmpP, TmpP) And
PPaiProp(TmpP^.fileinfo.Line)^.CanBeRemoved Do; PPaiProp(TmpP^.fileinfo.Line)^.CanBeRemoved Do;
TmpResult := Assigned(TmpP) And TmpResult := Assigned(TmpP) And
RegsSameContent(oldp, TmpP, Reg32(TRegister(Pai386(oldp)^.op1))) RegsSameContent(oldp, TmpP, Reg32(TRegister(Pai386(Newp)^.op1)))
End; End;
Top_Ref: Top_Ref:
With TReference(Pai386(oldp)^.op1^) Do With TReference(Pai386(NewP)^.op1^) Do
Begin Begin
If (Base in RegsNotYetChecked) And If (Base in RegsNotYetChecked) And
(Base <> R_NO) Then (Base <> R_NO) Then
@ -101,7 +101,7 @@ Var hp2, hp3, EndMod: Pai;
While GetLastInstruction(TmpP, TmpP) And While GetLastInstruction(TmpP, TmpP) And
PPaiProp(TmpP^.fileinfo.Line)^.CanBeRemoved Do; PPaiProp(TmpP^.fileinfo.Line)^.CanBeRemoved Do;
TmpResult := Assigned(TmpP) And TmpResult := Assigned(TmpP) And
RegsSameContent(oldp, TmpP, Index) RegsSameContent(oldp, TmpP, Index);
End; End;
End; End;
End; End;
@ -125,6 +125,11 @@ Begin {CheckSequence}
InstructionsEqual(hp2, hp3) And InstructionsEqual(hp2, hp3) And
NoChangedRegInRef(EndMod, hp3) Do NoChangedRegInRef(EndMod, hp3) Do
Begin Begin
If (hp2^.typ = ait_instruction) And
(Pai386(hp2)^._operator in [a_mov, a_movsx, a_movzx]) And
(Pai386(hp2)^.op2t = top_reg)
Then RegsNotYetChecked := RegsNotYetChecked -
[Reg32(TRegister(Pai386(hp2)^.op2))];
GetNextInstruction(hp2, hp2); GetNextInstruction(hp2, hp2);
GetNextInstruction(hp3, hp3); GetNextInstruction(hp3, hp3);
Inc(Found) Inc(Found)
@ -387,7 +392,10 @@ End.
{ {
$Log$ $Log$
Revision 1.5 1998-09-16 17:59:59 jonas Revision 1.6 1998-09-17 21:54:21 jonas
* big error (with little consequences) corrected in NoChangedRegInRef
Revision 1.5 1998/09/16 17:59:59 jonas
* optimizer now completely dependant on GetNext/GetLast instruction, works again with -dRegAlloc * optimizer now completely dependant on GetNext/GetLast instruction, works again with -dRegAlloc
Revision 1.4 1998/08/06 19:40:27 jonas Revision 1.4 1998/08/06 19:40:27 jonas