* lib/compat.exp (compat-execute): Fix processing of file names.
From-SVN: r123270
This commit is contained in:
parent
c97d6ac3ed
commit
28e08d3cdf
|
@ -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>
|
2007-03-27 Daniel Jacobowitz <dan@codesourcery.com>
|
||||||
|
|
||||||
* gcc.target/powerpc/ppc-stackalign-1.c: Run for powerpc-eabi.
|
* gcc.target/powerpc/ppc-stackalign-1.c: Run for powerpc-eabi.
|
||||||
|
|
|
@ -259,10 +259,13 @@ proc compat-execute { src1 sid use_alt } {
|
||||||
}
|
}
|
||||||
|
|
||||||
# Set up the names of the other source files.
|
# Set up the names of the other source files.
|
||||||
regsub "_main.*" $src1 "" base
|
set dir [file dirname $src1]
|
||||||
regsub ".*/" $base "" base
|
set ext [file extension $src1]
|
||||||
regsub "_main" $src1 "_x" src2
|
set base [file rootname $src1]
|
||||||
regsub "_main" $src1 "_y" src3
|
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.
|
# 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
|
# The extra flags in each file are used to compile that file, and the
|
||||||
|
|
Loading…
Reference in New Issue