From db955f842f18eacde98281e565763eec768a5963 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Tue, 8 May 2012 20:02:48 +0000
Subject: [PATCH]   * fixed (harmless) range check errors

git-svn-id: trunk@21263 -
---
 packages/bzip2/src/bzip2stream.pp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/packages/bzip2/src/bzip2stream.pp b/packages/bzip2/src/bzip2stream.pp
index 5ee912bfc6..19b453935e 100644
--- a/packages/bzip2/src/bzip2stream.pp
+++ b/packages/bzip2/src/bzip2stream.pp
@@ -147,13 +147,13 @@ begin
     begin
       Source.ReadBuffer(data,1);
       get_bits:=(read_data shr (8-n)) or data shr (8-(n-bits_available));
-      read_data:=data shl (n-bits_available);
+      read_data:=byte(data shl (n-bits_available));
       inc(bits_available,8);
     end
   else
     begin
       get_bits:=read_data shr (8-n);
-      read_data:=read_data shl n;
+      read_data:=byte(read_data shl n);
     end;
   dec(bits_available,n);
 end;