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

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

diff --git a/tcl/board/imx31pdk.cfg b/tcl/board/imx31pdk.cfg
index 2dce157dbc72fb91db28cc2a2bfdf43bc5100bf5..6c196543cd91ba7c7fd3a9b472d908d5a1b75212 100644 (file)
--- a/tcl/board/imx31pdk.cfg
+++ b/tcl/board/imx31pdk.cfg
@@ -6,7 +6,7 @@ $_TARGETNAME configure -event reset-init { imx31pdk_init }
 proc self_test {} {
        echo "Running 100 iterations of test."
        dump_image /ram/test 0x80000000 0x40000
-       for {set i 0} {$i < 100} {set i [expr $i+1]} {
+       for {set i 0} {$i < 100} {set i [expr {$i+1}]} {
                echo "Iteration $i"
                reset init
                mww 0x80000000 0x12345678 0x10000