From c12f7fa15eec148307fa94f886b0673c1d0dd789 Mon Sep 17 00:00:00 2001
From: "Frank Ch. Eigler" <fche@elastic.org>
Date: Thu, 30 Apr 2009 16:54:04 -0400
Subject: whitespace tweak in tcl code

---
 testsuite/systemtap.syscall/syscall.exp | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

(limited to 'testsuite/systemtap.syscall/syscall.exp')

diff --git a/testsuite/systemtap.syscall/syscall.exp b/testsuite/systemtap.syscall/syscall.exp
index 2313403f..22e9dc07 100644
--- a/testsuite/systemtap.syscall/syscall.exp
+++ b/testsuite/systemtap.syscall/syscall.exp
@@ -48,15 +48,9 @@ proc test_procedure {} {
 
     set do_32_bit_pass 1    
     switch -regexp $::tcl_platform(machine) {
-	^(x86_64|ppc64)$ {
-	    set flags "additional_flags=-m32"
-	}
-	^s390x$ {
-	    set flags "additional_flags=-m31"
-	}
-	^ia64$ {
-	    set do_32_bit_pass 0
-	}
+	{^(x86_64|ppc64)$} { set flags "additional_flags=-m32" }
+	{^s390x$} { set flags "additional_flags=-m31" }
+	{^ia64$} { set do_32_bit_pass 0	}
     }
 
     if {$do_32_bit_pass} {
-- 
cgit