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]} {
- puts "Test iteration $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