{"id":2215732,"url":"http://patchwork.ozlabs.org/api/patches/2215732/?format=json","web_url":"http://patchwork.ozlabs.org/project/gcc/patch/acOX7DhfAUxOegZw@tucnak/","project":{"id":17,"url":"http://patchwork.ozlabs.org/api/projects/17/?format=json","name":"GNU Compiler Collection","link_name":"gcc","list_id":"gcc-patches.gcc.gnu.org","list_email":"gcc-patches@gcc.gnu.org","web_url":null,"scm_url":null,"webscm_url":null,"list_archive_url":"","list_archive_url_format":"","commit_url_format":""},"msgid":"","list_archive_url":null,"date":"2026-03-25T08:08:12","name":"testsuite: Fix up another tcl 9 compatibility problem","commit_ref":null,"pull_url":null,"state":"new","archived":false,"hash":"7e0e8529f9168911103268aa39d94e9d66ef23c8","submitter":{"id":671,"url":"http://patchwork.ozlabs.org/api/people/671/?format=json","name":"Jakub Jelinek","email":"jakub@redhat.com"},"delegate":null,"mbox":"http://patchwork.ozlabs.org/project/gcc/patch/acOX7DhfAUxOegZw@tucnak/mbox/","series":[{"id":497394,"url":"http://patchwork.ozlabs.org/api/series/497394/?format=json","web_url":"http://patchwork.ozlabs.org/project/gcc/list/?series=497394","date":"2026-03-25T08:08:12","name":"testsuite: Fix up another tcl 9 compatibility problem","version":1,"mbox":"http://patchwork.ozlabs.org/series/497394/mbox/"}],"comments":"http://patchwork.ozlabs.org/api/patches/2215732/comments/","check":"pending","checks":"http://patchwork.ozlabs.org/api/patches/2215732/checks/","tags":{},"related":[],"headers":{"Return-Path":"","X-Original-To":["incoming@patchwork.ozlabs.org","gcc-patches@gcc.gnu.org"],"Delivered-To":["patchwork-incoming@legolas.ozlabs.org","gcc-patches@gcc.gnu.org"],"Authentication-Results":["legolas.ozlabs.org;\n\tdkim=pass (1024-bit key;\n unprotected) header.d=redhat.com header.i=@redhat.com header.a=rsa-sha256\n header.s=mimecast20190719 header.b=APqXk3zp;\n\tdkim-atps=neutral","legolas.ozlabs.org;\n spf=pass (sender SPF authorized) smtp.mailfrom=gcc.gnu.org\n (client-ip=2620:52:6:3111::32; helo=vm01.sourceware.org;\n envelope-from=gcc-patches-bounces~incoming=patchwork.ozlabs.org@gcc.gnu.org;\n receiver=patchwork.ozlabs.org)","sourceware.org;\n\tdkim=pass (1024-bit key,\n unprotected) header.d=redhat.com header.i=@redhat.com header.a=rsa-sha256\n header.s=mimecast20190719 header.b=APqXk3zp","sourceware.org; dmarc=pass (p=quarantine dis=none)\n header.from=redhat.com","sourceware.org; spf=pass smtp.mailfrom=redhat.com","server2.sourceware.org;\n arc=none smtp.remote-ip=170.10.133.124"],"Received":["from vm01.sourceware.org (vm01.sourceware.org\n [IPv6:2620:52:6:3111::32])\n\t(using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)\n\t key-exchange x25519 server-signature ECDSA (secp384r1) server-digest SHA384)\n\t(No client certificate requested)\n\tby legolas.ozlabs.org (Postfix) with ESMTPS id 4fgfgV5NPKz1y1G\n\tfor ; Wed, 25 Mar 2026 19:08:54 +1100 (AEDT)","from vm01.sourceware.org (localhost [127.0.0.1])\n\tby sourceware.org (Postfix) with ESMTP id 9BCF04BB588F\n\tfor ; Wed, 25 Mar 2026 08:08:52 +0000 (GMT)","from us-smtp-delivery-124.mimecast.com\n (us-smtp-delivery-124.mimecast.com [170.10.133.124])\n by sourceware.org (Postfix) with ESMTP id 4EF0C4BA23C3\n for ; Wed, 25 Mar 2026 08:08:23 +0000 (GMT)","from mx-prod-mc-08.mail-002.prod.us-west-2.aws.redhat.com\n (ec2-35-165-154-97.us-west-2.compute.amazonaws.com [35.165.154.97]) by\n relay.mimecast.com with ESMTP with STARTTLS (version=TLSv1.3,\n cipher=TLS_AES_256_GCM_SHA384) id us-mta-6-_snTBhiBOmqoJ-fwKQ_hew-1; Wed,\n 25 Mar 2026 04:08:18 -0400","from mx-prod-int-03.mail-002.prod.us-west-2.aws.redhat.com\n (mx-prod-int-03.mail-002.prod.us-west-2.aws.redhat.com [10.30.177.12])\n (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)\n key-exchange X25519 server-signature RSA-PSS (2048 bits) server-digest\n SHA256)\n (No client certificate requested)\n by mx-prod-mc-08.mail-002.prod.us-west-2.aws.redhat.com (Postfix) with ESMTPS\n id 7AD231800345; Wed, 25 Mar 2026 08:08:16 +0000 (UTC)","from tucnak.zalov.cz (unknown [10.45.225.193])\n by mx-prod-int-03.mail-002.prod.us-west-2.aws.redhat.com (Postfix) with\n ESMTPS\n id 0FEF61955E9E; Wed, 25 Mar 2026 08:08:15 +0000 (UTC)","from tucnak.zalov.cz (localhost [127.0.0.1])\n by tucnak.zalov.cz (8.18.1/8.18.1) with ESMTPS id 62P88Cne3769009\n (version=TLSv1.3 cipher=TLS_AES_256_GCM_SHA384 bits=256 verify=NOT);\n Wed, 25 Mar 2026 09:08:12 +0100","(from jakub@localhost)\n by tucnak.zalov.cz (8.18.1/8.18.1/Submit) id 62P88CkB3769008;\n Wed, 25 Mar 2026 09:08:12 +0100"],"DKIM-Filter":["OpenDKIM Filter v2.11.0 sourceware.org 9BCF04BB588F","OpenDKIM Filter v2.11.0 sourceware.org 4EF0C4BA23C3"],"DMARC-Filter":"OpenDMARC Filter v1.4.2 sourceware.org 4EF0C4BA23C3","ARC-Filter":"OpenARC Filter v1.0.0 sourceware.org 4EF0C4BA23C3","ARC-Seal":"i=1; a=rsa-sha256; d=sourceware.org; s=key; t=1774426103; cv=none;\n b=tUvoAV0D5C/qUbC1o0GblNomHdj6Ov5iAgLrycQmYCHhPIMJ7/8CcEiyJL4ALrxTCfgVvcq3IQWPeQGBd3QXikJRE9JFpf5sSx5Tk2muzwDm++UO0LXs8bSRtZlzMwXJivL1H6ZRPUYo0VpbiVe0EwMASUz8tfZQZFrbWiUqr9o=","ARC-Message-Signature":"i=1; a=rsa-sha256; d=sourceware.org; s=key;\n t=1774426103; c=relaxed/simple;\n bh=6wymXwPy1sxM6PIkIB7bFZRV8/WBi+1EoD6nSI7tBJw=;\n h=DKIM-Signature:Date:From:To:Subject:Message-ID:MIME-Version;\n b=iQwcYNd4SCfgQyT08OAtvipqOVjfomQz+BKzFuBh8Dbiyh3TIfBVtzyew9u/Ola5dQb/nXvWlKn4efPTzf1R4RFY2LaRlCT1vBCCV0R2O+CmNM3luJzNlqMkFt5Pl+0VL3SCdvfkfOAvkNaUpd/mFFhN36buccIIcsx8WZrH828=","ARC-Authentication-Results":"i=1; server2.sourceware.org","DKIM-Signature":"v=1; a=rsa-sha256; c=relaxed/relaxed; d=redhat.com;\n s=mimecast20190719; t=1774426102;\n h=from:from:reply-to:reply-to:subject:subject:date:date:\n message-id:message-id:to:to:cc:cc:mime-version:mime-version:\n content-type:content-type; bh=XAgAyuRlK6Mc2cPuP4Hs35eYxe0+Vu/sGCKNj6I3csM=;\n b=APqXk3zpUF15SXAH4IGvtvpN1iupL+Upx01gRm6Wnvkavupw3kjntrpOUQ0XiXuidyuK3w\n 7weRyAW3SxA3n+xKu7Ko+zGYIZ7UACLhqhZCMqCpsg3tDm43nbxHrD1kqURKMTlsi9zJk0\n E9p9DS67cFj16jL5Ttg+H7XmZIVvmK0=","X-MC-Unique":"_snTBhiBOmqoJ-fwKQ_hew-1","X-Mimecast-MFC-AGG-ID":"_snTBhiBOmqoJ-fwKQ_hew_1774426097","Date":"Wed, 25 Mar 2026 09:08:12 +0100","From":"Jakub Jelinek ","To":"Rainer Orth ,\n Mike Stump ","Cc":"gcc-patches@gcc.gnu.org","Subject":"[PATCH] testsuite: Fix up another tcl 9 compatibility problem","Message-ID":"","MIME-Version":"1.0","X-Scanned-By":"MIMEDefang 3.0 on 10.30.177.12","X-Mimecast-Spam-Score":"0","X-Mimecast-MFC-PROC-ID":"2euwtwTKnoZkZ46zofmKkpo4rPwHg3m_QbvG8-9rGOw_1774426097","X-Mimecast-Originator":"redhat.com","Content-Type":"text/plain; charset=us-ascii","Content-Disposition":"inline","X-BeenThere":"gcc-patches@gcc.gnu.org","X-Mailman-Version":"2.1.30","Precedence":"list","List-Id":"Gcc-patches mailing list ","List-Unsubscribe":",\n ","List-Archive":"","List-Post":"","List-Help":"","List-Subscribe":",\n ","Reply-To":"Jakub Jelinek ","Errors-To":"gcc-patches-bounces~incoming=patchwork.ozlabs.org@gcc.gnu.org"},"content":"Hi!\n\nTCL 9 removed case command which has been deprecated before.\nhttps://core.tcl-lang.org/tcl/wiki?name=Migrating+scripts+to+Tcl+9\nsays \"Replace case with switch\" and switch has been working in TCL 8\njust fine.\n\nTested on x86_64-linux, ok for trunk?\n\n2026-03-25 Jakub Jelinek \n\n\t* lib/mike-gcc.exp (postbase): Use switch instead of case for\n\tTCL 9 compatibility.\n\t* lib/mike-g++.exp (postbase): Likewise.\n\n\n\tJakub","diff":"--- gcc/testsuite/lib/mike-gcc.exp.jj\t2026-01-02 09:56:10.370333086 +0100\n+++ gcc/testsuite/lib/mike-gcc.exp\t2026-03-25 08:57:46.758344300 +0100\n@@ -105,7 +105,7 @@ proc postbase { src_code run groups arg\n \n set compile_type \"none\"\n \n- case $actions {\n+ switch $actions {\n \tcompile\n \t{\n \t set compile_type \"assembly\"\n--- gcc/testsuite/lib/mike-g++.exp.jj\t2026-01-02 09:56:10.370333086 +0100\n+++ gcc/testsuite/lib/mike-g++.exp\t2026-03-25 08:57:54.176217515 +0100\n@@ -101,7 +101,7 @@ proc postbase { src_code run groups arg\n \n set compile_type \"none\"\n \n- case $actions {\n+ switch $actions {\n \tcompile\n \t{\n \t set compile_type \"assembly\"\n","prefixes":[]}