From 8be10335111177add34e709a84c1c9640ac0b5b5 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 31 Dec 2003 18:12:23 +0000
Subject: [PATCH]   * (64 bit int) shl/shr (value > 63) := 0

---
 compiler/powerpc/nppcmat.pas | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/compiler/powerpc/nppcmat.pas b/compiler/powerpc/nppcmat.pas
index d3b2247c4a..80ea6e0817 100644
--- a/compiler/powerpc/nppcmat.pas
+++ b/compiler/powerpc/nppcmat.pas
@@ -196,7 +196,12 @@ implementation
              if (right.nodetype = ordconstn) then
                begin
                  shiftval := tordconstnode(right).value;
-                 if tordconstnode(right).value > 31 then
+                 if shiftval > 63 then
+                   begin
+                     cg.a_load_const_reg(exprasmlist,OS_32,0,location.registerlow);
+                     cg.a_load_const_reg(exprasmlist,OS_32,0,location.registerlow);
+                   end
+                 else if shiftval > 31 then
                    begin
                      if nodetype = shln then
                        begin
@@ -508,7 +513,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.36  2003-12-28 23:49:30  jonas
+  Revision 1.37  2003-12-31 18:12:23  jonas
+    * (64 bit int) shl/shr (value > 63) := 0
+
+  Revision 1.36  2003/12/28 23:49:30  jonas
     * fixed tnotnode for < 32 bit quantities
 
   Revision 1.35  2003/10/17 01:22:08  florian