paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 12:26:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some position 64-bit fixes found when I did a quick investigation of #23482

Browse Source 
Don't know if this solves that though.

git-svn-id: trunk@23211 -
This commit is contained in:
marco 2012-12-22 19:59:58 +00:00
parent 3f1111649b
commit 4dbe24d375
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -263,14 +263,14 @@ Type
FAttributes: LongInt;
FDateTime: TDateTime;
FDiskFileName: String;
FHeaderPos: Longint;
FHeaderPos: int64;
FOS: Byte;
FSize: Integer;
FStream: TStream;
FCompressionLevel: TCompressionlevel;
function GetArchiveFileName: String;
Protected
Property HdrPos : Longint Read FHeaderPos Write FheaderPos;
Property HdrPos : int64 Read FHeaderPos Write FheaderPos;
Public
constructor Create(ACollection: TCollection); override;
function IsDirectory: Boolean;
@ -1322,9 +1322,9 @@ End;
Procedure TZipper.BuildZipDirectory;
Var
SavePos : LongInt;
HdrPos : LongInt;
CenDirPos : LongInt;
SavePos : int64;
HdrPos : int64;
CenDirPos : int64;
ACount : Word;
ZFileName : ShortString;