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

* made ar'ing of smartlinked libraries a lot faster

Browse Source 
git-svn-id: trunk@3234 -
This commit is contained in:
Jonas Maebe 2006-04-16 18:42:15 +00:00
parent 7c16869e48
commit adea84b807
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/link.pas
View File

@ -678,6 +678,13 @@ begin
until (not assigned(current)) or (not success); until (not assigned(current)) or (not success);
end; end;
if (target_ar.arfinishcmd <> '') then
begin
SplitBinCmd(target_ar.arfinishcmd,binstr,cmdstr);
Replace(cmdstr,'$LIB',maybequoted(current_module.staticlibfilename^));
success:=DoExec(binstr,cmdstr,false,true);
end;
{ Clean up } { Clean up }
if not(cs_asm_leave in aktglobalswitches) then if not(cs_asm_leave in aktglobalswitches) then
if not(cs_link_extern in aktglobalswitches) then if not(cs_link_extern in aktglobalswitches) then
@ -981,14 +988,16 @@ end;
const const
ar_gnu_ar_info : tarinfo = ar_gnu_ar_info : tarinfo =
( (
id : ar_gnu_ar; id : ar_gnu_ar;
arcmd : 'ar rs $LIB $FILES' arcmd : 'ar qS $LIB $FILES';
arfinishcmd : 'ar s $LIB'
); );
ar_gnu_ar_scripted_info : tarinfo = ar_gnu_ar_scripted_info : tarinfo =
( (
id : ar_gnu_ar_scripted; id : ar_gnu_ar_scripted;
arcmd : 'ar -M < $SCRIPT' arcmd : 'ar -M < $SCRIPT';
arfinishcmd : ''
); );
initialization initialization