paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 09:27:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

Add passing of -k option to linker for msdos and go32v2 targets

Browse Source 
git-svn-id: trunk@24981 -
This commit is contained in:
pierre 2013-06-26 22:27:16 +00:00
parent b78d6108fd
commit 277ae481b8
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/systems/t_go32v2.pas
View File

@ -189,7 +189,7 @@ procedure TExternalLinkerGo32v2.SetDefaultInfo;
begin begin
with Info do with Info do
begin begin
ExeCmd[1]:='ld $RES'; ExeCmd[1]:='ld $OPT $RES';
end; end;
end; end;
@ -389,6 +389,7 @@ begin
{ Call linker } { Call linker }
SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr); SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr);
Replace(cmdstr,'$RES','@'+maybequoted(outputexedir+Info.ResName)); Replace(cmdstr,'$RES','@'+maybequoted(outputexedir+Info.ResName));
Replace(cmdstr,'$OPT',Info.ExtraOptions);
success:=DoExec(FindUtil(utilsprefix+BinStr),cmdstr,true,false); success:=DoExec(FindUtil(utilsprefix+BinStr),cmdstr,true,false);
{ Remove ReponseFile } { Remove ReponseFile }

9
compiler/systems/t_msdos.pas
View File

@ -87,7 +87,7 @@ procedure TExternalLinkerMsDosTLink.SetDefaultInfo;
begin begin
with Info do with Info do
begin begin
ExeCmd[1]:='tlink $RES'; ExeCmd[1]:='tlink $OPT $RES';
end; end;
end; end;
@ -138,6 +138,7 @@ begin
{ Call linker } { Call linker }
SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr); SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr);
Replace(cmdstr,'$RES','@'+maybequoted(outputexedir+Info.ResName)); Replace(cmdstr,'$RES','@'+maybequoted(outputexedir+Info.ResName));
Replace(cmdstr,'$OPT',Info.ExtraOptions);
success:=DoExec(FindUtil(utilsprefix+BinStr),cmdstr,true,false); success:=DoExec(FindUtil(utilsprefix+BinStr),cmdstr,true,false);
{ Remove ReponseFile } { Remove ReponseFile }
@ -196,7 +197,7 @@ procedure TExternalLinkerMsDosALink.SetDefaultInfo;
begin begin
with Info do with Info do
begin begin
ExeCmd[1]:='alink $RES'; ExeCmd[1]:='alink $OPT $RES';
end; end;
end; end;
@ -215,6 +216,7 @@ begin
{ Call linker } { Call linker }
SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr); SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr);
Replace(cmdstr,'$RES','@'+maybequoted(outputexedir+Info.ResName)); Replace(cmdstr,'$RES','@'+maybequoted(outputexedir+Info.ResName));
Replace(cmdstr,'$OPT',Info.ExtraOptions);
success:=DoExec(FindUtil(utilsprefix+BinStr),cmdstr,true,false); success:=DoExec(FindUtil(utilsprefix+BinStr),cmdstr,true,false);
{ Remove ReponseFile } { Remove ReponseFile }
@ -294,7 +296,7 @@ procedure TExternalLinkerMsDosWLink.SetDefaultInfo;
begin begin
with Info do with Info do
begin begin
ExeCmd[1]:='wlink $RES'; ExeCmd[1]:='wlink $OPT $RES';
end; end;
end; end;
@ -313,6 +315,7 @@ begin
{ Call linker } { Call linker }
SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr); SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr);
Replace(cmdstr,'$RES','@'+maybequoted(outputexedir+Info.ResName)); Replace(cmdstr,'$RES','@'+maybequoted(outputexedir+Info.ResName));
Replace(cmdstr,'$OPT',Info.ExtraOptions);
success:=DoExec(FindUtil(utilsprefix+BinStr),cmdstr,true,false); success:=DoExec(FindUtil(utilsprefix+BinStr),cmdstr,true,false);
{ Remove ReponseFile } { Remove ReponseFile }