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

* fixed linker exit code detection in case of useshell

Browse Source 
git-svn-id: trunk@5138 -
This commit is contained in:
Jonas Maebe 2006-11-01 00:19:20 +00:00
parent aab785d0fc
commit 0909d46626
1 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/link.pas
View File

@ -614,22 +614,23 @@ Implementation
begin
FlushOutput;
if useshell then
exitcode := shell(maybequoted(command)+' '+para)
exitcode:=shell(maybequoted(command)+' '+para)
else
try
if ExecuteProcess(command,para) <> 0
then begin
try
exitcode:=ExecuteProcess(command,para);
except on E:EOSError do
begin
Message(exec_e_cant_call_linker);
current_settings.globalswitches:=current_settings.globalswitches+[cs_link_nolink];
DoExec:=false;
end;
end;
if (exitcode<>0) then
begin
Message(exec_e_error_while_linking);
current_settings.globalswitches:=current_settings.globalswitches+[cs_link_nolink];
DoExec:=false;
end;
except on E:EOSError do
begin
Message(exec_e_cant_call_linker);
current_settings.globalswitches:=current_settings.globalswitches+[cs_link_nolink];
DoExec:=false;
end;
end
end;
{ Update asmres when externmode is set }
if cs_link_nolink in current_settings.globalswitches then