From 6647357e8514eb41f181b3b9c1c6b0d61ed5e698 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Mon, 7 Nov 2016 08:16:00 +0100
Subject: [PATCH] Set an ample timeout limit in build script; fail if
 triggered.

---
 build/build.tcl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/build/build.tcl b/build/build.tcl
index fa8b840a..1fff91f2 100644
--- a/build/build.tcl
+++ b/build/build.tcl
@@ -41,6 +41,9 @@ proc shutdown {} {
     respond "NOW IN DDT" "\005"
 }
 
+set timeout 100
+expect_before timeout abort
+
 spawn pdp10 build/simh/init
 
 respond "sim>" "b tu1\r"