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

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

@ -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;