mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-06 03:27:19 +01:00
parent
94a398896b
commit
8751e8bb3e
@ -150,6 +150,15 @@ begin
|
||||
z.next_in := p;
|
||||
s.write := q;
|
||||
inflate_codes := inflate_flush(s,z,r);
|
||||
|
||||
//if this is the last block, there are no bytes left in stream and the block end code follows, finish processing this block
|
||||
if s.last then
|
||||
begin
|
||||
t := c^.sub.code.tree;
|
||||
if t^.exop and 32 <> 0 then
|
||||
break;
|
||||
end;
|
||||
|
||||
exit;
|
||||
end;
|
||||
dec(n);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user