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

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

diff --git a/tcl/board/nxp_imx7sabre.cfg b/tcl/board/nxp_imx7sabre.cfg
index c595e3a679bd3494ae9129fa21877a04330d4f2c..789fc5b6292053d3837cff7705db1f2519ff1c28 100644 (file)
--- a/tcl/board/nxp_imx7sabre.cfg
+++ b/tcl/board/nxp_imx7sabre.cfg
@@ -27,7 +27,7 @@ proc imx7_uart_dbgconf { } {
 }
 
 proc check_bits_set_32 { addr mask } {
-    while { [expr [mrw $addr] & $mask == 0] } { }
+    while { [expr {[mrw $addr] & $mask} == 0] } { }
 }
 
 proc apply_dcd { } {