From ecfa6c6b626717711a8ae93cc455f69f0048498a Mon Sep 17 00:00:00 2001
From: Ketmar Dark <ketmar@ketmar.no-ip.org>
Date: Fri, 22 Apr 2016 22:18:43 +0300
Subject: [PATCH] fixed warning (and subtle bug) in zlib stream

---
 src/shared/xstreams.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
-- 
2.29.2