paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 06:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* preserve the actual file size (before aligning it to even bytes), when adding files to .a archives

Browse Source 
git-svn-id: trunk@45278 -
This commit is contained in:
nickysn 2020-05-05 23:16:07 +00:00
parent 6422e9a803
commit be26429159
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/owar.pas
View File

@ -235,12 +235,16 @@ implementation
procedure tarobjectwriter.closefile;
const
LF:char=#10;
var
filesize:longint;
begin
{ preserve file size, before aligning on an even boundary }
filesize:=ardata.size-objpos-sizeof(tarhdr);
{ align on an even boundary, by inserting an LF if necessary }
if odd(ardata.size) then
write(LF,1);
{ fix the size in the header }
createarhdr(objfn,ardata.size-objpos-sizeof(tarhdr),'42','42','644');
createarhdr(objfn,filesize,'42','42','644');
{ write the header }
ardata.seek(objpos);
ardata.write(arhdr,sizeof(tarhdr));