startup.tcl: prepare for jimtcl 0.81 'expr' syntax change

[fw/openocd] / src / jtag / startup.tcl

diff --git a/src/jtag/startup.tcl b/src/jtag/startup.tcl
index c1eb2b2ee00aaf84aa4a3543485ae51fa936877a..3060c5c0643a8e5888dbf8be6c4b1d363e738dff 100644 (file)
--- a/src/jtag/startup.tcl
+++ b/src/jtag/startup.tcl
@@ -81,9 +81,10 @@ proc srst_asserted {} {
 # measure actual JTAG clock
 proc measure_clk {} {
        set start_time [ms];
-        set iterations 10000000;
+       set iterations 10000000;
        runtest $iterations;
-       echo "Running at more than [expr $iterations.0 / ([ms]-$start_time)] kHz";
+       set speed [expr "$iterations.0 / ([ms] - $start_time)"]
+       echo "Running at more than $speed kHz";
 }
 
 add_help_text measure_clk "Runs a test to measure the JTAG clk. Useful with RCLK / RTCK."