Whitespace fixes.

1 files changed, 33 insertions, 33 deletions

diff --git a/lib/framework.exp b/lib/framework.exp
index ced1283..04a4ceb 100644
--- a/lib/framework.exp
+++ b/lib/framework.exp
@@ -4,12 +4,12 @@
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2 of the License, or
 # (at your option) any later version.
-# 
+#
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
-# 
+#
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
@@ -69,7 +69,7 @@ proc open_logs { } {
     global sum_file
     global xml_file
     global xml
-    
+
     if { ${tool} ==  "" } {
 	set tool testrun
     }
@@ -98,7 +98,7 @@ proc close_logs { } {
     global sum_file
     global xml
     global xml_file
-   
+
     if { $xml } {
         xml_output "</testsuite>"
         catch "close $xml_file"
@@ -115,7 +115,7 @@ proc close_logs { } {
 proc isbuild { pattern } {
     global build_triplet
     global host_triplet
-    
+
     if ![info exists build_triplet] {
 	set build_triplet ${host_triplet}
     }
@@ -123,7 +123,7 @@ proc isbuild { pattern } {
 	return $build_triplet
     }
     verbose "Checking pattern \"$pattern\" with $build_triplet" 2
-    
+
     if [string match "$pattern" $build_triplet] {
 	return 1
     } else {
@@ -191,7 +191,7 @@ proc is_remote { board } {
 proc is3way {} {
     global host_triplet
     global build_triplet
-    
+
     if ![info exists build_triplet] {
 	set build_triplet ${host_triplet}
     }
@@ -209,12 +209,12 @@ proc is3way {} {
 #
 proc ishost { pattern } {
     global host_triplet
-    
+
     if [string match "" $pattern] {
 	return $host_triplet
     }
     verbose "Checking pattern \"$pattern\" with $host_triplet" 2
-    
+
     if [string match "$pattern" $host_triplet] {
 	return 1
     } else {
@@ -230,7 +230,7 @@ proc ishost { pattern } {
 #
 proc istarget { args } {
     global target_triplet
-    
+
     # if no arg, return the config string
     if [string match "" $args] {
 	if [info exists target_triplet] {
@@ -262,7 +262,7 @@ proc istarget { args } {
 proc isnative { } {
     global target_triplet
     global build_triplet
-    
+
     if [string match $build_triplet $target_triplet] {
 	return 1
     }
@@ -302,7 +302,7 @@ proc unknown { args } {
 proc clone_output { message } {
     global sum_file
     global all_flag
-    
+
     if { $sum_file != "" } {
 	puts $sum_file "$message"
     }
@@ -338,7 +338,7 @@ proc reset_vars {} {
     # other miscellaneous variables
     global prms_id
     global bug_id
-    
+
     # reset them all
     set prms_id	0
     set bug_id	0
@@ -423,7 +423,7 @@ proc log_summary { args } {
 		incr totlcnt test_counts($x,$which)
 	    }
 	    set testcnt test_counts(total,$which)
-	    
+
 	    if { $testcnt>$totlcnt || $testcnt<$totlcnt } {
 		if { $testcnt > $totlcnt } {
 		    set mismatch "unreported  [expr $testcnt-$totlcnt]"
@@ -470,7 +470,7 @@ proc cleanup {} {
     global exit_status
     global done_list
     global subdir
-    
+
     #catch "exec rm -f [glob xgdb core *.x *.o *_soc a.out]"
     #catch "exec rm -f [glob -nocomplain $subdir/*.o $subdir/*.x $subdir/*_soc]"
 }
@@ -485,13 +485,13 @@ proc cleanup {} {
 proc setup_xfail { args } {
     global xfail_flag
     global xfail_prms
-    
+
     set xfail_prms 0
     set argc [ llength $args ]
     for { set i 0 } { $i < $argc } { incr i } {
 	set sub_arg [ lindex $args $i ]
 	# is a prms number. we assume this is a string with no '-' characters
-	if [regexp "^\[^\-\]+$" $sub_arg] { 
+	if [regexp "^\[^\-\]+$" $sub_arg] {
 	    set xfail_prms $sub_arg
 	    continue
 	}
@@ -512,19 +512,19 @@ proc setup_xfail { args } {
 # bug id.
 #
 # Multiple target triplet patterns can be specified for targets
-# for which the test is known to fail.  
+# for which the test is known to fail.
 #
 #
 proc setup_kfail { args } {
     global kfail_flag
     global kfail_prms
-    
+
     set kfail_prms 0
     set argc [ llength $args ]
     for { set i 0 } { $i < $argc } { incr i } {
 	set sub_arg [ lindex $args $i ]
 	# is a prms number. we assume this is a string with no '-' characters
-	if [regexp "^\[^\-\]+$" $sub_arg] { 
+	if [regexp "^\[^\-\]+$" $sub_arg] {
 	    set kfail_prms $sub_arg
 	    continue
 	}
@@ -542,7 +542,7 @@ proc setup_kfail { args } {
 
 # check to see if a conditional xfail is triggered
 #	message {targets} {include} {exclude}
-#              
+#
 #
 proc check_conditional_xfail { args } {
     global compiler_flags
@@ -565,10 +565,10 @@ proc check_conditional_xfail { args } {
     } else {
 	set excludes ""
     }
-    
+
     # loop through all the targets, checking the options for each one
     verbose "Compiler flags are: $compiler_flags" 2
-    
+
     set incl_hit 0
     set excl_hit 0
     foreach targ $target_list {
@@ -577,7 +577,7 @@ proc check_conditional_xfail { args } {
 	    # this is really messy cause each set of options to look for
 	    # may also be a list. We also want to find each element of the
 	    # list, regardless of order to make sure they're found.
-	    # So we look for lists in side of lists, and make sure all 
+	    # So we look for lists in side of lists, and make sure all
 	    # the elements match before we decide this is legit.
 	    # Se we 'incl_hit' to 1 before the loop so that if the 'includes'
 	    # list is empty, this test will report a hit.  (This can be
@@ -644,7 +644,7 @@ proc check_conditional_xfail { args } {
 proc clear_xfail { args } {
     global xfail_flag
     global xfail_prms
-    
+
     set argc [ llength $args ]
     for { set i 0 } { $i < $argc } { incr i } {
 	set sub_arg [ lindex $args $i ]
@@ -666,7 +666,7 @@ proc clear_xfail { args } {
 proc clear_kfail { args } {
     global kfail_flag
     global kfail_prms
-    
+
     set argc [ llength $args ]
     for { set i 0 } { $i < $argc } { incr i } {
 	set sub_arg [ lindex $args $i ]
@@ -723,7 +723,7 @@ proc record_test { type message args } {
         if [info exists errorInfo] {
 	    set error $errorInfo
         }
-        global expect_out 
+        global expect_out
 	set rio { "" "" }
 	if { [catch { set rio [split $expect_out(buffer) "\n"] } result]} {
 		#do nothing - leave as { "" "" }
@@ -835,7 +835,7 @@ proc record_test { type message args } {
     if {[info exists local_record_procs($lowcase_type)]} {
 	$local_record_procs($lowcase_type) "$message"
     }
-    
+
     # Reset these so they're ready for the next test case.  We don't reset
     # prms_id or bug_id here.  There may be multiple tests for them.  Instead
     # they are reset in the main loop after each test.  It is also the
@@ -861,7 +861,7 @@ proc pass { message } {
 	}
 	unset compiler_conditional_xfail_data
     }
-    
+
     if $kfail_flag {
 	record_test KPASS $message
     } elseif $xfail_flag {
@@ -949,14 +949,14 @@ proc get_warning_threshold { } {
 #
 proc warning { args } {
     global warncnt
- 
+
     if { [llength $args] > 1 } {
 	set warncnt [lindex $args 1]
     } else {
 	incr warncnt
     }
     set message [lindex $args 0]
-    
+
     clone_output "WARNING: $message"
 
     global errorInfo
@@ -967,7 +967,7 @@ proc warning { args } {
 
 #
 # Prints error messages
-# These are errors from the framework, not from the tools being tested. 
+# These are errors from the framework, not from the tools being tested.
 # It takes a string, and an optional number and returns nothing.
 #
 proc perror { args } {
@@ -979,7 +979,7 @@ proc perror { args } {
 	incr errcnt
     }
     set message [lindex $args 0]
-    
+
     clone_output "ERROR: $message"
 
     global errorInfo