[PATCH] Insight testsuite SID support
Keith Seitz
keiths@cygnus.com
Tue Sep 18 17:08:00 GMT 2001
Hi,
I've committed the following patch which adds support for running the
Insight testsuite (what there is of it) on SID targets.
Keith
ChangeLog
2001-09-18 Keith Seitz <keiths@redhat.com>
* lib/insight-support.exp (_gdbtk_export_target_info): Add
support for running tests against sid targets.
(gdbtk_done): Ditto.
Patch
Index: testsuite/lib/insight-support.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/lib/insight-support.exp,v
retrieving revision 1.2
diff -u -p -r1.2 insight-support.exp
--- testsuite/lib/insight-support.exp 2001/09/15 17:11:24 1.2
+++ testsuite/lib/insight-support.exp 2001/09/19 00:05:54
@@ -185,6 +185,9 @@ proc _gdbtk_export_target_info {} {
} elseif {[string compare [info proc gdb_target_sim] gdb_target_sim] == 0} {
# Using a simulator target
set target simulator
+ } elseif {[string compare [info proc gdb_target_sid] gdb_target_sid] == 0} {
+ # Using sid
+ set target sid
} else {
# Assume native
set target native
@@ -238,6 +241,15 @@ proc _gdbtk_export_target_info {} {
set info(run) "continue"
}
+ sid {
+ # We must start sid first, since Insight won't have a clue
+ # about how to do this.
+ sid_start
+ set info(target) "target [target_info gdb_protocol] [target_info netport]"
+ set info(load) "load"
+ set info(run) "continue"
+ }
+
native {
set info(run) "run"
}
@@ -289,5 +301,10 @@ proc gdbtk_done {{results {}}} {
# Kill off xvfb if using it
if {[info exists _xvfb_spawn_id]} {
_gdbtk_xvfb_exit
+ }
+
+ # Yich. If we're using sid, we must kill it
+ if {[string compare [info proc gdb_target_sid] gdb_target_sid] == 0} {
+ sid_exit
}
}
More information about the Gdb-patches
mailing list