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

[fw/openocd] / tcl / target / stm32mp15x.cfg

diff --git a/tcl/target/stm32mp15x.cfg b/tcl/target/stm32mp15x.cfg
index 1b2ae7d5e71143797ba0a0bfe88c629620e6d1c7..e50ef9c20ec70373b165f48e529b41022c9822d0 100644 (file)
--- a/tcl/target/stm32mp15x.cfg
+++ b/tcl/target/stm32mp15x.cfg
@@ -107,7 +107,7 @@ proc toggle_cpu0_dbg_claim0 {} {
 
 proc detect_cpu1 {} {
        $::_CHIPNAME.ap1 mem2array cpu1_prsr 32 0xE00D2314 1
-       set dual_core [expr $cpu1_prsr(0) & 1]
+       set dual_core [expr {$cpu1_prsr(0) & 1}]
        if {! $dual_core} {$::_CHIPNAME.cpu1 configure -defer-examine}
 }