* config/vx-gdb.exp, lib/gdb.exp: Regexp cleanups (\[(\] -> \\(, etc.).

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 2641026509fe202d6aaac50483da406664bb46b7..b9d907d0fccc042c828ce991725034712ce3b140 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,5 +1,7 @@
 Fri Mar 24 06:11:05 1995  Jim Kingdon  (kingdon@lioth.cygnus.com)
 
+       * config/vx-gdb.exp, lib/gdb.exp: Regexp cleanups (\[(\] -> \\(, etc.).
+
        * gdb.base/a1-selftest.exp: Don't check for # followed by a digit
        somewhere between `read' and `main.c'.  I'm pretty sure the
        pattern ".*#\[0-9\].*" was slowing down pattern matching a lot,

diff --git a/gdb/testsuite/config/vx-gdb.exp b/gdb/testsuite/config/vx-gdb.exp
index 5ebcefa18e1782a0a05a62e4633c70dc069c6de9..c5225445937c82975576e6acb5738cdf4951f2e1 100644 (file)
--- a/gdb/testsuite/config/vx-gdb.exp
+++ b/gdb/testsuite/config/vx-gdb.exp
@@ -27,7 +27,7 @@ load_lib gdb.exp
 load_lib vxworks.exp
 
 set shell_prompt "->"
-set prompt "\[(\]vxgdb\[)\]"
+set prompt "\\(vxgdb\\)"
 
 #
 # gdb_version -- extract and print the version number of gcc

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index 2ea53e7ec4b5548da60fa110cbb710a43d3380f4..e91db0eeaa3d1d41dd248207e3efd010510bd367 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -37,10 +37,11 @@ if ![info exists GDBFLAGS] then {
     set GDBFLAGS "-nx"
 }
 
-# set the prompt if it doesn't exist
+# The variable prompt is a regexp which matches the gdb prompt.  Set it if it
+# is not already set.
 global prompt
 if ![info exists prompt] then {
-    set prompt "\[(\]gdb\[)\]"
+    set prompt "\\(gdb\\)"
 }
 
 global usestubs
@@ -62,7 +63,7 @@ proc default_gdb_version {} {
     global GDBFLAGS
     if {[which $GDB] != 0} then {
        set tmp [exec echo "q" | $GDB -nw $GDBFLAGS]
-       regexp " \[0-9\.\]+" $tmp version
+       regexp " \[0-9.\]+" $tmp version
        clone_output "[which $GDB] version$version -nw $GDBFLAGS \n"
     } else {
        warning "$GDB does not exist"
@@ -308,7 +309,7 @@ proc gdb_test { args } {
            send "\n"
            perror "Window too small."
        }
-       -re "\[(\]+y or n\[)\]+ " {
+       -re "\\(y or n\\) " {
            send "n\n"
            perror "Got interactive prompt."
        }