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

[fw/openocd] / tcl / chip / st / spear / spear3xx_ddr.tcl

diff --git a/tcl/chip/st/spear/spear3xx_ddr.tcl b/tcl/chip/st/spear/spear3xx_ddr.tcl
index a9787d11d4c8d206ae3166976be2c495e47ba749..22fe06eaf7171781662b710e72f7b1ea98670012 100644 (file)
--- a/tcl/chip/st/spear/spear3xx_ddr.tcl
+++ b/tcl/chip/st/spear/spear3xx_ddr.tcl
@@ -28,7 +28,7 @@ proc sp3xx_ddr_init {ddr_type {ddr_chips 1}} {
        if { $ddr_chips == 2 } {
                echo [format \
                        "Double chip DDR memory. Total memory size 0x%08x byte" \
-                       [expr 2 * $ddr_size]]
+                       [expr {2 * $ddr_size}]]
        } else {
                echo [format \
                        "Single chip DDR memory. Memory size 0x%08x byte" \