[PATCH 1/2] [gdb/testsuite] Fix timeout in gdb.base/gstack.exp

[Tom de Vries <tdevries@suse.de>]

When running test-case gdb.base/gstack.exp on msys2-ucrt64, I run into a timeout:
...
PASS: $exp: spawn inferior
looping^M^M
FAIL: $exp: wait for inferior to loop (timeout)
...

The extra ^M is due to the translation mode of the output stream, which is set
to text by default.

Fix this by accepting the extra ^M, using a new proc multi_line_ttm, where
ttm stands for text translation mode.
---
 gdb/testsuite/gdb.base/gstack.exp |  6 +++++-
 gdb/testsuite/lib/gdb.exp         | 18 ++++++++++++++++++
 2 files changed, 23 insertions(+), 1 deletion(-)

diff --git a/gdb/testsuite/gdb.base/gstack.exp b/gdb/testsuite/gdb.base/gstack.exp
index bc524215d50..8c360198e93 100644
--- a/gdb/testsuite/gdb.base/gstack.exp
+++ b/gdb/testsuite/gdb.base/gstack.exp
@@ -33,8 +33,12 @@ set test_spawn_id $res
 
 # Wait for the spawned program to loop.
 set test "wait for inferior to loop"
+set re \
+    [multi_line_ttm \
+	 "looping" \
+	 ""]
 gdb_expect {
-    -re "looping\r\n" {
+    -re $re {
 	pass $test
     }
     eof {
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 1ebdaf6ba10..c8dd4414b26 100644
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -10772,6 +10772,24 @@ proc multi_line { args } {
     return [join $args "\r\n"]
 }
 
+# As multi_line, but deals with text translation mode.  On windows, if the
+# translation mode of an output stream of an executable is set to text, every
+# '\n' is translated to '\r\n'.  For GDB, we work around this using
+# -binary-output, so we can just use multi_line.  But for other executables,
+# we need to handle this.
+
+proc multi_line_ttm { args } {
+    if { ![ishost "*-*-mingw*"] } {
+	return [multi_line {*}$args]
+    }
+
+    if { [llength $args] == 1 } {
+	set hint "forgot {*} before list argument?"
+	error "multi_line_ttm called with one argument ($hint)"
+    }
+    return [join $args "\r\r\n"]
+}
+
 # Similar to the above, but while multi_line is meant to be used to
 # match GDB output, this one is meant to be used to build strings to
 # send as GDB input.
-- 
2.51.0