From patchwork Thu Jan 24 09:16:21 2013 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Andreas Schwab X-Patchwork-Id: 215277 Return-Path: X-Original-To: incoming@patchwork.ozlabs.org Delivered-To: patchwork-incoming@bilbo.ozlabs.org Received: from sourceware.org (server1.sourceware.org [209.132.180.131]) by ozlabs.org (Postfix) with SMTP id 7A0072C007C for ; Thu, 24 Jan 2013 20:16:37 +1100 (EST) Comment: DKIM? See http://www.dkim.org DKIM-Signature: v=1; a=rsa-sha1; c=relaxed/relaxed; d=gcc.gnu.org; s=default; x=1359623798; h=Comment: DomainKey-Signature:Received:Received:Received:Received:From:To: Cc:Subject:References:Date:In-Reply-To:Message-ID:User-Agent: MIME-Version:Content-Type:Mailing-List:Precedence:List-Id: List-Unsubscribe:List-Archive:List-Post:List-Help:Sender: Delivered-To; bh=cJgREm47mve0hoyOJpJQDGH4pts=; b=sLriUGcptWAXsBx rmrOZkqOBICwULdoEhKFiPO4FZw8YtUaxZzl9nOcmca+KhsBHvYPd/jL2xP3fl3p ExpTHnscSJDjIMWABc/eb/59d9mJXzndSLdJFc5zZp1Gkb4hU84MvzzrNHeeaTnV cJum4thpHwrJ4Zur1k3T1VwRUe/8= Comment: DomainKeys? See http://antispam.yahoo.com/domainkeys DomainKey-Signature: a=rsa-sha1; q=dns; c=nofws; s=default; d=gcc.gnu.org; h=Received:Received:X-SWARE-Spam-Status:X-Spam-Check-By:Received:Received:From:To:Cc:Subject:References:X-Yow:Date:In-Reply-To:Message-ID:User-Agent:MIME-Version:Content-Type:Mailing-List:Precedence:List-Id:List-Unsubscribe:List-Archive:List-Post:List-Help:Sender:Delivered-To; b=IuzyQ2gHtkZW8KbW5MWVJfvsfxOZBZbabIpkOClJ9fa6nqz3YuI1Rt4kY26Ssm CoWN7Lwxa8lNOnzqs4zHULMDX/BfnUDg9mhafinDIoVYWQrVGjI1D9otaYhxyKoR ZS/hJfC6ocG6lGrpqR0AXVohpJZCav5YgBTkOT/G/lZkE=; Received: (qmail 5334 invoked by alias); 24 Jan 2013 09:16:31 -0000 Received: (qmail 5319 invoked by uid 22791); 24 Jan 2013 09:16:29 -0000 X-SWARE-Spam-Status: No, hits=-4.9 required=5.0 tests=AWL, BAYES_00, KHOP_RCVD_UNTRUST, RCVD_IN_DNSWL_HI, RP_MATCHES_RCVD X-Spam-Check-By: sourceware.org Received: from cantor2.suse.de (HELO mx2.suse.de) (195.135.220.15) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Thu, 24 Jan 2013 09:16:24 +0000 Received: from relay2.suse.de (unknown [195.135.220.254]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by mx2.suse.de (Postfix) with ESMTP id F3327A398D; Thu, 24 Jan 2013 10:16:22 +0100 (CET) From: Andreas Schwab To: Eric Botcazou Cc: janisjo@codesourcery.com, gcc-patches@gcc.gnu.org Subject: Re: testsuite] clean up convoluted dg-final directive in vect-multitypes-12.c References: <50F980CE.6030609@mentor.com> <2987551.qUaChJ0c29@polaris> X-Yow: Wow! Look!! A stray meatball!! Let's interview it! Date: Thu, 24 Jan 2013 10:16:21 +0100 In-Reply-To: <2987551.qUaChJ0c29@polaris> (Eric Botcazou's message of "Wed, 23 Jan 2013 23:52:52 +0100") Message-ID: User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.2.92 (gnu/linux) MIME-Version: 1.0 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org Eric Botcazou 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"