paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 11:59:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* set result of tdecompressionstream.seek by Danny Milosavljevic, resolves #12830

Browse Source 
git-svn-id: trunk@12431 -
This commit is contained in:
florian 2008-12-24 15:32:23 +00:00
parent de5861c689
commit ff205c6e90
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/paszlib/src/zstream.pp
View File

@ -329,6 +329,11 @@ begin
if (origin=sofrombeginning) or if (origin=sofrombeginning) or
((origin=sofromcurrent) and (offset+raw_read>=0)) then ((origin=sofromcurrent) and (offset+raw_read>=0)) then
begin begin
if origin = sofromcurrent then
seek := compressed_read - offset
else
seek := offset;
if origin=sofrombeginning then if origin=sofrombeginning then
dec(offset,raw_read); dec(offset,raw_read);
if offset<0 then if offset<0 then