diff --git a/packages/bzip2/src/bzip2stream.pp b/packages/bzip2/src/bzip2stream.pp index fa02644632..5fcd0f8f9b 100644 --- a/packages/bzip2/src/bzip2stream.pp +++ b/packages/bzip2/src/bzip2stream.pp @@ -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];