From: Mark Mitchell <mmitchel@gcc.gnu.org>
Date: Sun, 15 May 2005 22:35:39 +0000 (+0000)
Subject: Fix typo in previous checkin
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=e8bcfe5330eb505b637164eadeadcaca3c917765;p=gcc.git

Fix typo in previous checkin

From-SVN: r99749
---

diff --git a/gcc/testsuite/lib/compat.exp b/gcc/testsuite/lib/compat.exp
index 423253f03d1..567e0ead705 100644
--- a/gcc/testsuite/lib/compat.exp
+++ b/gcc/testsuite/lib/compat.exp
@@ -288,7 +288,7 @@ proc compat-execute { src1 sid use_alt } {
 	set testcase [string range "$src1" [string length "$srcdir/"] end]
     }
     if {[string first "$tmpdir/" "$testcase"] == 0} {
-	set testcase [string range "$src1" [string length "$tmpdir/"] end]
+	set testcase [string range "$testcase" [string length "$tmpdir/"] end]
     }
     regsub "_main.*" $testcase "" testcase
     # Set up the base name of executable files so they'll be unique.