Browse Source

Avoid warning about $ after // and about local variable MinReqdVersion not initialized

git-svn-id: trunk@29159 -
pierre 10 years ago
parent
commit
771f317f94
1 changed files with 4 additions and 3 deletions
  1. 4 3
      packages/paszlib/src/zipper.pp

+ 4 - 3
packages/paszlib/src/zipper.pp

@@ -55,9 +55,9 @@ Type
      // after central directory header
      // after central directory header
      Header_ID              :  Word;
      Header_ID              :  Word;
      //e.g. $0001 (ZIP64_HEADER_ID) Zip64 extended information extra field
      //e.g. $0001 (ZIP64_HEADER_ID) Zip64 extended information extra field
-     //$0009 OS/2: extended attributes
-     //$000a NTFS: (Win32 really)
-     //$000d UNIX: uid, gid etc
+     //     $0009 OS/2: extended attributes
+     //     $000a NTFS: (Win32 really)
+     //     $000d UNIX: uid, gid etc
      Data_Size              :  Word; //size of following field data
      Data_Size              :  Word; //size of following field data
      //... field data should follow...
      //... field data should follow...
    end;
    end;
@@ -1526,6 +1526,7 @@ Var
   Zip64ECDL : Zip64_End_of_Central_Dir_Locator_type;
   Zip64ECDL : Zip64_End_of_Central_Dir_Locator_type;
 Begin
 Begin
   ACount := 0;
   ACount := 0;
+  MinReqdVersion:=0;
   CenDirPos := FOutStream.Position;
   CenDirPos := FOutStream.Position;
   FOutStream.Seek(0,soBeginning);             { Rewind output file }
   FOutStream.Seek(0,soBeginning);             { Rewind output file }
   HdrPos := FOutStream.Position;
   HdrPos := FOutStream.Position;