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

* The ''Magic'' in the tar-header must be zero-terminated or else it is not

Browse Source 
recognized and the uname and gname are ignored.

git-svn-id: trunk@24345 -
This commit is contained in:
joost 2013-04-27 18:20:48 +00:00
parent 4cdf001a15
commit c17908c8c3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/libtar/src/libtar.pp
View File

@ -536,7 +536,7 @@ BEGIN
ftVolumeHeader : TH.LinkFlag := 'V';
END;
StrLCopy (TH.LinkName, PAnsiChar (DirRec.LinkName), NAMSIZ);
StrLCopy (TH.Magic, PAnsiChar (DirRec.Magic + #32#32#32#32#32#32#32#32), 8);
StrLCopy (TH.Magic, PAnsiChar (DirRec.Magic + #32#32#32#32#32#32#32#32), 7);
StrLCopy (TH.UName, PAnsiChar (DirRec.UserName), TUNMLEN);
StrLCopy (TH.GName, PAnsiChar (DirRec.GroupName), TGNMLEN);
OctalN (DirRec.MajorDevNo, @TH.DevMajor, 8);