paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 14:35:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* wlib: Explicitly specify the smallest possible record align to reduce the size of .a files.

Browse Source 
git-svn-id: trunk@46462 -
This commit is contained in:
yury 2020-08-16 17:08:00 +00:00
parent f72f021da4
commit 324deca817
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/link.pas
View File

@ -882,7 +882,7 @@ Implementation
if (target_ar.id in [ar_gnu_ar_scripted,ar_sdcc_sdar_scripted]) then if (target_ar.id in [ar_gnu_ar_scripted,ar_sdcc_sdar_scripted]) then
writeln(script, 'CREATE ' + current_module.staticlibfilename) writeln(script, 'CREATE ' + current_module.staticlibfilename)
else { wlib case } else { wlib case }
writeln(script,'-q -fo -c -b '+ writeln(script,'-q -p=16 -fo -c -b '+
maybequoted(current_module.staticlibfilename)); maybequoted(current_module.staticlibfilename));
current := TCmdStrListItem(SmartLinkOFiles.First); current := TCmdStrListItem(SmartLinkOFiles.First);
while current <> nil do while current <> nil do
@ -1743,8 +1743,8 @@ Implementation
ar_watcom_wlib_omf_info : tarinfo = ar_watcom_wlib_omf_info : tarinfo =
( id : ar_watcom_wlib_omf; ( id : ar_watcom_wlib_omf;
addfilecmd : '+'; addfilecmd : '+';
arfirstcmd : 'wlib -q -fo -c -b -n -o=$OUTPUTLIB $LIB $FILES'; arfirstcmd : 'wlib -q -p=16 -fo -c -b -n -o=$OUTPUTLIB $LIB $FILES';
arcmd : 'wlib -q -fo -c -b -o=$OUTPUTLIB $LIB $FILES'; arcmd : 'wlib -q -p=16 -fo -c -b -o=$OUTPUTLIB $LIB $FILES';
arfinishcmd : '' arfinishcmd : ''
); );

4
compiler/systems.pas
View File

@ -100,8 +100,8 @@ interface
tarinfo = record tarinfo = record
id : tar; id : tar;
addfilecmd : string[10]; addfilecmd : string[10];
arfirstcmd : string[50]; arfirstcmd : string[60];
arcmd : string[50]; arcmd : string[60];
arfinishcmd : string[11]; arfinishcmd : string[11];
end; end;