paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 21:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

* handle exceptions when opening the exitcode.txt file as well, so that we write

Browse Source 
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:
nickysn 2015-12-18 01:43:24 +00:00
parent 6f490cc6b3
commit 52402032ae
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/utils/dosbox/dosbox_wrapper.pas
View File

@ -143,8 +143,8 @@ var
F: TextFile; F: TextFile;
begin begin
AssignFile(F, ADosBoxDir + 'EXITCODE.TXT'); AssignFile(F, ADosBoxDir + 'EXITCODE.TXT');
Reset(F);
try try
Reset(F);
Readln(F, Result); Readln(F, Result);
if Result <> 0 then if Result <> 0 then
Writeln('ExitCode=',Result); Writeln('ExitCode=',Result);