tcl: [1/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 fd02d07c1d85b0e69e36df1ffa1656b6a164c5d9..515fb5824ae3b3881dfa0af7e265d3c865221283 100644 (file)
--- a/tcl/chip/st/spear/quirk_no_srst.tcl
+++ b/tcl/chip/st/spear/quirk_no_srst.tcl
@@ -38,8 +38,8 @@ proc sp_reset_deassert_post {} {
 
        poll on
        echo "====> Press reset button on the board <===="
-       for {set i 0} { [sp_is_halted] == 0 } { set i [expr $i + 1]} {
-               echo -n "$bar([expr $i & 3])\r"
+       for {set i 0} { [sp_is_halted] == 0 } { set i [expr {$i + 1}]} {
+               echo -n "$bar([expr {$i & 3}])\r"
                sleep 200
        }