|
1234567891011121314151617 |
-
- 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
- }
-
- }
|