Strip trailing semicolons from Tcl source files.

1 files changed, 16 insertions, 16 deletions

diff --git a/config/unix.exp b/config/unix.exp
index 971ed2a..c8263d7 100644
--- a/config/unix.exp
+++ b/config/unix.exp
@@ -39,13 +39,13 @@ proc unix_load { dest prog args } {
     set orig_ld_library_path ""
 
     if { [llength $args] > 0 } {
-	set parg [lindex $args 0];
+	set parg [lindex $args 0]
     } else {
 	set parg ""
     }
 
     if { [llength $args] > 1 } {
-	set inp [lindex $args 1];
+	set inp [lindex $args 1]
     } else {
 	set inp ""
     }
@@ -61,7 +61,7 @@ proc unix_load { dest prog args } {
 	if { "$inp" != "" } {
 	    set command "$prog $parg < $inp"
 	} else {
-	    set command "$prog $parg";
+	    set command "$prog $parg"
 	}
 
         if ![info exists ld_library_path] {
@@ -73,14 +73,14 @@ proc unix_load { dest prog args } {
 	setenv SHLIB_PATH "$ld_library_path:$orig_ld_library_path"
 	verbose -log "Setting LD_LIBRARY_PATH to $ld_library_path:$orig_ld_library_path" 2
 
-	set id [remote_spawn $dest "$command" "readonly"];
+	set id [remote_spawn $dest "$command" "readonly"]
 	if { $id < 0 } {
 	    set output "remote_spawn failed"
-	    set status -1;
+	    set status -1
 	} else {
-	    set status [remote_wait $dest 300];
-	    set output [lindex $status 1];
-	    set status [lindex $status 0];
+	    set status [remote_wait $dest 300]
+	    set output [lindex $status 1]
+	    set status [lindex $status 0]
 	}
 	# Unset them so we don't potentially get hosed when we try to run a
 	# non-testcase executable. (Setting LD_LIBRARY_PATH is the wrong
@@ -92,10 +92,10 @@ proc unix_load { dest prog args } {
 	}
     } else { 
 	set remotefile "/tmp/[file tail $prog].[pid]"
-	set remotefile [remote_download $dest $prog $remotefile];
+	set remotefile [remote_download $dest $prog $remotefile]
 	if { $remotefile == "" } {
 	    verbose -log "Download of $prog to [board_info $dest name] failed." 3
-	    return [list "unresolved" ""];
+	    return [list "unresolved" ""]
 	}
 	if [board_info $dest exists remote_link] {
 	    if [[board_info $dest remote_link] $remotefile] {
@@ -111,11 +111,11 @@ proc unix_load { dest prog args } {
 	    if { [lindex $status 0] != 0 } {
 		remote_file $dest delete ${remotefile}.o $remotefile
 		verbose -log "chmod +x of $prog on $dest failed." 3
-		return [list "unresolved" ""];
+		return [list "unresolved" ""]
 	    }
 	}
 	set status [remote_exec $dest "$remotefile" $parg $inp]
-	remote_file $dest delete $remotefile.o $remotefile;
+	remote_file $dest delete $remotefile.o $remotefile
 	if { [lindex $status 0] < 0 } {
 	    verbose -log "Couldn't execute $prog, [lindex $status 1]" 3
 	    return [list "unresolved" ""]
@@ -132,11 +132,11 @@ proc unix_load { dest prog args } {
 	verbose -- "$output" 2
     }
     if { $status == 0 } {
-	set result "pass";
+	set result "pass"
     } else {
-	set result "fail";
+	set result "fail"
     }
-    return [list $result $output];
+    return [list $result $output]
 }
 
-set_board_info protocol  "unix";
+set_board_info protocol  "unix"