From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1726) id 6625F3857C50; Tue, 3 May 2022 09:48:53 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 6625F3857C50 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: quoted-printable From: Andrew Burgess To: gdb-cvs@sourceware.org Subject: [binutils-gdb] gdb/testsuite: fix mi-exec-run.exp with native-extended-gdbserver board X-Act-Checkin: binutils-gdb X-Git-Author: Andrew Burgess X-Git-Refname: refs/heads/master X-Git-Oldrev: a56c63f78ebd158972882b4f8c183d70e9ef1cfd X-Git-Newrev: 11039eff7166cf40d502c88e8b161dd7602120aa Message-Id: <20220503094853.6625F3857C50@sourceware.org> Date: Tue, 3 May 2022 09:48:53 +0000 (GMT) X-BeenThere: gdb-cvs@sourceware.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gdb-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Tue, 03 May 2022 09:48:53 -0000 https://sourceware.org/git/gitweb.cgi?p=3Dbinutils-gdb.git;h=3D11039eff7166= cf40d502c88e8b161dd7602120aa commit 11039eff7166cf40d502c88e8b161dd7602120aa Author: Andrew Burgess Date: Fri Apr 29 18:16:21 2022 +0100 gdb/testsuite: fix mi-exec-run.exp with native-extended-gdbserver board =20 When running with the native-extended-gdbserver board, I currently see one failure in gdb.mi/mi-exec-run.exp: =20 FAIL: gdb.mi/mi-exec-run.exp: inferior-tty=3Dseparate: mi=3Dseparat= e: force-fail=3D0: breakpoint hit reported on console (timeout) =20 In this test the MI interface should be started in a separate tty, which means we should have a CLI tty and an MI tty, however, this is not happening. Instead GDB is just started in MI mode and there is no CLI tty. =20 The test script tries to switch between the CLI an MI terminals and look for some expected output on each, however, as there is no CLI terminal the expected output never arrives, and the test times out. =20 It turns out that this is not a GDB problem, rather, this is an issue with argument passing within the test script. =20 The proc default_mi_gdb_start expects to take a set of flags (strings) as arguments, each of flag is expected to be a separate argument. The default_mi_gdb_start proc collects all its arguments into a list using the special 'args' parameter name, and then iterates over this list to see which flags were passed. =20 In mi_gdb_start, which forwards to default_mi_gdb_start, the arguments are also gathered into the 'args' parameter list, but are then expanded back to be separate arguments using the eval trick, i.e.: =20 proc mi_gdb_start { args } { return [eval default_mi_gdb_start $args] } =20 This ensures that when we arrive in default_mi_gdb_start each flag is a separate argument, rather than appearing as a single list containing all arguments. =20 When using the native-extended-gdbserver board however, the file boards/native-extended-gdbserver.exp is loaded, and this file replaces the default mi_gdb_start with its own version. =20 This new mi_gdb_start also gathers the arguments into an 'args' list, but forgets to expand the arguments out using the eval trick. =20 As a result, when using the native-extended-gdbserver board, by the time we get to default_mi_gdb_start, we end up with the args list containing a single item, which is a list containing all the arguments the user passed. =20 What this means is that if the user passes two arguments, then, in default_mi_gdb_start, instead of seeing two separate arguments, we see a single argument made by concatenating the two arguments together. =20 The only place this is a problem is in the test mi-exec-run.exp, which (as far as I can see) is the only test where we might try to pass both arguments at the same time. Currently we think we passed both arguments to mi_gdb_start, but mi_gdb_start behaves as if no arguments were passed. =20 This commit fixes the problem by making use of the eval trick within the native-extended-gdbserver version of mi_gdb_start. After this, the FAIL listed at the top of this message is resolved. Diff: --- gdb/testsuite/boards/native-extended-gdbserver.exp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gdb/testsuite/boards/native-extended-gdbserver.exp b/gdb/tests= uite/boards/native-extended-gdbserver.exp index b925c364993..67acc6fea7c 100644 --- a/gdb/testsuite/boards/native-extended-gdbserver.exp +++ b/gdb/testsuite/boards/native-extended-gdbserver.exp @@ -58,7 +58,7 @@ proc mi_gdb_start { args } { global gdbserver_reconnect_p =20 # Spawn GDB. - set res [extended_gdbserver_mi_gdb_start $args] + set res [eval extended_gdbserver_mi_gdb_start $args] if { $res } { return $res }