mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-14 19:29:39 +02:00
* fixed bug where "imul 12,reg" was replaced with a wrong lea sequence
This commit is contained in:
Jonas Maebe
parent
9b14f1f183
commit
2938e014d2
@ -406,6 +406,10 @@ Var LoLab, HiLab, LabDif: Longint;
|
||||
TmpRef^.offset := 0;
|
||||
Case Longint(Pai386(p)^.op1) Of
|
||||
3: Begin
|
||||
{imul 3, reg1, reg2 to
|
||||
lea (reg1,reg1,2), reg2
|
||||
imul 3, reg1 to
|
||||
lea (reg1,reg1,2), reg1}
|
||||
TmpRef^.base := TRegister(Pai386(p)^.op2);
|
||||
TmpRef^.Index := TRegister(Pai386(p)^.op2);
|
||||
TmpRef^.ScaleFactor := 2;
|
||||
@ -419,6 +423,10 @@ Var LoLab, HiLab, LabDif: Longint;
|
||||
p := hp1;
|
||||
End;
|
||||
5: Begin
|
||||
{imul 5, reg1, reg2 to
|
||||
lea (reg1,reg1,4), reg2
|
||||
imul 5, reg1 to
|
||||
lea (reg1,reg1,4), reg1}
|
||||
TmpRef^.base := TRegister(Pai386(p)^.op2);
|
||||
TmpRef^.Index := TRegister(Pai386(p)^.op2);
|
||||
TmpRef^.ScaleFactor := 4;
|
||||
@ -432,6 +440,12 @@ Var LoLab, HiLab, LabDif: Longint;
|
||||
p := hp1;
|
||||
End;
|
||||
6: Begin
|
||||
{imul 6, reg1, reg2 to
|
||||
lea (,reg1,2), reg2
|
||||
lea (reg2,reg1,4), reg2
|
||||
imul 6, reg1 to
|
||||
lea (reg1,reg1,2), reg1
|
||||
add reg1, reg1}
|
||||
If (Opt_Processors <= i486) Then
|
||||
Begin
|
||||
TmpRef^.Index := TRegister(Pai386(p)^.op2);
|
||||
@ -445,10 +459,9 @@ Var LoLab, HiLab, LabDif: Longint;
|
||||
End
|
||||
Else
|
||||
Begin
|
||||
TmpRef^.base := R_NO;
|
||||
TmpRef^.ScaleFactor := 2;
|
||||
hp1 := New(Pai386, op_ref_reg(A_LEA, S_L, TmpRef,
|
||||
TRegister(Pai386(p)^.op2)));
|
||||
Dispose(TmpRef);
|
||||
hp1 := New(Pai386, op_reg_reg(A_ADD, S_L,
|
||||
TRegister(Pai386(p)^.op2),TRegister(Pai386(p)^.op2)));
|
||||
End;
|
||||
hp1^.line := p^.line;
|
||||
InsertLLItem(p, p^.next, hp1);
|
||||
@ -479,6 +492,10 @@ Var LoLab, HiLab, LabDif: Longint;
|
||||
Else Dispose(TmpRef);
|
||||
End;
|
||||
9: Begin
|
||||
{imul 9, reg1, reg2 to
|
||||
lea (reg1,reg1,8), reg2
|
||||
imul 9, reg1 to
|
||||
lea (reg1,reg1,8), reg1}
|
||||
TmpRef^.base := TRegister(Pai386(p)^.op2);
|
||||
TmpRef^.Index := TRegister(Pai386(p)^.op2);
|
||||
TmpRef^.ScaleFactor := 8;
|
||||
@ -492,47 +509,33 @@ Var LoLab, HiLab, LabDif: Longint;
|
||||
p := hp1;
|
||||
End;
|
||||
10: Begin
|
||||
{imul 10, reg1, reg2 to
|
||||
lea (reg1,reg1,4), reg2
|
||||
add reg2, reg2
|
||||
imul 10, reg1 to
|
||||
lea (reg1,reg1,4), reg1
|
||||
add reg1, reg1}
|
||||
If (Opt_Processors <= i486) Then
|
||||
Begin
|
||||
TmpRef^.Index := TRegister(Pai386(p)^.op2);
|
||||
If (Pai386(p)^.op3t = Top_Reg)
|
||||
Then
|
||||
Begin
|
||||
TmpRef^.base := TRegister(twowords(Pai386(p)^.op2).word2);
|
||||
TmpRef^.ScaleFactor := 8;
|
||||
hp1 := New(Pai386, op_ref_reg(A_LEA, S_L, TmpRef,
|
||||
Tregister(twowords(Pai386(p)^.op2).word2)));
|
||||
End
|
||||
Else
|
||||
Begin
|
||||
TmpRef^.base := R_NO;
|
||||
TmpRef^.ScaleFactor := 2;
|
||||
hp1 := New(Pai386, op_ref_reg(A_LEA, S_L, TmpRef,
|
||||
TRegister(Pai386(p)^.op2)));
|
||||
End;
|
||||
hp1 := New(Pai386, op_reg_reg(A_ADD, S_L,
|
||||
Tregister(twowords(Pai386(p)^.op2).word2),
|
||||
Tregister(twowords(Pai386(p)^.op2).word2)))
|
||||
Else hp1 := New(Pai386, op_reg_reg(A_ADD, S_L,
|
||||
TRegister(Pai386(p)^.op2), TRegister(Pai386(p)^.op2)));
|
||||
hp1^.line := p^.line;
|
||||
InsertLLItem(p, p^.next, hp1);
|
||||
New(TmpRef);
|
||||
TmpRef^.segment := R_DEFAULT_SEG;
|
||||
TmpRef^.symbol := nil;
|
||||
TmpRef^.isintvalue := false;
|
||||
TmpRef^.offset := 0;
|
||||
TmpRef^.base := TRegister(Pai386(p)^.op2);
|
||||
TmpRef^.Index := TRegister(Pai386(p)^.op2);
|
||||
TmpRef^.ScaleFactor := 4;
|
||||
If (Pai386(p)^.op3t = Top_Reg)
|
||||
Then
|
||||
Begin
|
||||
TmpRef^.ScaleFactor := 2;
|
||||
TmpRef^.base := R_NO;
|
||||
hp1 := New(Pai386, op_ref_reg(A_LEA, S_L, TmpRef,
|
||||
TRegister(twowords(Pai386(p)^.op2).word2)));
|
||||
End
|
||||
hp1 := New(Pai386, op_ref_reg(A_LEA, S_L, TmpRef,
|
||||
TRegister(twowords(Pai386(p)^.op2).word2)))
|
||||
Else
|
||||
Begin
|
||||
TmpRef^.ScaleFactor := 4;
|
||||
TmpRef^.base := TRegister(Pai386(p)^.op2);
|
||||
hp1 := New(Pai386, op_ref_reg(A_LEA, S_L, TmpRef,
|
||||
TRegister(Pai386(p)^.op2)));
|
||||
End;
|
||||
hp1^.line := p^.line;
|
||||
InsertLLItem(p^.last, p^.next, hp1);
|
||||
Dispose(p, Done);
|
||||
@ -541,6 +544,12 @@ Var LoLab, HiLab, LabDif: Longint;
|
||||
Else Dispose(TmpRef);
|
||||
End;
|
||||
12: Begin
|
||||
{imul 12, reg1, reg2 to
|
||||
lea (,reg1,4), reg2
|
||||
lea (,reg1,8) reg2
|
||||
imul 12, reg1 to
|
||||
lea (reg1,reg1,2), reg1
|
||||
lea (,reg1,4), reg1}
|
||||
If (Opt_Processors <= i486) Then
|
||||
Begin
|
||||
TmpRef^.Index := TRegister(Pai386(p)^.op2);
|
||||
@ -567,17 +576,18 @@ Var LoLab, HiLab, LabDif: Longint;
|
||||
TmpRef^.isintvalue := false;
|
||||
TmpRef^.offset := 0;
|
||||
TmpRef^.Index := TRegister(Pai386(p)^.op2);
|
||||
TmpRef^.ScaleFactor := 4;
|
||||
If (Pai386(p)^.op3t = Top_Reg)
|
||||
Then
|
||||
Begin
|
||||
TmpRef^.base := R_NO;
|
||||
TmpRef^.ScaleFactor := 4;
|
||||
hp1 := New(Pai386, op_ref_reg(A_LEA, S_L, TmpRef,
|
||||
TRegister(twowords(Pai386(p)^.op2).word2)));
|
||||
End
|
||||
Else
|
||||
Begin
|
||||
TmpRef^.base := TRegister(Pai386(p)^.op2);
|
||||
TmpRef^.ScaleFactor := 2;
|
||||
hp1 := New(Pai386, op_ref_reg(A_LEA, S_L, TmpRef,
|
||||
TRegister(Pai386(p)^.op2)));
|
||||
End;
|
||||
@ -1478,7 +1488,10 @@ end;
|
||||
End.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.3 1998-03-29 17:27:58 florian
|
||||
Revision 1.4 1998-04-08 19:12:28 jonas
|
||||
* fixed bug where "imul 12,reg" was replaced with a wrong lea sequence
|
||||
|
||||
Revision 1.3 1998/03/29 17:27:58 florian
|
||||
* aopt386 compiles with TP
|
||||
* correct line number is displayed, if a #0 is in the input
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user