From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Fri, 22 Apr 2016 19:18:43 +0000 (+0300)
Subject: fixed warning (and subtle bug) in zlib stream
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=ecfa6c6b626717711a8ae93cc455f69f0048498a;p=d2df-sdl.git

fixed warning (and subtle bug) in zlib stream
---

diff --git a/src/shared/xstreams.pas b/src/shared/xstreams.pas
index 270d292..c34f2e8 100644
--- a/src/shared/xstreams.pas
+++ b/src/shared/xstreams.pas
@@ -362,7 +362,7 @@ begin
     //writeln('  reading ', rd, ' bytes...');
     rr := readBuf(buf, rd);
     //writeln('  got ', rr, ' bytes; fPos=', fPos, '; fSkipToPos=', fSkipToPos);
-    if rd <= 0 then raise XStreamError.Create('seek error');
+    if rr <= 0 then raise XStreamError.Create('seek error');
   end;
   //writeln('  pos: fPos=', fPos, '; fSkipToPos=', fSkipToPos);
   fSkipToPos := -1;