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

[fw/openocd] / tcl / target / bluenrg-x.cfg

diff --git a/tcl/target/bluenrg-x.cfg b/tcl/target/bluenrg-x.cfg
index a9d321ee6bc1e9ea7c3c9addc5d68eca004d15f2..66473251fdab9fd8c7d1a3fc765405016c1d9ede 100644 (file)
--- a/tcl/target/bluenrg-x.cfg
+++ b/tcl/target/bluenrg-x.cfg
@@ -54,9 +54,9 @@ $_TARGETNAME configure -event halted {
     if {$_JTAG_IDCODE != 0x0201E041} {
         # Stop watchdog during halt, if enabled. Only Bluenrg-1/2
         set WDOG_VALUE [mrw 0x40700008]
-        if [expr ($WDOG_VALUE & (1 << 1))] {
+        if [expr {$WDOG_VALUE & (1 << 1)}] {
             set WDOG_VALUE_SET 1
-            mww 0x40700008 [expr ($WDOG_VALUE & 0xFFFFFFFD)]
+            mww 0x40700008 [expr {$WDOG_VALUE & 0xFFFFFFFD}]
         }
     }
 }