paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-28 06:23:48 +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);
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 }
if not(cs_asm_leave in aktglobalswitches) then
if not(cs_link_extern in aktglobalswitches) then
@ -981,14 +988,16 @@ end;
const
ar_gnu_ar_info : tarinfo =
(
id : ar_gnu_ar;
arcmd : 'ar rs $LIB $FILES'
id : ar_gnu_ar;
arcmd : 'ar qS $LIB $FILES';
arfinishcmd : 'ar s $LIB'
);
ar_gnu_ar_scripted_info : tarinfo =
(
id : ar_gnu_ar_scripted;
arcmd : 'ar -M < $SCRIPT'
arcmd : 'ar -M < $SCRIPT';
arfinishcmd : ''
);
initialization