startup.tcl: prepare for jimtcl 0.81 'expr' syntax change

[fw/openocd] / src / target / startup.tcl

diff --git a/src/target/startup.tcl b/src/target/startup.tcl
index cee036697459b387ab6058befa04a13b532587e6..54a3942c529b57713d00a3cafd618ce5ea171ab3 100644 (file)
--- a/src/target/startup.tcl
+++ b/src/target/startup.tcl
@@ -1,7 +1,7 @@
 # Defines basic Tcl procs for OpenOCD target module
 
 proc new_target_name { } {
-       return [target number [expr [target count] - 1 ]]
+       return [target number [expr {[target count] - 1}]]
 }
 
 global in_process_reset
@@ -16,7 +16,7 @@ proc ocd_process_reset { MODE } {
        }
 
        set in_process_reset 1
-       set success [expr [catch {ocd_process_reset_inner $MODE} result]==0]
+       set success [expr {[catch {ocd_process_reset_inner $MODE} result] == 0}]
        set in_process_reset 0
 
        if {$success} {