From e1944fc6fc4ecd4c8e71e49ea64014f7b7231850 Mon Sep 17 00:00:00 2001 From: Martin Hunt Date: Thu, 10 Oct 2002 00:46:39 +0000 Subject: [PATCH] 2002-10-09 Martin M. Hunt * library/targetselection.itb (init_target_db): Add gdbserver target. (get_target_list): Always add "gdbserver" to list of valid targets. (valid_target): Always allow "gdbserver". --- gdb/gdbtk/ChangeLog | 8 ++++++++ gdb/gdbtk/library/targetselection.itb | 20 ++++++++++++++++++++ 2 files changed, 28 insertions(+) diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog index daa366e5cb..e289d82062 100644 --- a/gdb/gdbtk/ChangeLog +++ b/gdb/gdbtk/ChangeLog @@ -1,3 +1,11 @@ +2002-10-09 Martin M. Hunt + + * library/targetselection.itb (init_target_db): Add gdbserver + target. + (get_target_list): Always add "gdbserver" to list of valid + targets. + (valid_target): Always allow "gdbserver". + 2002-09-27 Keith Seitz * generic/gdbtk-hooks.c (gdbtk_add_hooks): Add gdbtk_annotate_signal diff --git a/gdb/gdbtk/library/targetselection.itb b/gdb/gdbtk/library/targetselection.itb index a71e33b944..e439a11837 100644 --- a/gdb/gdbtk/library/targetselection.itb +++ b/gdb/gdbtk/library/targetselection.itb @@ -261,6 +261,21 @@ body TargetSelection::init_target_db {} { set gdb_target(vxworks,cmd) "vxworks ethX" set gdb_target(vxworks,runlist) { 1 0 1 1} set gdb_target(vxworks,after_attaching) { sym vxWorks.st } + + # GDBServer, libremote, rda, etc + set gdb_target(gdbserver,pretty-name) "GDBserver" + set gdb_target(gdbserver,pretty-name) "GDBserver/Serial" + set gdb_target(gdbserver,defbaud) "9600" + set gdb_target(gdbserver,baud-rates) {9600 19200 38400 57600 115200} + set gdb_target(gdbserver,cmd) "remote com1" + set gdb_target(gdbserver,runlist) {1 0 0 1} + set gdb_target(gdbserver,after_attaching) {} + set gdb_target(gdbservertcp,pretty-name) "GDBserver/TCP" + set gdb_target(gdbservertcp,defbaud) "TCP" + set gdb_target(gdbservertcp,baud-rates) {} + set gdb_target(gdbservertcp,cmd) "remote tcpX" + set gdb_target(gdbservertcp,runlist) {1 0 0 1} + set gdb_target(gdbservertcp,after_attaching) {} } body TargetSelection::default_port {} { @@ -897,6 +912,7 @@ body TargetSelection::get_target_list {} { lappend names $name } } + lappend names gdbserver return $names } @@ -1036,6 +1052,10 @@ body TargetSelection::target_trace {variable index op} { # Returns 1 if TARGET is a _runnable_ target for this gdb. body TargetSelection::valid_target {target} { + + # always allow gdbserver + if {$target == "gdbserver"} {return 1} + set err [catch {gdb_cmd "help target $target"}] if {$target == "exec" && ![native_debugging]} { set err 1 -- 2.11.0