From patchwork Wed Jan 30 08:18:21 2013 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Jakub Jelinek X-Patchwork-Id: 216778 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 331BD2C0093 for ; Wed, 30 Jan 2013 19:18:54 +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=1360138735; h=Comment: DomainKey-Signature:Received:Received:Received:Received:Received: Received:Received:Date:From:To:Cc:Subject:Message-ID:Reply-To: MIME-Version:Content-Type:Content-Disposition:User-Agent: Mailing-List:Precedence:List-Id:List-Unsubscribe:List-Archive: List-Post:List-Help:Sender:Delivered-To; bh=kUfL2mTv0xBLMiHql9NU QiLahmo=; b=xB7zJpuaskDGAWESCiHheG3k3Ah18oshWs4AxYUDOaOGO9siY/+8 72XZBbmgIS95DnBbfHukwE7R4ei9G0uF17hllNaIdvEfMOjvd4/kzrckk8M95unQ 3c1/gyOZ+bWRKP6sJttBjL9N14MnhrM8BBA9ViDyeIK9QvU1OxerDwM= 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:Received:Received:Received:Date:From:To:Cc:Subject:Message-ID:Reply-To:MIME-Version:Content-Type:Content-Disposition:User-Agent:X-IsSubscribed:Mailing-List:Precedence:List-Id:List-Unsubscribe:List-Archive:List-Post:List-Help:Sender:Delivered-To; b=l3snrCBgRIUfFjMqq1cJou8K16qNKbnMBH/7Bdvm9HhYW/NAuTHECfAbPeJcrU +ALbUWx1kpbRTBI0HHcA2YE9VkoHnSu6DaQXlIot0rF6Uw2y6E/Q32w5x5n4ND2t 0udfa1qeuNyCDOQOvGV5c0pBOLROVP1H0vKQmLoJMwg7Q=; Received: (qmail 5243 invoked by alias); 30 Jan 2013 08:18:45 -0000 Received: (qmail 5232 invoked by uid 22791); 30 Jan 2013 08:18:43 -0000 X-SWARE-Spam-Status: No, hits=-6.6 required=5.0 tests=AWL, BAYES_00, KHOP_RCVD_UNTRUST, KHOP_SPAMHAUS_DROP, RCVD_IN_DNSWL_HI, RCVD_IN_HOSTKARMA_W, RP_MATCHES_RCVD, SPF_HELO_PASS X-Spam-Check-By: sourceware.org Received: from mx1.redhat.com (HELO mx1.redhat.com) (209.132.183.28) by sourceware.org (qpsmtpd/0.43rc1) with ESMTP; Wed, 30 Jan 2013 08:18:32 +0000 Received: from int-mx09.intmail.prod.int.phx2.redhat.com (int-mx09.intmail.prod.int.phx2.redhat.com [10.5.11.22]) by mx1.redhat.com (8.14.4/8.14.4) with ESMTP id r0U8IQTH024460 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK); Wed, 30 Jan 2013 03:18:26 -0500 Received: from zalov.redhat.com (vpn1-6-76.ams2.redhat.com [10.36.6.76]) by int-mx09.intmail.prod.int.phx2.redhat.com (8.14.4/8.14.4) with ESMTP id r0U8IN1I030727 (version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=NO); Wed, 30 Jan 2013 03:18:24 -0500 Received: from zalov.cz (localhost [127.0.0.1]) by zalov.redhat.com (8.14.5/8.14.5) with ESMTP id r0U8IMhU027372; Wed, 30 Jan 2013 09:18:22 +0100 Received: (from jakub@localhost) by zalov.cz (8.14.5/8.14.5/Submit) id r0U8ILFF027371; Wed, 30 Jan 2013 09:18:21 +0100 Date: Wed, 30 Jan 2013 09:18:21 +0100 From: Jakub Jelinek To: Janis Johnson , Mike Stump , Rainer Orth Cc: gcc-patches@gcc.gnu.org Subject: [PATCH] testsuite tcl portability fix - avoid lreverse Message-ID: <20130130081821.GX4385@tucnak.redhat.com> Reply-To: Jakub Jelinek MIME-Version: 1.0 Content-Disposition: inline User-Agent: Mutt/1.5.21 (2010-09-15) X-IsSubscribed: yes 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 Hi! I've noticed ERROR: (DejaGnu) proc "lreverse {{ASAN_OPTIONS 0}}" does not exist. errors when regtesting gcc 4.8 on RHEL 5, it seems lreverse has been added to tcl only in version 8.5. Fixed thusly, ok for trunk? 2013-01-30 Jakub Jelinek * lib/gcc-dg.exp (restore-target-env-var): Avoid using lreverse. Jakub --- gcc/testsuite/lib/gcc-dg.exp.jj 2013-01-11 09:02:39.000000000 +0100 +++ gcc/testsuite/lib/gcc-dg.exp 2013-01-30 09:04:02.540243886 +0100 @@ -305,7 +305,9 @@ proc set-target-env-var { } { proc restore-target-env-var { } { upvar 1 saved_target_env_var saved_target_env_var - foreach env_var [lreverse $saved_target_env_var] { + for { set env_vari [llength $saved_target_env_var] } { + [incr env_vari -1] >= 0 } {} { + set env_var [lindex $saved_target_env_var $env_vari] set var [lindex $env_var 0] if [lindex $env_var 1] { setenv $var [lindex $env_var 2]