* config/udi.exp(gdb_target_udi): Make sure UDICONF is set
properly before starting gdb.
This commit is contained in:
parent
09f0789e93
commit
fb9eb1371d
|
@ -1,5 +1,17 @@
|
||||||
|
Sat Mar 22 19:50:25 1997 Bob Manson <manson@charmed.cygnus.com>
|
||||||
|
|
||||||
|
* config/udi.exp(gdb_target_udi): Make sure UDICONF is set
|
||||||
|
properly before starting gdb.
|
||||||
|
|
||||||
Tue Mar 11 11:42:58 1997 Bob Manson <manson@charmed.cygnus.com>
|
Tue Mar 11 11:42:58 1997 Bob Manson <manson@charmed.cygnus.com>
|
||||||
|
|
||||||
|
* config/vx.exp: Use remote_ld, not vxworks_ld. Don't use
|
||||||
|
specialized code to reboot the board, use remote_reboot instead.
|
||||||
|
|
||||||
|
* config/vxworks29k.exp: Use vx.exp, not vx-gdb.exp.
|
||||||
|
|
||||||
|
* lib/gdb.exp: Add GDB_TESTCASE_OPTIONS.
|
||||||
|
|
||||||
* config/monitor.exp: Make sure we disconnect from the target.
|
* config/monitor.exp: Make sure we disconnect from the target.
|
||||||
Also, try a reboot/reload cycle instead of failing if the
|
Also, try a reboot/reload cycle instead of failing if the
|
||||||
load fails.
|
load fails.
|
||||||
|
|
|
@ -30,8 +30,10 @@ proc gdb_target_udi { } {
|
||||||
global gdb_prompt
|
global gdb_prompt
|
||||||
global verbose
|
global verbose
|
||||||
global exit_status
|
global exit_status
|
||||||
|
global env;
|
||||||
|
|
||||||
set targetname [target_info mondfe,name];
|
set targetname [target_info mondfe,name];
|
||||||
|
set env(UDICONF) [target_info mondfe,udi_soc];
|
||||||
# set targets hostname
|
# set targets hostname
|
||||||
send_gdb "target udi $targetname\n"
|
send_gdb "target udi $targetname\n"
|
||||||
set timeout 60
|
set timeout 60
|
||||||
|
@ -96,7 +98,6 @@ proc gdb_start { } {
|
||||||
# gdb_exit -- exit gdb
|
# gdb_exit -- exit gdb
|
||||||
#
|
#
|
||||||
proc gdb_exit { } {
|
proc gdb_exit { } {
|
||||||
slay isstip
|
|
||||||
catch default_gdb_exit
|
catch default_gdb_exit
|
||||||
set in [open [concat "|ls -F"] r]
|
set in [open [concat "|ls -F"] r]
|
||||||
while {[gets $in line]>-1} {
|
while {[gets $in line]>-1} {
|
||||||
|
|
Loading…
Reference in New Issue