mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 19:28:13 +02:00
compatible with GNU ar and others, and fixes linking with sdcc-sdld. git-svn-id: trunk@45277 -
This commit is contained in:
parent
381be050a5
commit
6422e9a803
@ -233,8 +233,12 @@ implementation
|
||||
|
||||
|
||||
procedure tarobjectwriter.closefile;
|
||||
const
|
||||
LF:char=#10;
|
||||
begin
|
||||
ardata.align(2);
|
||||
{ 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');
|
||||
{ write the header }
|
||||
|
Loading…
Reference in New Issue
Block a user