17 lines
428 B
INI
17 lines
428 B
INI
|
|
||
|
|
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]} {
|
||
|
|
puts "Test iteration $i"
|
||
|
|
dump_image $tmpfile $address $size
|
||
|
|
verify_image $tmpfile $address bin
|
||
|
|
load_image $tmpfile $address bin
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|