* fixed shuffle helpers

git-svn-id: trunk@3856 -

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;