paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 04:52:17 +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; DynLinkStr:='-dynamic-linker='+Info.DynamicLinker;
*) *)
{ Call linker } { Prepare linking }
SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr); SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr);
Replace(cmdstr,'$EXE',maybequoted(ScriptFixFileName(current_module.exefilename^))); Replace(cmdstr,'$EXE',maybequoted(ScriptFixFileName(current_module.exefilename^)));
Replace(cmdstr,'$OPT',Info.ExtraOptions); Replace(cmdstr,'$OPT',Info.ExtraOptions);
@ -210,18 +210,20 @@ begin
Replace(cmdstr,'$STRIP',StripStr); Replace(cmdstr,'$STRIP',StripStr);
Replace(cmdstr,'$DYNLINK',DynLinkStr); Replace(cmdstr,'$DYNLINK',DynLinkStr);
with AsmRes do WriteResponseFile(false);
begin
WriteResponseFile(false);
success:= true;
if cs_link_on_target in aktglobalswitches then success:= true;
success:=DoExec('SetFile', ' -c ''MPS '' -t ''TEXT'' ' + if cs_link_on_target in aktglobalswitches then
ScriptFixFileName(outputexedir+Info.ResName),true,false); success:=DoExec('SetFile', ' -c ''MPS '' -t ''TEXT'' ' +
ScriptFixFileName(outputexedir+Info.ResName),true,false);
if success then { Call linker }
success:=DoExec('Execute',CmdStr,true,false); if success then
end; 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 } MakeExecutable:=success; { otherwise a recursive call to link method }
end; end;
@ -245,7 +247,10 @@ initialization
end. end.
{ {
$Log$ $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' + suppression of link varning of 'qd'
Revision 1.16 2004/12/22 16:32:46 peter Revision 1.16 2004/12/22 16:32:46 peter