paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 22:29:24 +02: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:
begin
reset_reference(tmpref);
tmpref.base := reg1;
tmpref.index := reg1;
tmpref.scalefactor := 1 shl p^.oper[0].val;
p^.opcode := A_LEA;
p^.loadref(0,newreference(tmpref));
@ -334,7 +334,11 @@ End.
{
$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
* some changes for widestrings