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

* 2 bugs fixed in mov peepholeoptimizes

Browse Source
This commit is contained in:
Jonas Maebe 1998-05-24 15:20:59 +00:00
parent b3865ae063
commit 9f0c2e3a26
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/aopt386.pas
View File

@ -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
@ -948,7 +948,7 @@ End;
mov esi, mem2} mov esi, mem2}
Begin Begin
Pai386(hp1)^.opxt := top_ref + top_reg shl 4; Pai386(hp1)^.opxt := top_ref + top_reg shl 4;
Pai386(hp1)^.op1 := Pai386(p)^.op2; Pai386(hp1)^.op1 := Pai386(p)^.op1;
TReference(Pai386(hp1)^.op1^) := TReference(Pai386(p)^.op1^); TReference(Pai386(hp1)^.op1^) := TReference(Pai386(p)^.op1^);
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;
@ -1621,7 +1621,10 @@ end;
End. End.
{ {
$Log$ $Log$
Revision 1.11 1998-05-23 01:21:00 peter Revision 1.12 1998-05-24 15:20:59 jonas
* 2 bugs fixed in mov peepholeoptimizes
Revision 1.11 1998/05/23 01:21:00 peter
+ aktasmmode, aktoptprocessor, aktoutputformat + aktasmmode, aktoptprocessor, aktoutputformat
+ smartlink per module $SMARTLINK-/+ (like MMX) and moved to aktswitches + smartlink per module $SMARTLINK-/+ (like MMX) and moved to aktswitches
+ $LIBNAME to set the library name where the unit will be put in + $LIBNAME to set the library name where the unit will be put in