From 3f5ac97eaccc317adf5bbdbe34771261a01420f4 Mon Sep 17 00:00:00 2001
From: Ben Elliston <bje@gnu.org>
Date: Thu, 8 Jun 2006 23:58:17 +0000
Subject: 	* baseboards/cris-sim.exp: Use Tcl fall-through syntax for 
 multiple cases, not a list (case uses lists, switch does not). 	Pass
 -glob to switch where applicable to emulate case behaviour. 	*
 baseboards/h8300.exp: Likewise. 	* lib/framework.exp (clone_output):
 Likewise. 	(clear_xfail): Likewise. 	(clear_kfail): Likewise. 
 * lib/libgloss.exp (process_multilib_options): Likewise. 	* runtest.exp:
 Likewise.

---
 baseboards/cris-sim.exp |  6 ++++--
 baseboards/h8300.exp    | 11 +++++------
 2 files changed, 9 insertions(+), 8 deletions(-)

(limited to 'baseboards')

diff --git a/baseboards/cris-sim.exp b/baseboards/cris-sim.exp
index 3ef4e5b..fd6400d 100644
--- a/baseboards/cris-sim.exp
+++ b/baseboards/cris-sim.exp
@@ -38,12 +38,14 @@ foreach x $board_variant_list {
 	# the "common" subset doesn't lose the compatibility.)
 
 	# Mnemonic: "a" is 10.
-	{ arch=common_v10_v32 -march=common_v10_v32 } {
+	"arch=common_v10_v32" -
+	"-march=common_v10_v32" {
 	    set cris_simopt "--architecture cris"
 	}
 
 	# Mnemonic: "c" is... eh... comes after 10!
-	{ cpu=common_v10_v32 -mcpu=common_v10_v32 } {
+	"cpu=common_v10_v32" -
+	"-mcpu=common_v10_v32" {
 	    set cris_simopt "--architecture crisv32"
 	}
     }
diff --git a/baseboards/h8300.exp b/baseboards/h8300.exp
index bedb4f2..41260d2 100644
--- a/baseboards/h8300.exp
+++ b/baseboards/h8300.exp
@@ -68,12 +68,11 @@ foreach x $board_variant_list {
     regsub -all "\[ \t\]*$" "$x" "" x
 
     switch $x {
-	{ h -mh } {
-	    set linker_script "h8300h.ld"
-	}
-	{ s -ms } {
-	    set linker_script "h8300s.ld"
-	}
+	"h" -
+	"-mh" { set linker_script "h8300h.ld" }
+
+	"s" -
+	"-ms" { set linker_script "h8300s.ld" }
     }
 }
 
-- 
cgit v1.1