paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 05:59:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@29159 -
This commit is contained in:
pierre 2014-11-26 16:25:06 +00:00
parent 0e70e9bfe2
commit 771f317f94
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/paszlib/src/zipper.pp
View File

@ -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 // $0009 OS/2: extended attributes
//$000a NTFS: (Win32 really) // $000a NTFS: (Win32 really)
//$000d UNIX: uid, gid etc // $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;