mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 15:49:26 +02:00
* handle exceptions when opening the exitcode.txt file as well, so that we write
a nicer message to stdout in case the file does not exist (which happens often when we kill dosbox, due to a timeout) git-svn-id: trunk@32679 -
This commit is contained in:
parent
6f490cc6b3
commit
52402032ae
@ -143,8 +143,8 @@ var
|
||||
F: TextFile;
|
||||
begin
|
||||
AssignFile(F, ADosBoxDir + 'EXITCODE.TXT');
|
||||
Reset(F);
|
||||
try
|
||||
Reset(F);
|
||||
Readln(F, Result);
|
||||
if Result <> 0 then
|
||||
Writeln('ExitCode=',Result);
|
||||
|
Loading…
Reference in New Issue
Block a user