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

[fw/openocd] / tcl / cpu / arc / hs.tcl

diff --git a/tcl/cpu/arc/hs.tcl b/tcl/cpu/arc/hs.tcl
index f39f2a7d006b9b0846f3088f6d02ee3dfb965ba7..181f993bf0a375a3f916a38acece4ef5c9e589f6 100644 (file)
--- a/tcl/cpu/arc/hs.tcl
+++ b/tcl/cpu/arc/hs.tcl
@@ -48,7 +48,7 @@ proc arc_hs_reset { {target ""} } {
                        $target arc jtag set-aux-reg 0x904 1
                        set l2_ctrl [$target arc jtag get-aux-reg 0x903]
                        set l2_ctrl [$target arc jtag get-aux-reg 0x903]
-                       while { [expr $l2_ctrl & 0x100] != 0 } {
+                       while { [expr {$l2_ctrl & 0x100}] != 0 } {
                                set l2_ctrl [$target arc jtag get-aux-reg 0x903]
                        }
                }