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

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

diff --git a/tcl/target/hilscher_netx500.cfg b/tcl/target/hilscher_netx500.cfg
index 93375fd819f65f85198dcbb5da49b5936c874ae6..6d919f9dd864f2025dfe88c1fa8b91303ffad20e 100644 (file)
--- a/tcl/target/hilscher_netx500.cfg
+++ b/tcl/target/hilscher_netx500.cfg
@@ -36,10 +36,10 @@ proc mread32 {addr} {
 proc sdram_fix { } {
 
   set accesskey [mread32 0x00100070]
-  mww 0x00100070 [expr $accesskey]
+  mww 0x00100070 $accesskey
   mww 0x0010002c 0x00000001
 
-  if {[expr [mread32 0x0010002c] & 0x07] == 0x07} {
+  if {[expr {[mread32 0x0010002c] & 0x07}] == 0x07} {
         puts "SDRAM Fix was not executed. Probably your CPU halted too late and the register is already locked!"
   } else {
         puts "SDRAM Fix succeeded!"