From 41bf3e473c99286b4fd6086e063fa556f12cd158 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 10 Dec 2003 17:28:41 +0000
Subject: [PATCH]   * int64 shl/shr > 63 returns 0

---
 compiler/i386/n386mat.pas | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/compiler/i386/n386mat.pas b/compiler/i386/n386mat.pas
index a10fd965ce..f6241f8570 100644
--- a/compiler/i386/n386mat.pas
+++ b/compiler/i386/n386mat.pas
@@ -230,7 +230,14 @@ implementation
           if (right.nodetype=ordconstn) then
             begin
               { shrd/shl works only for values <=31 !! }
-              if Tordconstnode(right).value>31 then
+              if Tordconstnode(right).value>63 then
+                begin
+                  cg.a_load_const_reg(exprasmlist,OS_32,0,hregisterhigh);
+                  cg.a_load_const_reg(exprasmlist,OS_32,0,hregisterlow);
+                  location.registerlow:=hregisterlow;
+                  location.registerhigh:=hregisterhigh;
+                end
+              else if Tordconstnode(right).value>31 then
                 begin
                   if nodetype=shln then
                     begin
@@ -572,7 +579,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.65  2003-10-10 17:48:14  peter
+  Revision 1.66  2003-12-10 17:28:41  peter
+    * int64 shl/shr > 63 returns 0
+
+  Revision 1.65  2003/10/10 17:48:14  peter
     * old trgobj moved to x86/rgcpu and renamed to trgx86fpu
     * tregisteralloctor renamed to trgobj
     * removed rgobj from a lot of units