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

+ linker response file is now removed after linking

Browse Source
This commit is contained in:
olle 2005-01-09 16:35:41 +00:00
parent 817beec833
commit 2ded07f47e
1 changed files with 17 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/systems/t_macos.pas
View File

@ -201,7 +201,7 @@ begin
DynLinkStr:='-dynamic-linker='+Info.DynamicLinker;
*)
{ Call linker }
{ Prepare linking }
SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr);
Replace(cmdstr,'$EXE',maybequoted(ScriptFixFileName(current_module.exefilename^)));
Replace(cmdstr,'$OPT',Info.ExtraOptions);
@ -210,18 +210,20 @@ begin
Replace(cmdstr,'$STRIP',StripStr);
Replace(cmdstr,'$DYNLINK',DynLinkStr);
with AsmRes do
begin
WriteResponseFile(false);
success:= true;
WriteResponseFile(false);
if cs_link_on_target in aktglobalswitches then
success:=DoExec('SetFile', ' -c ''MPS '' -t ''TEXT'' ' +
ScriptFixFileName(outputexedir+Info.ResName),true,false);
success:= true;
if cs_link_on_target in aktglobalswitches then
success:=DoExec('SetFile', ' -c ''MPS '' -t ''TEXT'' ' +
ScriptFixFileName(outputexedir+Info.ResName),true,false);
if success then
success:=DoExec('Execute',CmdStr,true,false);
end;
{ Call linker }
if success then
success:=DoExec('Execute',CmdStr,true,false);
{ Remove ReponseFile }
if (success) and not(cs_link_extern in aktglobalswitches) then
RemoveFile(outputexedir+Info.ResName);
MakeExecutable:=success; { otherwise a recursive call to link method }
end;
@ -245,7 +247,10 @@ initialization
end.
{
$Log$
Revision 1.17 2004-12-28 22:00:15 olle
Revision 1.18 2005-01-09 16:35:41 olle
+ linker response file is now removed after linking
Revision 1.17 2004/12/28 22:00:15 olle
+ suppression of link varning of 'qd'
Revision 1.16 2004/12/22 16:32:46 peter