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

[fw/openocd] / tcl / board / dm355evm.cfg

diff --git a/tcl/board/dm355evm.cfg b/tcl/board/dm355evm.cfg
index 1e35b68fab27fe88d30393acc1b92b7bd277972e..bf5659cccb0c8998466c520e8d0805bae07ea8c2 100644 (file)
--- a/tcl/board/dm355evm.cfg
+++ b/tcl/board/dm355evm.cfg
@@ -87,7 +87,7 @@ proc dm355evm_init {} {
        mmw $addr 0x2000 0
 
        # wait for READY
-        while { [expr [mrw $addr] & 0x8000] == 0 } { sleep 1 }
+        while { [expr {[mrw $addr] & 0x8000}] == 0 } { sleep 1 }
 
        # set IO_READY; then LOCK and PWRSAVE; then PWRDN
        mmw $addr 0x4000 0