--- Merging r43859 into '.':

U    packages/libtar/src/libtar.pp
--- Recording mergeinfo for merge of r43859 into '.':
 U   .

# revisions: 43859

git-svn-id: branches/fixes_3_2@43923 -

packages/libtar/src/libtar.pp

@@ -1,3 +1,4 @@
+
 (**
  Copyright (c) 2000-2010 by Stefan Heymann
 
@@ -600,7 +601,7 @@ FUNCTION  TTarArchive.FindNext (VAR DirRec : TTarDirRec) : BOOLEAN;
           // The Stream pointer must point to the first byte of the tar header
 VAR
   Rec          : ARRAY [0..RECORDSIZE-1] OF CHAR;
-  CurFilePos   : INTEGER;
+  CurFilePos   : int64;
   Header       : TTarHeader ABSOLUTE Rec;
   I            : INTEGER;
   HeaderChkSum : WORD;