Kaynağa Gözat

* len now longint.

git-svn-id: trunk@12432 -
marco 16 yıl önce
ebeveyn
işleme
2ff48d2576
1 değiştirilmiş dosya ile 1 ekleme ve 1 silme
  1. 1 1
      packages/paszlib/examples/minigzip.pas

+ 1 - 1
packages/paszlib/examples/minigzip.pas

@@ -88,7 +88,7 @@ end;
 
 
 procedure gz_uncompress (infile:gzFile; var outfile:file);
 procedure gz_uncompress (infile:gzFile; var outfile:file);
 var
 var
-  len     : integer;
+  len     : longint;
   written : cardinal;
   written : cardinal;
   ioerr   : integer;
   ioerr   : integer;
   err     : integer;
   err     : integer;