paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 22:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: checking compiler exit code and giving warning if not 0,1 from Boguslaw Brandys

Browse Source 
git-svn-id: trunk@10586 -
This commit is contained in:
mattias 2007-02-05 11:36:15 +00:00
parent 6a32d1e029
commit 17a650d35b
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/compiler.pp
View File

@ -169,6 +169,11 @@ begin
end; end;
finally finally
TheProcess.WaitOnExit; TheProcess.WaitOnExit;
if not (TheProcess.ExitStatus in [0,1]) then begin
WriteError(Format(listCompilerInternalError,[TheProcess.ExitStatus]));
Result:=mrCancel;
exit;
end;
end; end;
except except
on e: EOutputFilterError do begin on e: EOutputFilterError do begin

1
ide/lazarusidestrconsts.pas
View File

@ -1899,6 +1899,7 @@ resourcestring
// compiler // compiler
lisCompilerErrorInvalidCompiler = 'Error: invalid compiler: %s'; lisCompilerErrorInvalidCompiler = 'Error: invalid compiler: %s';
listCompilerInternalError = 'Internal compiler error! (%d)';
lisCompilerHintYouCanSetTheCompilerPath = 'Hint: you can set the compiler ' lisCompilerHintYouCanSetTheCompilerPath = 'Hint: you can set the compiler '
+'path in Environment->Environment options->Files->Compiler Path'; +'path in Environment->Environment options->Files->Compiler Path';
lisCompilerNOTELoadingOldCodetoolsOptionsFile = 'NOTE: loading old ' lisCompilerNOTELoadingOldCodetoolsOptionsFile = 'NOTE: loading old '