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

+ remove the segment prefixes from LEA instructions

Browse Source
This commit is contained in:
Jonas Maebe 1999-05-05 16:19:04 +00:00
parent ab37fa22c8
commit ddc47d6753
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/popt386.pas
View File

@ -561,6 +561,9 @@ Begin
End;
A_LEA:
Begin
{removes seg register prefixes from LEA operations, as they
don't do anything}
Pai386(p)^.oper[0].ref^.Segment := R_DEFAULT_SEG;
{changes "lea (%reg1), %reg2" into "mov %reg1, %reg2"}
If (Pai386(p)^.oper[0].ref^.Base In [R_EAX..R_EDI]) And
(Pai386(p)^.oper[0].ref^.Index = R_NO) And
@ -1511,7 +1514,10 @@ End.
{
$Log$
Revision 1.51 1999-05-05 10:05:54 florian
Revision 1.52 1999-05-05 16:19:04 jonas
+ remove the segment prefixes from LEA instructions
Revision 1.51 1999/05/05 10:05:54 florian
* a delphi compiled compiler recompiles ppc
Revision 1.50 1999/05/02 21:33:55 florian