[gcc r14-12645] testsuite: Fix up another tcl 9 compatibility problem

Jakub Jelinek jakub@gcc.gnu.org
Thu Jun 11 00:02:42 GMT 2026


https://gcc.gnu.org/g:492ed6d0aec3ac8974e7ff41a4c0c37653ffa5cf

commit r14-12645-g492ed6d0aec3ac8974e7ff41a4c0c37653ffa5cf
Author: Jakub Jelinek <jakub@redhat.com>
Date:   Thu Mar 26 18:11:06 2026 +0100

    testsuite: Fix up another tcl 9 compatibility problem
    
    TCL 9 removed case command which has been deprecated before.
    https://core.tcl-lang.org/tcl/wiki?name=Migrating+scripts+to+Tcl+9
    says "Replace case with switch" and switch has been working in TCL 8
    just fine.
    
    2026-03-26  Jakub Jelinek  <jakub@redhat.com>
    
            * lib/mike-gcc.exp (postbase): Use switch instead of case for
            TCL 9 compatibility.
            * lib/mike-g++.exp (postbase): Likewise.
    
    (cherry picked from commit aa45de0c3173c6b85e079449d2f8f0eab9a38a7d)

Diff:
---
 gcc/testsuite/lib/mike-g++.exp | 2 +-
 gcc/testsuite/lib/mike-gcc.exp | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/testsuite/lib/mike-g++.exp b/gcc/testsuite/lib/mike-g++.exp
index 06e9b6a4f957..19a6e3637a0d 100644
--- a/gcc/testsuite/lib/mike-g++.exp
+++ b/gcc/testsuite/lib/mike-g++.exp
@@ -101,7 +101,7 @@ proc postbase  { src_code run groups args } {
 
     set compile_type "none"
 
-    case $actions {
+    switch $actions {
 	compile
 	{
 	    set compile_type "assembly"
diff --git a/gcc/testsuite/lib/mike-gcc.exp b/gcc/testsuite/lib/mike-gcc.exp
index 0cea8de63a15..cecb8f79d675 100644
--- a/gcc/testsuite/lib/mike-gcc.exp
+++ b/gcc/testsuite/lib/mike-gcc.exp
@@ -105,7 +105,7 @@ proc postbase  { src_code run groups args } {
 
     set compile_type "none"
 
-    case $actions {
+    switch $actions {
 	compile
 	{
 	    set compile_type "assembly"


More information about the Gcc-cvs mailing list