From 61e0fc0cbe6d91218b6cfe04a78cb194f1dc5eb9 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sun, 28 Oct 2018 21:54:32 +0000
Subject: [PATCH] Be more careful about sending input to MAGDMP.

Using expect's send sometimes fails.  Exact cause unknown, but it looks
like characters get dropped.
---
 build/sims/build.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/build/sims/build.tcl b/build/sims/build.tcl
index 7a5564c8..1581bfc5 100644
--- a/build/sims/build.tcl
+++ b/build/sims/build.tcl
@@ -5,8 +5,8 @@ set emulator_escape "\034"
 proc start_salv {} {
     uplevel #0 {spawn ./tools/sims/BIN/ka10 build/sims/init}
     setup_timeout
-    expect "MAGDMP\r\n"; send "l\033ddt\r"
-    expect "\n"; send "t\033salv\r"
+    respond "MAGDMP\r\n" "l\033ddt\r"
+    respond "\n" "t\033salv\r"
 }
 
 proc start_dskdmp args {