paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:26:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Reverted (rle_len and count) code

Browse Source
This commit is contained in:
daniel 2002-10-10 11:21:46 +00:00
parent abfeb5d34a
commit cc9ec145c4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/extra/bzip2/bzip2.pas
View File

@ -692,7 +692,7 @@ rle_write:
inc(bufptr); inc(bufptr);
dec(count); dec(count);
dec(rle_len); dec(rle_len);
until (rle_len and count)=0; until (rle_len=0) or (count=0);
until count=0; until count=0;
short:=count; short:=count;
end; end;