tcl: [3/3] prepare for jimtcl 0.81 'expr' syntax change

[fw/openocd] / tcl / chip / st / spear / quirk_no_srst.tcl

diff --git a/tcl/chip/st/spear/quirk_no_srst.tcl b/tcl/chip/st/spear/quirk_no_srst.tcl
index 515fb5824ae3b3881dfa0af7e265d3c865221283..551df061d48492baddad65578b7f5353f30972ce 100644 (file)
--- a/tcl/chip/st/spear/quirk_no_srst.tcl
+++ b/tcl/chip/st/spear/quirk_no_srst.tcl
@@ -24,7 +24,7 @@ set sp_reset_mode ""
 proc sp_is_halted {} {
        global sp_target_name
 
-       return [expr [string compare [$sp_target_name curstate] "halted" ] == 0]
+       return [expr {[string compare [$sp_target_name curstate] "halted" ] == 0}]
 }
 
 # wait for reset button to be pressed, causing CPU to get halted