diff options
| author | Andreas Schwab <schwab@suse.de> | 2013-01-30 08:49:35 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@gcc.gnu.org> | 2013-01-30 08:49:35 +0000 |
| commit | 6690cb20df45ead8d49a0697b56b16b23476b2b9 (patch) | |
| tree | 9ec7b48d3e54d923e030716da4094a42b2805372 /gcc | |
| parent | e18547a18cb5116bc940976cba250e0de045640b (diff) | |
| download | gcc-6690cb20df45ead8d49a0697b56b16b23476b2b9.zip gcc-6690cb20df45ead8d49a0697b56b16b23476b2b9.tar.gz gcc-6690cb20df45ead8d49a0697b56b16b23476b2b9.tar.bz2 | |
target-supports-dg.exp (dg-process-target): Use expr to evaluate the end index in string range.
* lib/target-supports-dg.exp (dg-process-target): Use expr to
evaluate the end index in string range.
From-SVN: r195571
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/lib/target-supports-dg.exp | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index d4b666f..8605cce 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2013-01-30 Andreas Schwab <schwab@suse.de> + + * lib/target-supports-dg.exp (dg-process-target): Use expr to + evaluate the end index in string range. + 2012-01-30 Tobias Burnus <burnus@net-b.de> PR fortran/56138 diff --git a/gcc/testsuite/lib/target-supports-dg.exp b/gcc/testsuite/lib/target-supports-dg.exp index fffd8bb..1b56536 100644 --- a/gcc/testsuite/lib/target-supports-dg.exp +++ b/gcc/testsuite/lib/target-supports-dg.exp @@ -586,7 +586,7 @@ if { [info procs saved-dg-process-target] == [list] } { if [regexp "^target .* xfail .*" $selector] { set xfail_index [string first "xfail" $selector] set xfail_selector [string range $selector $xfail_index end] - set target_selector [string range $selector 0 $xfail_index-1] + set target_selector [string range $selector 0 [expr $xfail_index-1]] set target_selector [string trim $target_selector] if { [dg-process-target-1 $target_selector] == "N" } { return "N" |