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

* fixed web bug #3905

Browse Source
This commit is contained in:
Jonas Maebe 2005-04-22 15:55:08 +00:00
parent d508b01ceb
commit 66755db8b4
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/i386/rropt386.pas
View File

@ -179,7 +179,7 @@ begin
A_SHL: A_SHL:
begin begin
reference_reset(tmpref); reference_reset(tmpref);
tmpref.base := newreg(R_INTREGISTER,reg1,R_SUBWHOLE); tmpref.index := newreg(R_INTREGISTER,reg1,R_SUBWHOLE);
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,tmpref); p.loadref(0,tmpref);
@ -366,7 +366,10 @@ End.
{ {
$Log$ $Log$
Revision 1.31 2005-02-14 17:13:10 peter Revision 1.32 2005-04-22 15:55:08 jonas
* fixed web bug 3905
Revision 1.31 2005/02/14 17:13:10 peter
* truncate log * truncate log
} }