2002-04-19 Nick Clifton <nickc@cambridge.redhat.com>

        * Import files from sourceware dejagnu repository:
        2002-03-15  Chris Demetriou  <cgd@broadcom.com>
        * baseboards/mips-sim-idt32.exp: New file.
        2002-01-21  Ben Elliston  <bje@redhat.com>
        * baseboards/sh-sid.exp: New file.
        2001-11-26  Thomas Fitzsimmons  <fitzsim@redhat.com>
        * baseboards/i386-sid.exp: New file.
        2001-10-10  Frank Ch. Eigler  <fche@redhat.com>
        * config/sid.exp (set_host_info): New proc.  Call it to set
        gdb,nointerrupt flag to work around framework problems.
        2001-08-24  Frank Ch. Eigler  <fche@redhat.com>
        * baseboards/basic-sid.exp (find_sid_conf): Tolerate not
        finding path to pregen configuration file.
        2001-02-22  Ben Elliston  <bje@redhat.com>
        * config/sid.exp: New file.
        * baseboards/basic-sid.exp: Likewise.
        * baseboards/arm-sid.exp: Likewise.
        * baseboards/m32r-sid.exp: Likewise.
        * baseboards/m68k-sid.exp: Likewise.

1 files changed, 58 insertions, 0 deletions

diff --git a/baseboards/basic-sid.exp b/baseboards/basic-sid.exp
new file mode 100644
index 0000000..290c6f4
--- /dev/null
+++ b/baseboards/basic-sid.exp
@@ -0,0 +1,58 @@
+# find_sid -- find a usable SID simulator.
+# This proc is local to this file and is used to locate a SID to use.
+# Search the build tree, then $PATH.
+#
+# Written by Ben Elliston (bje@redhat.com).
+
+proc find_sid { target_alias } {
+    global env
+    global tool_root_dir
+
+    set try [lookfor_file ${tool_root_dir} sid/bsp/${target_alias}-sid]
+    if { $try != "" } {
+	set sid_build [lookfor_file ${tool_root_dir} sid/main/dynamic/sid]
+	if { $sid_build != "" } { set env(SID) $sid_build }
+	return $try
+    }
+
+    # In this case, the bsp script must be available on the PATH.
+    # Just hope for the best!
+    return ${target_alias}-sid
+}
+
+# find_sid_conf -- find a usable pre-generated SID config file.
+
+proc find_sid_conf { config } {
+    global env
+    global srcdir
+
+    set try [lookfor_file ${srcdir} sid/bsp/pregen/${config}.conf]
+    if { $try == "" } then { return ${config}.conf } else { return $try }
+}
+
+# find_rawsid -- find a usable SID simulator.
+# This proc is local to this file and is used to locate a SID to use.
+# Search the build tree, then $PATH.
+
+proc find_rawsid { } {
+    global env
+    global tool_root_dir
+    global srcdir
+
+    set try [lookfor_file ${tool_root_dir} sid/main/dynamic/sid]
+    if { $try == "" } {
+	set try "sid"
+    } else {
+	# testing build tree
+	set env(SID_LIBRARY_PATH) [join [glob "${tool_root_dir}/sid/component/*" "$srcdir/sid/component/*"] ":"]
+	# srcdir=/..../sid/component/testsuite
+	set tcl_library "$srcdir/tcl/library"
+        global host_os
+	switch -glob $host_os {
+	  {cygwin*} { set tcl_library [exec cygpath -w $tcl_library] }
+        }
+	set env(TCL_LIBRARY) $tcl_library
+    }
+
+    return $try
+}