From: Andreas Schwab <schwab@suse.de>
Date: Wed, 30 Jan 2013 08:49:35 +0000 (+0000)
Subject: target-supports-dg.exp (dg-process-target): Use expr to evaluate the end index in... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6690cb20df45ead8d49a0697b56b16b23476b2b9;p=gcc.git

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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d4b666fdf45..8605cce9ee4 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 fffd8bb48b2..1b56536d615 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"