paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-29 09:22:35 +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; swapvectors;
exec(command,para); exec(command,para);
swapvectors; swapvectors;
if (dosexitcode<>0) then if (doserror<>0) then
begin begin
Message(exec_w_error_while_assembling); Message(exec_w_cant_call_assembler);
callassembler:=false; externasm:=true;
exit; exit;
end end
else else
if (doserror<>0) then if (dosexitcode<>0) then
begin begin
Message(exec_w_cant_call_assembler); Message(exec_w_error_while_assembling);
externasm:=true; callassembler:=false;
end; end;
end; end;
if externasm then if externasm then
@ -450,7 +450,12 @@ end;
end. end.
{ {
$Log$ $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 * smartlinking works for win32
* some defines to exclude some compiler parts * some defines to exclude some compiler parts