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

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

1 files changed, 17 insertions, 0 deletions

diff --git a/gdb/testsuite/lib/insight-support.exp b/gdb/testsuite/lib/insight-support.exp
index 9c3cbad..db2747e 100644
--- 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
+  }
 }