From patchwork Thu Jan 24 09:16:21 2013
Content-Type: text/plain; charset="utf-8"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Subject: testsuite] clean up convoluted dg-final directive in
 vect-multitypes-12.c
Date: Wed, 23 Jan 2013 23:16:21 -0000
From: Andreas Schwab <schwab@suse.de>
X-Patchwork-Id: 215277
Message-Id: <mvmk3r3rlei.fsf@hawking.suse.de>
To: Eric Botcazou <ebotcazou@adacore.com>
Cc: janisjo@codesourcery.com, gcc-patches@gcc.gnu.org

Eric Botcazou <ebotcazou@adacore.com> writes:

> ERROR: gcc.dg/vect/vect-multitypes-12.c: error executing dg-final: bad index 
> "18-1": must be integer or end?-integer?

Does that help?  Perhaps the M-N feature isn't supported by your version
of tcl.

	* lib/target-supports-dg.exp (dg-process-target): Use expr to
	evaluate the end index in string range.


Andreas.


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"