tcl/target: stm32[fl]4x: document the settings for trace

[fw/openocd] / tcl / test / selftest.cfg

diff --git a/tcl/test/selftest.cfg b/tcl/test/selftest.cfg
index be420ca0ca9c8269c729fa5b23e6c3b638e4c19f..10efb0c6dfcf830ab2d379a7970e60189dd372bc 100644 (file)
--- a/tcl/test/selftest.cfg
+++ b/tcl/test/selftest.cfg
@@ -1,13 +1,14 @@
+# SPDX-License-Identifier: GPL-2.0-or-later
 
 add_help_text selftest "run selftest using working ram <tmpfile> <address> <size>"
 
 proc selftest {tmpfile address size} {
 
-   for {set i 0} {$i < $size } {set i [expr $i+4]} {
-       mww [expr $address+$i] $i
+   for {set i 0} {$i < $size } {set i [expr {$i+4}]} {
+       mww [expr {$address+$i}] $i
    }
 
-   for {set i 0} {$i < 10 } {set i [expr $i+1]} {
+   for {set i 0} {$i < 10 } {set i [expr {$i+1}]} {
     echo "Test iteration $i"
     dump_image $tmpfile $address $size
        verify_image $tmpfile $address bin