From 559771ec58504f665f0909537df6f26cdaea76a7 Mon Sep 17 00:00:00 2001
From: Adam Sampson <ats@offog.org>
Date: Sat, 4 Aug 2018 01:24:09 +0100
Subject: [PATCH] WIP: 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).

WIP because I've only done this for simh...
---
 build/simh/build.tcl | 1 +
 1 file changed, 1 insertion(+)

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 {} {