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

* First check if call to assembler is succesfull, then check it's exit code.

Browse Source 
This is more logical than first checking the exit code. For some mysterious
reason this did not give problems on DOS & Linux. On OS/2 it did.
This commit is contained in:
daniel 1998-07-08 14:58:34 +00:00
parent 5eb055dc70
commit aaf3d30f81
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/assemble.pas
View File

@ -162,17 +162,17 @@ begin
swapvectors;
exec(command,para);
swapvectors;
if (dosexitcode<>0) then
if (doserror<>0) then
begin
Message(exec_w_error_while_assembling);
callassembler:=false;
Message(exec_w_cant_call_assembler);
externasm:=true;
exit;
end
else
if (doserror<>0) then
if (dosexitcode<>0) then
begin
Message(exec_w_cant_call_assembler);
externasm:=true;
Message(exec_w_error_while_assembling);
callassembler:=false;
end;
end;
if externasm then
@ -450,7 +450,12 @@ end;
end.
{
$Log$
Revision 1.11 1998-06-08 22:59:43 peter
Revision 1.12 1998-07-08 14:58:34 daniel
* First check if call to assembler is succesfull, then check it's exit code.
This is more logical than first checking the exit code. For some mysterious
reason this did not give problems on DOS & Linux. On OS/2 it did.
Revision 1.11 1998/06/08 22:59:43 peter
* smartlinking works for win32
* some defines to exclude some compiler parts