Re: [fpc-pascal] destructor TDecompressionStream.Destroy question

2007-09-21 Thread David Mears
Michael Van Canneyt wrote: > On Thu, 20 Sep 2007, David Mears wrote: > > >> from fpc/packages/fcl-base/src/inc/zstream.pp >> >> I'm not really sure why this is in the destructor for tdecompressionstream. >> >> if FZRec.avail_in <> 0 then >> Source.Seek(-FZRec.i, soFromCurrent); >> > >

Re: [fpc-pascal] destructor TDecompressionStream.Destroy question

2007-09-20 Thread Michael Van Canneyt
On Thu, 20 Sep 2007, David Mears wrote: > from fpc/packages/fcl-base/src/inc/zstream.pp > > I'm not really sure why this is in the destructor for tdecompressionstream. > > if FZRec.avail_in <> 0 then > Source.Seek(-FZRec.avail_in, soFromCurrent); To reposition the source stream on the l

[fpc-pascal] destructor TDecompressionStream.Destroy question

2007-09-20 Thread David Mears
from fpc/packages/fcl-base/src/inc/zstream.pp I'm not really sure why this is in the destructor for tdecompressionstream. if FZRec.avail_in <> 0 then Source.Seek(-FZRec.avail_in, soFromCurrent); my tdecompressionstream is fed by a tideadecryptstream - when tdecompressionstream is freed it