From: Andreas Schwab <schwab@suse.de>
Date: Sat, 19 Oct 2002 19:27:24 +0000 (+0000)
Subject: compat.exp (compat-run): Prepend "./" when $dest has no directory component.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0d8b229b8ec256eb18183d63bd7739483936c8cd;p=gcc.git

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 c3a9a36fdaf..83d9bf70cc5 100644
--- 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 1965f3d6ea9..0944ccc95d8 100644
--- 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 {