From e8bcfe5330eb505b637164eadeadcaca3c917765 Mon Sep 17 00:00:00 2001
From: Mark Mitchell <mmitchel@gcc.gnu.org>
Date: Sun, 15 May 2005 22:35:39 +0000
Subject: [PATCH] Fix typo in previous checkin

From-SVN: r99749
---
 gcc/testsuite/lib/compat.exp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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.
-- 
2.30.2