-\r
-add_help_text selftest "run selftest using working ram <tmpfile> <address> <size>"\r
-\r
-proc selftest {tmpfile address size} {\r
-\r
- for {set i 0} {$i < $size } {set i [expr $i+4]} {\r
- mww [expr $address+$i] $i\r
- }\r
-\r
- for {set i 0} {$i < 10 } {set i [expr $i+1]} {\r
- puts "Test iteration $i"\r
- dump_image $tmpfile $address $size\r
- verify_image $tmpfile $address bin\r
- load_image $tmpfile $address bin\r
- }\r
-\r
-}
\ No newline at end of file
+
+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 < 10 } {set i [expr {$i+1}]} {
+ echo "Test iteration $i"
+ dump_image $tmpfile $address $size
+ verify_image $tmpfile $address bin
+ load_image $tmpfile $address bin
+ }
+
+}