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

+ probability of issues with long pathnames not fitting DOS command line length limits decreased by patch by Giulio Bernardi

Browse Source 
git-svn-id: trunk@10799 -
This commit is contained in:
Tomas Hajny 2008-04-26 05:09:56 +00:00
parent d86bc53b0c
commit 554b45d18e
1 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/systems/t_go32v2.pas
View File

@ -87,7 +87,7 @@ procedure TExternalLinkerGo32v2.SetDefaultInfo;
begin
with Info do
begin
ExeCmd[1]:='ld $SCRIPT $OPT $STRIP -o $EXE $RES';
ExeCmd[1]:='ld $RES';
end;
end;
@ -103,6 +103,16 @@ begin
{ Open link.res file }
LinkRes:=TLinkRes.Create(outputexedir+Info.ResName);
{ Add all options to link.res instead of passing them via command line:
DOS command line is limited to 126 characters! }
LinkRes.Add('--script='+maybequoted(outputexedir+Info.ScriptName));
if info.ExtraOptions<>'' then
LinkRes.Add(Info.ExtraOptions);
(* Potential issues with older ld version??? *)
if (cs_link_strip in current_settings.globalswitches) then
LinkRes.Add('-s');
LinkRes.Add('-o '+maybequoted(current_module.exefilename^));
{ Write staticlibraries }
if not StaticLibFiles.Empty then
@ -238,28 +248,17 @@ var
binstr,
cmdstr : TCmdStr;
success : boolean;
StripStr : string[40];
begin
if not(cs_link_nolink in current_settings.globalswitches) then
Message1(exec_i_linking,current_module.exefilename^);
{ Create some replacements }
StripStr:='';
if (cs_link_strip in current_settings.globalswitches) then
StripStr:='-s';
{ Write used files and libraries and our own ld script }
WriteScript(false);
WriteResponsefile(false);
{ Call linker }
SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr);
Replace(cmdstr,'$EXE',maybequoted(current_module.exefilename^));
Replace(cmdstr,'$OPT',Info.ExtraOptions);
Replace(cmdstr,'$RES','@'+maybequoted(outputexedir+Info.ResName));
(* Potential issues with older ld version??? *)
Replace(cmdstr,'$STRIP',StripStr);
Replace(cmdstr,'$SCRIPT','--script='+maybequoted(outputexedir+Info.ScriptName));
success:=DoExec(FindUtil(utilsprefix+BinStr),cmdstr,true,false);
{ Remove ReponseFile }