darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2024-11-26 13:30:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

* lib/gdb.exp (gdb_exit): Move the best version of gdb_exit

Browse Source 
to here.
* config/{mips-gdb.exp, nind-gdb.exp, udi-gdb.exp, vx-gdb.exp}:
Remove various versions of gdb_exit.
* config/vx-gdb.exp:  Remove quit_vxgdb, change a caller to call
gdb_exit.
* config/unix-gdb.exp:  gdb_exit remains here, and should override
the generic version, since it's doing a lot of wierd stuff that
the other versions aren't.  FIXME, fold it in, or abandon this
version.
This commit is contained in:
John Gilmore 1993-08-12 02:51:51 +00:00
parent a339de272f
commit 7a7d682b98
5 changed files with 17 additions and 133 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,16 @@
Wed Aug 11 19:47:27 1993 John Gilmore (gnu@rtl.cygnus.com)
* lib/gdb.exp (gdb_exit): Move the best version of gdb_exit
to here.
* config/{mips-gdb.exp, nind-gdb.exp, udi-gdb.exp, vx-gdb.exp}:
Remove various versions of gdb_exit.
* config/vx-gdb.exp: Remove quit_vxgdb, change a caller to call
gdb_exit.
* config/unix-gdb.exp: gdb_exit remains here, and should override
the generic version, since it's doing a lot of wierd stuff that
the other versions aren't. FIXME, fold it in, or abandon this
version.
Wed Aug 11 12:09:32 1993 Jim Kingdon (kingdon@lioth.cygnus.com)
* gdb.t24/demangle.exp: Add tests for PR 3220.

33
gdb/testsuite/config/mips-gdb.exp
View File

@ -106,39 +106,6 @@ proc gdb_load { arg } {
return 0
}
#
# gdb_exit -- exit the GDB
#
proc gdb_exit {} {
global GDB
global GDBFLAGS
global verbose
set timeout 5
send "quit\n"
expect {
eof {
if $verbose>1 then {
send_user "Got EOF from $GDB\n"
}
}
timeout {
if $verbose>1 then {
send_user "Got TIMEOUT from $GDB\n"
}
}
-re "The program is running. Quit anyway.*? (y or n) $" {
send "y\n"
if $verbose>1 then {
send_user "\t\tKilling program being debugged\n"
}
}
}
if $verbose>1 then {
send_user "Quitting $GDB $GDBFLAGS\n"
}
}
#
# gdb_start -- start GDB running.
#

31
gdb/testsuite/config/nind-gdb.exp
View File

@ -52,37 +52,6 @@ proc gdb_load { arg } {
send_user "Not implememted yet\n" ; return -1
}
#
# gdb_exit -- exit the debugger
#
proc gdb_exit {} {
global GDB
global GDBFLAGS
global verbose
send "quit\n"
expect {
eof {
if $verbose>1 then {
send_user "Got EOF from $GDB\n"
}
}
timeout {
if $verbose>1 then {
send_user "Got TIMEOUT from $GDB\n"
}
}
-re "The program is running. Quit anyway.*? (y or n) $"\
{ send "y\n"
if $verbose>1 then {
send_user "\t\tKilling program being debugged\n"
}
}
}
if $verbose>1 then {
send_user "Quitting $GDB $GDBFLAGS\n"
}
}
#
# gdb_start -- start GDB running
#

39
gdb/testsuite/config/udi-gdb.exp
View File

@ -1,6 +1,6 @@
# Test Framework Driver
# Copyright (C) 1988, 1990, 1991, 1992 Free Software Foundation, Inc.
# Test Framework Driver for GDB driving Universal Debug Interface on 29K
# Copyright 1988, 1990, 1991, 1992, 1993 Free Software Foundation, Inc.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
@ -86,39 +86,6 @@ proc gdb_load { arg } {
return 0
}
#
# gdb_exit -- exit the GDB
#
proc gdb_exit {} {
global GDB
global GDBFLAGS
global verbose
set timeout 5
send "quit\n"
expect {
eof {
if $verbose>1 then {
send_user "Got EOF from $GDB\n"
}
}
timeout {
if $verbose>1 then {
send_user "Got TIMEOUT from $GDB\n"
}
}
-re "The program is running. Quit anyway.*? (y or n) $"\
{ send "y\n"
if $verbose>1 then {
send_user "\t\tKilling program being debugged\n"
}
}
}
if $verbose>1 then {
send_user "Quitting $GDB $GDBFLAGS\n"
}
}
#
# gdb_target_udi
# Set gdb to the desired UDI target

34
gdb/testsuite/config/vx-gdb.exp
View File

@ -56,7 +56,7 @@ proc gdb_load { arg } {
global base_dir
global prompt
global GDB
quit_vxgdb
gdb_exit
spawn_vxgdb
set loadfile [file tail $arg]
set loadpath [file dirname $arg]
@ -111,38 +111,6 @@ proc gdb_load { arg } {
set timeout 10
}
#
#
#
proc gdb_exit {} {
global shell_id
# exit_remote_shell $shell_id
catch quit_vxgdb
}
proc quit_vxgdb { } {
global GDB
global GDBFLAGS
global verbose
set timeout 1
send "quit\n"
expect {
eof {
verbose "Got EOF from $GDB" 2
}
timeout {
verbose "Got TIMEOUT from $GDB" 2
}
-re "The program is running. Quit anyway.*(y or n) $" {
send "y\n"
verbose "Killing program being debugged" 1
}
}
verbose "Quitting $GDB $GDBFLAGS" 1
}
#
# gdb_start -- start gdb running and
#