From 66755db8b41811b4e7b2f39377ba29bd4b236880 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 22 Apr 2005 15:55:08 +0000
Subject: [PATCH]   * fixed web bug #3905

---
 compiler/i386/rropt386.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/i386/rropt386.pas b/compiler/i386/rropt386.pas
index 58ec3c03cd..77e4f5d127 100644
--- a/compiler/i386/rropt386.pas
+++ b/compiler/i386/rropt386.pas
@@ -179,7 +179,7 @@ begin
     A_SHL:
       begin
         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;
         p.opcode := A_LEA;
         p.loadref(0,tmpref);
@@ -366,7 +366,10 @@ End.
 
 {
   $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
 
 }