Whitespace fixes.

1 files changed, 26 insertions, 26 deletions

diff --git a/contrib/bluegnu2.0.3/lib/framework.exp b/contrib/bluegnu2.0.3/lib/framework.exp
index 2018c4a..5491274 100644
--- a/contrib/bluegnu2.0.3/lib/framework.exp
+++ b/contrib/bluegnu2.0.3/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.
@@ -38,7 +38,7 @@ proc open_logs { } {
     global outdir
     global tool
     global sum_file
-    
+
     if { ${tool} ==  "" } {
 	set tool testrun
     }
@@ -58,7 +58,7 @@ proc open_logs { } {
 #
 proc close_logs { } {
     global sum_file
-    
+
     catch "close $sum_file"
 }
 
@@ -70,7 +70,7 @@ proc close_logs { } {
 proc isbuild { args } {
     global build_triplet
     global host_triplet
-    
+
     if ![info exists build_triplet] {
 	set build_triplet ${host_triplet}
     }
@@ -78,7 +78,7 @@ proc isbuild { args } {
 	return $build_triplet
     }
     verbose "Checking pattern \"$args\" with $build_triplet" 2
-    
+
     if [string match "$args" $build_triplet] {
 	return 1
     } else {
@@ -93,7 +93,7 @@ proc isbuild { args } {
 proc is3way {} {
     global host_triplet
     global build_triplet
-    
+
     if ![info exists build_triplet] {
 	set build_triplet ${host_triplet}
     }
@@ -111,12 +111,12 @@ proc is3way {} {
 #
 proc ishost { args } {
     global host_triplet
-    
+
     if [string match "" $args] {
 	return $host_triplet
     }
     verbose "Checking pattern \"$args\" with $host_triplet" 2
-    
+
     if [string match "$args" $host_triplet] {
 	return 1
     } else {
@@ -132,7 +132,7 @@ proc ishost { args } {
 #
 proc istarget { args } {
     global target_triplet
-    
+
     # if no arg, return the config string
     if [string match "" $args] {
 	if [info exists target_triplet] {
@@ -162,7 +162,7 @@ proc istarget { args } {
 proc isnative { } {
     global target_triplet
     global build_triplet
-    
+
     if [string match $build_triplet $target_triplet] {
 	return 1
     }
@@ -175,7 +175,7 @@ proc isnative { } {
 proc unknown { args } {
     global errorCode
     global errorInfo
-    
+
     clone_output "ERROR: (DejaGnu) proc \"$args\" does not exist."
     if [info exists errorCode] {
         send_error "The error code is $errorCode\n"
@@ -200,7 +200,7 @@ proc unknown { args } {
 proc clone_output { message } {
     global sum_file
     global all_flag
-    
+
     puts $sum_file "$message"
     case [lindex $message 0] in {
 	{"PASS:" "XFAIL:" "UNRESOLVED:" "UNSUPPORTED:" "UNTESTED:"} {
@@ -239,7 +239,7 @@ proc reset_vars {} {
     # other miscellaneous variables
     global prms_id
     global bug_id
-    
+
     # reset them all
     set prms_id	0
     set bug_id	0
@@ -278,9 +278,9 @@ proc log_summary {} {
     global mail_logs
     global outdir
     global mailing_list
-    
+
     clone_output "\n\t\t=== $tool Summary ===\n"
-    
+
     # If the tool set `testcnt', it wants us to do a sanity check on the
     # total count, so compare the reported number of testcases with the
     # expected number.  Maintaining an accurate count in `testcnt' isn't easy
@@ -289,7 +289,7 @@ proc log_summary {} {
 	# total all the testcases reported
 	set totlcnt [expr $failcnt+$passcnt+$xfailcnt+$xpasscnt]
 	set totlcnt [expr $totlcnt+$untestedcnt+$unresolvedcnt+$unsupportedcnt]
-    
+
 	if { $testcnt>$totlcnt || $testcnt<$totlcnt } {
 	    if { $testcnt > $totlcnt } {
 		set mismatch "unreported  [expr $testcnt-$totlcnt]"
@@ -353,7 +353,7 @@ proc cleanup {} {
     global done_list
     global base_dir
     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]"
 }
@@ -368,13 +368,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 number with no characters
-	if [regexp "^\[0-9\]+$" $sub_arg] { 
+	if [regexp "^\[0-9\]+$" $sub_arg] {
 	    set xfail_prms $sub_arg
 	    continue
 	}
@@ -391,7 +391,7 @@ proc setup_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 ]
@@ -507,7 +507,7 @@ proc record_test { type message } {
     } else {
 	clone_output "$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
@@ -580,14 +580,14 @@ proc get_warning_threshold { } {
 proc warning { args } {
     global warncnt
     global errno
- 
+
     if { [llength $args] > 1 } {
 	set warncnt [lindex $args 1]
     } else {
 	incr warncnt
     }
     set message [lindex $args 0]
-    
+
     clone_output "WARNING: $message"
     set errno "WARNING: $message"
 
@@ -599,7 +599,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 } {
@@ -612,7 +612,7 @@ proc perror { args } {
 	incr errcnt
     }
     set message [lindex $args 0]
-    
+
     clone_output "ERROR: $message"
     set errno "ERROR: $message"