diff options
| author | J.T. Conklin <jtc@acorntoolworks.com> | 1995-02-16 01:10:04 +0000 |
|---|---|---|
| committer | J.T. Conklin <jtc@acorntoolworks.com> | 1995-02-16 01:10:04 +0000 |
| commit | 983bfa6327b85367e0b5d9a2ce47ae5438d7306d (patch) | |
| tree | 0034716b2f0518bafef36d63d03a7d144c6ebed5 /gdb/testsuite | |
| parent | bdbe77580ef0642d30c1da83ccbabd5d1f22213a (diff) | |
| download | fsf-binutils-gdb-983bfa6327b85367e0b5d9a2ce47ae5438d7306d.zip fsf-binutils-gdb-983bfa6327b85367e0b5d9a2ce47ae5438d7306d.tar.gz fsf-binutils-gdb-983bfa6327b85367e0b5d9a2ce47ae5438d7306d.tar.bz2 | |
* config/vx-gdb.exp (spawn_vxgdb): Use default_gdb_start instead
of replicating gdb startup code.
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 9 | ||||
| -rw-r--r-- | gdb/testsuite/config/vx-gdb.exp | 44 |
2 files changed, 11 insertions, 42 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index e02ff56..562e173 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,14 @@ Wed Feb 15 14:23:28 1995 J.T. Conklin <jtc@rtl.cygnus.com> + * config/vx-gdb.exp (spawn_vxgdb): Use default_gdb_start instead + of replicating gdb startup code. + + * config/mt-vxworks (LDFLAGS): Set to -r. + (CFLAGS_FOR_TARGET): Removed. + + * config/vx-gdb.exp: always set prompt; gdb.exp sets it to + (gdb) and gdb for vxworks uses (vxgdb). + * Makefile.in, gdb.{base,c++,chill}/Makefile.in (GDB): If a gdb executable is not in the tree and host != target, use sed and program_transform_name to determine the gdb name used by the diff --git a/gdb/testsuite/config/vx-gdb.exp b/gdb/testsuite/config/vx-gdb.exp index ce7b1a6..001d51e 100644 --- a/gdb/testsuite/config/vx-gdb.exp +++ b/gdb/testsuite/config/vx-gdb.exp @@ -50,7 +50,7 @@ proc gdb_load { arg } { set result 0 if [vxworks_ld $shell_id $arg]<0 then { - perror "Couldn't load $arg" + perror "Couldn't load $arg" return -1 } @@ -61,9 +61,6 @@ proc gdb_load { arg } { # gdb_start -- start gdb running and # proc gdb_start { } { - global GDB - global GDBFLAGS - global spawn_id global prompt global verbose global targetname @@ -107,49 +104,12 @@ proc gdb_start { } { } proc spawn_vxgdb { } { - global GDB - global GDBFLAGS - global spawn_id global prompt global verbose global targetname - # start GDB - if [ llength $GDBFLAGS ] then { - if {[which $GDB] != 0} then { - spawn $GDB $GDBFLAGS - } else { - perror "$GDB does not exist." - exit 1 - } - } else { - if {[which $GDB] != 0} then { - spawn $GDB - } else { - perror "$GDB does not exist." - exit 1 - } - } - expect { - -re ".*$prompt $" { - verbose "$GDB initialized for cross mode to Vxworks\n" - } - -re "$prompt $" { - perror "GDB never initialized." - return -1 - } - timeout { - perror "(timeout) GDB never initialized." - return -1 - } - } + default_gdb_start - # force the height to "unlimited", so no pagers get used - send "set height 0\n" - expect -re ".*$prompt $" {} - # force the width to "unlimited", so no wraparound occurs - send "set width 0\n" - expect -re ".*$prompt $" {} # set the default arguments to "main", so that "run" with no # arguments will work correctly. send "set args main\n" |