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

* ar patch from Yury

Browse Source 
git-svn-id: trunk@2638 -
This commit is contained in:
florian 2006-02-19 21:33:59 +00:00
parent 3a1cac6f0d
commit 2c10e841b9
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/link.pas
View File

@ -608,7 +608,7 @@ var
end;
var
binstr : string;
binstr : string;
success : boolean;
cmdstr, nextcmd : TCmdStr;
current : TStringListItem;
@ -619,14 +619,15 @@ begin
{ Call AR }
smartpath:=current_module.outputpath^+FixPath(lower(current_module.modulename^)+target_info.smartext,false);
SplitBinCmd(target_ar.arcmd,binstr,cmdstr);
binstr := FindUtil(utilsprefix + binstr);
Replace(cmdstr,'$LIB',maybequoted(current_module.staticlibfilename^));
{ create AR commands }
success := true;
nextcmd := cmdstr;
current := TStringListItem(SmartLinkOFiles.First);
repeat
Replace(nextcmd,'$FILES',GetNextFiles(240 - length(nextcmd), current));
success:=DoExec(FindUtil(binstr),nextcmd,false,true);
Replace(nextcmd,'$FILES',GetNextFiles(240 - length(nextcmd) + 6 - length(binstr) - 1, current));
success:=DoExec(binstr,nextcmd,false,true);
nextcmd := cmdstr;
until (not assigned(current)) or (not success);