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