paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 21:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix building of zipper.pp as suggested by Jeppe Johansen

Browse Source 
git-svn-id: trunk@22298 -
This commit is contained in:
florian 2012-09-03 12:34:16 +00:00
parent 6290526821
commit 0214dd68f9
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1738,7 +1738,7 @@ end;
Procedure TUnZipper.ReadZipDirectory; Procedure TUnZipper.ReadZipDirectory;
Var Var
i, i : LongInt;
EndHdrPos, EndHdrPos,
CenDirPos : Int64; CenDirPos : Int64;
NewNode : TFullZipFileEntry; NewNode : TFullZipFileEntry;