Parcourir la source

* Correctly initialize total_out

git-svn-id: trunk@49424 -
michael il y a 4 ans
Parent
commit
d23feee55e
1 fichiers modifiés avec 1 ajouts et 0 suppressions
  1. 1 0
      packages/paszlib/src/gzio.pas

+ 1 - 0
packages/paszlib/src/gzio.pas

@@ -165,6 +165,7 @@ begin
   s^.crc := crc32(0, nil, 0);
   s^.msg := '';
   s^.transparent := false;
+  s^.total_out:=0;
 
   s^.path := path; { limit to 255 chars }