From bbeb8c14b19df8e92ff61a4b093555986b61488d Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 13 Jun 2006 07:53:39 +0000
Subject: [PATCH]   * fixed shuffle helpers

git-svn-id: trunk@3856 -
---
 compiler/cgbase.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/cgbase.pas b/compiler/cgbase.pas
index f2a0a2bdff..c833bcaf77 100644
--- a/compiler/cgbase.pas
+++ b/compiler/cgbase.pas
@@ -635,7 +635,7 @@ implementation
           begin
             for i:=1 to shuffle^.len do
               begin
-                if (shuffle^.shuffles[i] and $f)<>((shuffle^.shuffles[i] and $f0) shr 8) then
+                if (shuffle^.shuffles[i] and $f)<>((shuffle^.shuffles[i] and $f0) shr 4) then
                   exit;
               end;
             realshuffle:=false;
@@ -656,7 +656,7 @@ implementation
         if shuffle.len=0 then
           exit;
         for i:=1 to shuffle.len do
-          shuffle.shuffles[i]:=(shuffle.shuffles[i] and $f0) or ((shuffle.shuffles[i] and $f0) shr 8);
+          shuffle.shuffles[i]:=(shuffle.shuffles[i] and $f0) or ((shuffle.shuffles[i] and $f0) shr 4);
       end;