| 123456789101112131415161718 |
- # SPDX-License-Identifier: GPL-2.0-or-later
- 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
- }
- }
|