compat.exp (compat-run): Prepend "./" when $dest has no directory component.

	* lib/compat.exp (compat-run): Prepend "./" when $dest has no
	directory component.

From-SVN: r58318

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c3a9a36fdaf27ce849f52b4fd230d6c2c309b2bd..83d9bf70cc5c237ecd98f501ed945d804d5a3adf 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2002-10-19  Andreas Schwab  <schwab@suse.de>
+
+       * lib/compat.exp (compat-run): Prepend "./" when $dest has no
+       directory component.
+
 2002-10-18  Mark Mitchell  <mark@codesourcery.com>
 
        * g++.dg/inherit/thunk1.C: New test.

diff --git a/gcc/testsuite/lib/compat.exp b/gcc/testsuite/lib/compat.exp
index 1965f3d6ea9e98d0419a83f8159b25d7d63f2585..0944ccc95d8e6aae0f5432e875f939968c092549 100644 (file)
--- a/gcc/testsuite/lib/compat.exp
+++ b/gcc/testsuite/lib/compat.exp
@@ -96,6 +96,9 @@ proc compat-run { testname objlist dest options optstr } {
     }
 
     # Run the self-checking executable.
+    if ![string match "*/*" $dest] then {
+       set dest "./$dest"
+    }
     set result [${tool}_load $dest "" ""]
     set status [lindex $result 0]
     if { $status == "pass" } then {