paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 01:49:26 +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

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

@ -55,9 +55,9 @@ Type
// after central directory header
Header_ID : Word;
//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
//... field data should follow...
end;
@ -1526,6 +1526,7 @@ Var
Zip64ECDL : Zip64_End_of_Central_Dir_Locator_type;
Begin
ACount := 0;
MinReqdVersion:=0;
CenDirPos := FOutStream.Position;
FOutStream.Seek(0,soBeginning); { Rewind output file }
HdrPos := FOutStream.Position;