diff options
| author | Jim Kingdon <jkingdon@engr.sgi.com> | 1995-03-24 20:05:28 +0000 |
|---|---|---|
| committer | Jim Kingdon <jkingdon@engr.sgi.com> | 1995-03-24 20:05:28 +0000 |
| commit | 8c7ab5da737e13033b77ca35bf8fdf2d6da48c12 (patch) | |
| tree | cb118baa0b6c77d47a98d10bf3173fca36247231 /gdb/testsuite/lib | |
| parent | fb3f84c77393f3d73f22ebd1eb4007a90ef50fd7 (diff) | |
| download | gdb-8c7ab5da737e13033b77ca35bf8fdf2d6da48c12.zip gdb-8c7ab5da737e13033b77ca35bf8fdf2d6da48c12.tar.gz gdb-8c7ab5da737e13033b77ca35bf8fdf2d6da48c12.tar.bz2 | |
* config/vx-gdb.exp, lib/gdb.exp: Regexp cleanups (\[(\] -> \\(, etc.).
Diffstat (limited to 'gdb/testsuite/lib')
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 2ea53e7..e91db0e 100644 --- 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." } |