Sfoglia il codice sorgente

Merged revisions 11459 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/trunk

........
r11459 | florian | 2008-07-25 09:53:36 +0200 (Fri, 25 Jul 2008) | 1 line

* updated to libtar 2.0.8, resolves #11744
........

git-svn-id: branches/fixes_2_2@11932 -

marco 17 anni fa
parent
commit
68532b4aed
1 ha cambiato i file con 5 aggiunte e 2 eliminazioni
  1. 5 2
      packages/fcl-base/src/libtar.pp

+ 5 - 2
packages/fcl-base/src/libtar.pp

@@ -73,9 +73,11 @@ Date        Author Changes
                          (for compressed streams, which don't know their .Size)
 2006-03-13  HeySt  2.0.7 Bugfix in ReadFile (Buffer : POINTER)
 2006-09-20  MvdV   2.0.7.1 Small fixes for FPC.
+2007-05-16  HeySt  2.0.8 Bugfix in TTarWriter.AddFile (Convertfilename in the ELSE branch)
+                         Bug Reported by Chris Rorden
 *)
 
-UNIT LibTar;
+UNIT libtar;
 
 INTERFACE
 
@@ -794,7 +796,8 @@ VAR
 BEGIN
   Date := FileTimeGMT (Filename);
   IF TarFilename = '' THEN
-    TarFilename := ConvertFilename (Filename);
+    TarFilename := ConvertFilename (Filename)
+  ELSE TarFilename := ConvertFilename (TarFilename);
   S := TFileStream.Create (Filename, fmOpenRead OR fmShareDenyWrite);
   TRY
     AddStream (S, TarFilename, Date);