This is the mail archive of the
gdb-patches@sources.redhat.com
mailing list for the GDB project.
[RFA]: fixes to testsuite/config/sid.exp
- To: gdb-patches at sources dot redhat dot com
- Subject: [RFA]: fixes to testsuite/config/sid.exp
- From: Michael Snyder <msnyder at cygnus dot com>
- Date: Thu, 03 May 2001 15:20:41 -0700
- Cc: fnasser at cygnus dot com, fche at cygnus dot com, mrg at redhat dot com
- Newsgroups: cygnus.patches.gdb
- Organization: Red Hat
These come from trusted sources within the sid group.
2001-01-26 Felix Lee <flee@redhat.com>
* sid.exp (sid_exit): Pass host, not target, to remote_close.
2001-01-25 matthew green <mrg@redhat.com>
* config/sid.exp (sid_start): Call `remote_push_conn' after firing
up sid.
(sid_exit): Call `remote_pop_conn' after GDB is gone.
2001-01-25 matthew green <mrg@redhat.com>
* config/sid.exp (sid_start): Use `remote_spawn' instead of `spawn.'
Deprecate $sid_spawn_id.
(sid_exit): Remove code necessary only for `spawn.'
2001-01-25 matthew green <mrg@redhat.com>
* config/sid.exp (sid_start): Handle sim,protocol of `sid.'
Index: sid.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/config/sid.exp,v
retrieving revision 1.2
diff -c -3 -p -r1.2 sid.exp
*** sid.exp 2001/03/06 08:21:48 1.2
--- sid.exp 2001/05/03 22:18:53
***************
*** 18,24 ****
load_lib gdb.exp
proc sid_start {} {
- global sid_spawn_id
global verbose
set port [lindex [split [target_info netport] ":"] 1]
--- 18,23 ----
*************** proc sid_start {} {
*** 50,56 ****
set env(MKSID) "../../sid/main/static/mksid"
if {! [file exists $env(SID)]} then { error "Cannot find sid in build tree" }
}
! set spawncmd "../../sid/bsp/[target_info sim] $sidverbose $sidendian --persistent --gdb=$port [target_info sim,options]"
set post_spawn {
global env
unset env(SID_LIBRARY_PATH)
--- 49,59 ----
set env(MKSID) "../../sid/main/static/mksid"
if {! [file exists $env(SID)]} then { error "Cannot find sid in build tree" }
}
! if { [board_info target sim,protocol] == "sid" } {
! set spawncmd "[target_info sim] [target_info sim,options] -e \"set gdb-socket sockaddr-local 0.0.0.0:$port\""
! } else {
! set spawncmd "../../sid/bsp/[target_info sim] $sidverbose $sidendian --gdb=$port [target_info sim,options]"
! }
set post_spawn {
global env
unset env(SID_LIBRARY_PATH)
*************** proc sid_start {} {
*** 58,70 ****
unset env(SID)
}
} else {
set pre_spawn {}
! set spawncmd "[target_info sim] $sidverbose $sidendian --persistent --gdb=$port [target_info sim,options]"
set post_spawn {}
}
eval $pre_spawn
! if {[catch "spawn $spawncmd" msg]} {
perror $msg
exit 1
}
--- 61,81 ----
unset env(SID)
}
} else {
+ global find_rawsid;
+
set pre_spawn {}
! if { [board_info target sim,protocol] == "sid" } {
! # FIXME: sim,options may be from the build tree, should find
! # it in the install tree.
! set spawncmd "sid [target_info sim,options] -e \"set gdb-socket sockaddr-local 0.0.0.0:$port\""
! } else {
! set spawncmd "[target_info sim] $sidverbose $sidendian --gdb=$port [target_info sim,options]"
! }
set post_spawn {}
}
eval $pre_spawn
! if {[catch [list remote_spawn host $spawncmd] msg]} {
perror $msg
exit 1
}
*************** proc sid_start {} {
*** 81,87 ****
# GDB would wait for a fair while for the stub to respond.
sleep 4
! set sid_spawn_id $spawn_id
}
#
--- 92,100 ----
# GDB would wait for a fair while for the stub to respond.
sleep 4
! if ![target_info exists gdb,no_push_conn] {
! remote_push_conn host;
! }
}
#
*************** proc gdb_start {} {
*** 94,105 ****
}
proc sid_exit {} {
! global sid_spawn_id
! if {[info exists sid_spawn_id]} {
! catch {exec kill [exp_pid -i $sid_spawn_id]}
! catch {wait -i $sid_spawn_id}
! unset sid_spawn_id
! sleep 4
}
}
--- 107,115 ----
}
proc sid_exit {} {
! if ![target_info exists gdb,no_push_conn] {
! remote_close host;
! remote_pop_conn host;
}
}