[commit] native-stdio-gdbserver.exp: pass "--" to switch

[commit] native-stdio-gdbserver.exp: pass "--" to switch

[Doug Evans]

Hi.

It's odd that some Tcls don't complain, or I would have noticed this sooner.

Tested on amd64-linux and committed.

2013-07-24  Doug Evans  <dje@google.com>

	* boards/native-stdio-gdbserver.exp (${board}_build_remote_cmd): Pass
	"--" to switch.

Index: boards/native-stdio-gdbserver.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/boards/native-stdio-gdbserver.exp,v
retrieving revision 1.8
diff -u -p -r1.8 native-stdio-gdbserver.exp
--- boards/native-stdio-gdbserver.exp	7 Jul 2013 08:52:39 -0000	1.8
+++ boards/native-stdio-gdbserver.exp	24 Jul 2013 21:54:46 -0000
@@ -60,7 +60,7 @@ proc ${board}_build_remote_cmd { cmd } {
 
     for { set i 1 } { $i < $len } { incr i } {
 	set elm [lindex $cmd $i]
-	switch $elm {
+	switch -- $elm {
 	    --multi {
 		set args "$args $elm"
 	    }

Re: [commit] native-stdio-gdbserver.exp: pass "--" to switch

[Andreas Schwab]

Doug Evans <dje@google.com> writes:

> It's odd that some Tcls don't complain, or I would have noticed this sooner.

The last sentence applies:

       --        Marks  the  end  of options.  The argument following this one
                 will be treated as string even if it starts with a  -.   This │
                 is  not  required  when  the matching patterns and bodies are │
                 grouped together in a single argument.

That is a recent (tcl8.5) addition.

Andreas.

-- 
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."