[PATCH] Insight testsuite SID support

[Keith Seitz <keiths at cygnus dot com>]

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
   }
 }