paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 10:48:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed (harmless) range check errors

Browse Source 
git-svn-id: trunk@21263 -
This commit is contained in:
Jonas Maebe 2012-05-08 20:02:48 +00:00
parent 641b259aed
commit db955f842f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/bzip2/src/bzip2stream.pp
View File

@ -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;