paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 21:11:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid range check error when compiled -Criot option

Browse Source 
git-svn-id: trunk@42579 -
This commit is contained in:
pierre 2019-08-05 06:47:51 +00:00
parent 16752a8fba
commit d6c5a1799c
1 changed files with 6 additions and 1 deletions

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

@ -347,7 +347,12 @@ var zn:byte;
begin
if group_pos=0 then
begin
inc(group_no);
{ Code changed to avoid range/overflow check errors
where compiled with -Cr or -Co options. }
if group_no=high(group_no) then
group_no:=0
else
inc(group_no);
group_pos:=group_size;
gsel:=selector[group_no];
gminlen:=minlens[gsel];