From 0ac926bc7d9af061db88e38f68b152a682b29e0a Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Sat, 4 Aug 2018 01:24:09 +0100
Subject: [PATCH] Wait for EOF after quitting the emulator.

When shutting down the emulator and starting another, it's otherwise
possible for the first read from the new emulator to return an error
(EIO from the pty read in Expect).
---
 build/simh/build.tcl | 1 +
 build/sims/build.tcl | 1 +
 2 files changed, 2 insertions(+)

diff --git a/build/simh/build.tcl b/build/simh/build.tcl
index 7d95a4ee..43df068e 100644
--- a/build/simh/build.tcl
+++ b/build/simh/build.tcl
@@ -37,6 +37,7 @@ proc create_tape {file} {
 
 proc quit_emulator {} {
     respond "sim>" "q\r"
+    expect eof
 }
 
 proc initialize_comsat {} {
diff --git a/build/sims/build.tcl b/build/sims/build.tcl
index fe320a25..2003d1e9 100644
--- a/build/sims/build.tcl
+++ b/build/sims/build.tcl
@@ -43,6 +43,7 @@ proc create_tape {file} {
 
 proc quit_emulator {} {
     respond "sim>" "q\r"
+    expect eof
 }
 
 proc initialize_comsat {} {