X-Git-Url: https://git.gag.com/?a=blobdiff_plain;ds=sidebyside;f=tcl%2Ftest%2Fselftest.cfg;h=0331b482f53251ee30892967c822159c527a546d;hb=e53f1c907a9ab16eba320d295db4d68d4b607cc1;hp=be420ca0ca9c8269c729fa5b23e6c3b638e4c19f;hpb=e7b2958229c7e0d7e98e130764aa50d1ca9017d3;p=fw%2Fopenocd

diff --git a/tcl/test/selftest.cfg b/tcl/test/selftest.cfg
old mode 100755
new mode 100644
index be420ca0c..0331b482f
--- a/tcl/test/selftest.cfg
+++ b/tcl/test/selftest.cfg
@@ -3,11 +3,11 @@ 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