* lib/insight-support.exp (_gdbtk_export_target_info): Add

	support for running tests against sid targets.
	(gdbtk_done): Ditto.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 2344595..48ba2f0 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+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.
+
 2001-09-18  Corinna Vinschen  <vinschen@redhat.com>
 
        * gdb.base/ending-run.c (main): Set stdout buffersize

diff --git a/gdb/testsuite/lib/insight-support.exp b/gdb/testsuite/lib/insight-support.exp
index 9c3cbad..db2747e 100644 (file)
--- a/gdb/testsuite/lib/insight-support.exp
+++ b/gdb/testsuite/lib/insight-support.exp
@@ -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"
     }
@@ -290,4 +302,9 @@ proc gdbtk_done {{results {}}} {
   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
+  }
 }