paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 13:09:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed bug where "shl $1,%reg" was changed to "leal (%reg),%reg2"

Browse Source 
instread of to "leal (,%reg,2),%reg2"
This commit is contained in:
Jonas Maebe 2000-12-05 09:32:47 +00:00
parent 114fa8be37
commit 8e1fa5b1de
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/i386/rropt386.pas
View File

@ -167,7 +167,7 @@ begin
A_SHL: A_SHL:
begin begin
reset_reference(tmpref); reset_reference(tmpref);
tmpref.base := reg1; tmpref.index := reg1;
tmpref.scalefactor := 1 shl p^.oper[0].val; tmpref.scalefactor := 1 shl p^.oper[0].val;
p^.opcode := A_LEA; p^.opcode := A_LEA;
p^.loadref(0,newreference(tmpref)); p^.loadref(0,newreference(tmpref));
@ -334,7 +334,11 @@ End.
{ {
$Log$ $Log$
Revision 1.3 2000-11-29 00:30:51 florian Revision 1.4 2000-12-05 09:32:47 jonas
* fixed bug where "shl $1,%reg" was changed to "leal (%reg),%reg2"
instread of to "leal (,%reg,2),%reg2"
Revision 1.3 2000/11/29 00:30:51 florian
* unused units removed from uses clause * unused units removed from uses clause
* some changes for widestrings * some changes for widestrings