* gdb.base/sigaltstack.exp: Use 'srcfile' in error

	message, not the undefined 'module' variable.
	* gdb.base/siginfo.exp: Likewise.
	* gdb.base/sigstep.exp: Likewise.
	* lib/gdbserver-support.exp (gdb_target_cmd): Quote
	serialport.
	* lib/mi-support.exp (mi_gdb_target_cmd): Likewise.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 57c7041176699224625f731d53483c6d06171034..d918e221d163155623d24533d2b5b6f36ccda4b8 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,13 @@
+2007-04-25  Vladimir Prus  <vladimir@codesourcery.com>
+       
+       * gdb.base/sigaltstack.exp: Use 'srcfile' in error
+       message, not the undefined 'module' variable.
+       * gdb.base/siginfo.exp: Likewise.
+       * gdb.base/sigstep.exp: Likewise.
+       * lib/gdbserver-support.exp (gdb_target_cmd): Quote
+       serialport.
+       * lib/mi-support.exp (mi_gdb_target_cmd): Likewise.
+
 2007-04-25  Corinna Vinschen <vinschen@redhat.com>
 
        * config/sim.exp (gdb_target_sim): Just return with -1 when setting

diff --git a/gdb/testsuite/gdb.base/sigaltstack.exp b/gdb/testsuite/gdb.base/sigaltstack.exp
index 6ce7e4073d15e5d9e6db8c9bef2b2ef273ad29d3..aa4f1b1d608afe595e0747820437a94f23aa842c 100644 (file)
--- a/gdb/testsuite/gdb.base/sigaltstack.exp
+++ b/gdb/testsuite/gdb.base/sigaltstack.exp
@@ -39,7 +39,7 @@ set testfile sigaltstack
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
-    untested "Couldn't compile ${module}.c"
+    untested "Couldn't compile ${srcfile}.c"
     return -1
 }
 

diff --git a/gdb/testsuite/gdb.base/siginfo.exp b/gdb/testsuite/gdb.base/siginfo.exp
index 1ac7574fa5d4b87303c8703df4877591472690e7..fe57ef08bfb6670d918342105088893c3d43e9cc 100644 (file)
--- a/gdb/testsuite/gdb.base/siginfo.exp
+++ b/gdb/testsuite/gdb.base/siginfo.exp
@@ -40,7 +40,7 @@ set testfile siginfo
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
-    untested "Couldn't compile ${module}.c"
+    untested "Couldn't compile ${srcfile}.c"
     return -1
 }
 

diff --git a/gdb/testsuite/gdb.base/sigstep.exp b/gdb/testsuite/gdb.base/sigstep.exp
index f5d5424c440bb298ce4abc00e6c8cb7227235ba4..7fa31785a48ffe955c096619da54900a00bd6d36 100644 (file)
--- a/gdb/testsuite/gdb.base/sigstep.exp
+++ b/gdb/testsuite/gdb.base/sigstep.exp
@@ -38,7 +38,7 @@ set testfile sigstep
 set srcfile ${testfile}.c
 set binfile ${objdir}/${subdir}/${testfile}
 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
-    untested "Couldn't compile ${module}.c"
+    untested "Couldn't compile ${srcfile}.c"
     return -1
 }
 

diff --git a/gdb/testsuite/lib/gdbserver-support.exp b/gdb/testsuite/lib/gdbserver-support.exp
index 3bf974d319b964b0b0fe88847f571b94a3e941b2..b7d7708b1d81ce69fddf367947a4bed84df697b2 100644 (file)
--- a/gdb/testsuite/lib/gdbserver-support.exp
+++ b/gdb/testsuite/lib/gdbserver-support.exp
@@ -45,6 +45,7 @@
 proc gdb_target_cmd { targetname serialport } {
     global gdb_prompt
 
+    set serialport_re [string_to_regexp $serialport]
     for {set i 1} {$i <= 3} {incr i} {
        send_gdb "target $targetname $serialport\n"
        gdb_expect 60 {
@@ -59,7 +60,7 @@ proc gdb_target_cmd { targetname serialport } {
                verbose "Set target to $targetname"
                return 0
            }
-           -re "Remote debugging using .*$serialport.*$gdb_prompt $" {
+           -re "Remote debugging using .*$serialport_re.*$gdb_prompt $" {
                verbose "Set target to $targetname"
                return 0
            }

diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp
index 87e35c04fa3d554c2e5898a2d9680d050572e663..2482016e9527abc9661507842be6d0664fffc7e1 100644 (file)
--- a/gdb/testsuite/lib/mi-support.exp
+++ b/gdb/testsuite/lib/mi-support.exp
@@ -325,6 +325,7 @@ proc mi_gdb_reinitialize_dir { subdir } {
 proc mi_gdb_target_cmd { targetname serialport } {
     global mi_gdb_prompt
 
+    set serialport_re [string_to_regexp $serialport]
     for {set i 1} {$i <= 3} {incr i} {
        send_gdb "47-target-select $targetname $serialport\n"
        gdb_expect 60 {
@@ -339,7 +340,7 @@ proc mi_gdb_target_cmd { targetname serialport } {
                verbose "Set target to $targetname";
                return 0;
            }
-           -re "Remote debugging using .*$serialport.*$mi_gdb_prompt$" {
+           -re "Remote debugging using .*$serialport_re.*$mi_gdb_prompt$" {
                verbose "Set target to $targetname";
                return 0;
            }