浏览代码

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

git-svn-id: trunk@32678 -
nickysn 9 年之前
父节点
当前提交
6f490cc6b3
共有 1 个文件被更改,包括 3 次插入0 次删除
  1. 3 0
      tests/utils/dosbox/dosbox_wrapper.pas

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

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