OSDN Git Service

* lib/compat.exp (compat-execute): Fix processing of file names.
authorjanis <janis@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 27 Mar 2007 22:06:00 +0000 (22:06 +0000)
committerjanis <janis@138bc75d-0d04-0410-961f-82ee72b054a4>
Tue, 27 Mar 2007 22:06:00 +0000 (22:06 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@123270 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/lib/compat.exp

index c8096ad..4007078 100644 (file)
@@ -1,3 +1,7 @@
+2007-03-27  Janis Johnson  <janis187@us.ibm.com>
+
+       * lib/compat.exp (compat-execute): Fix processing of file names.
+
 2007-03-27  Daniel Jacobowitz  <dan@codesourcery.com>
 
        * gcc.target/powerpc/ppc-stackalign-1.c: Run for powerpc-eabi.
index 86a437f..6e15f91 100644 (file)
@@ -259,10 +259,13 @@ proc compat-execute { src1 sid use_alt } {
     }
 
     # Set up the names of the other source files.
-    regsub "_main.*" $src1 "" base
-    regsub ".*/" $base "" base
-    regsub "_main" $src1 "_x" src2
-    regsub "_main" $src1 "_y" src3
+    set dir [file dirname $src1]
+    set ext [file extension $src1]
+    set base [file rootname $src1]
+    set base [string range $base [string length $dir] end]
+    regsub "_main" $base "" base
+    set src2 "${dir}/${base}_x${ext}"
+    set src3 "${dir}/${base}_y${ext}"
 
     # Use the dg-options mechanism to specify extra flags for this test. 
     # The extra flags in each file are used to compile that file, and the