Browse Source

* write a message to stdout if dosbox is killed due to a timeout

git-svn-id: trunk@32678 -
nickysn 9 years ago
parent
commit
6f490cc6b3
1 changed files with 3 additions and 0 deletions
  1. 3 0
      tests/utils/dosbox/dosbox_wrapper.pas

+ 3 - 0
tests/utils/dosbox/dosbox_wrapper.pas

@@ -177,7 +177,10 @@ begin
       Sleep(100);
       Sleep(100);
     until not Process.Running;
     until not Process.Running;
     if Process.Running then
     if Process.Running then
+    begin
+      Writeln('Timeout exceeded. Killing dosbox...');
       Process.Terminate(254);
       Process.Terminate(254);
+    end;
   finally
   finally
     Process.Free;
     Process.Free;
     EchoOutput;
     EchoOutput;