Author: wmb Date: 2008-07-01 02:55:01 +0200 (Tue, 01 Jul 2008) New Revision: 841
Modified: dev/olpc/cafenand/selftest.fth Log: OLPC trac #7399 - fixed "test /nandflash::fixbbt" command.
Modified: dev/olpc/cafenand/selftest.fth =================================================================== --- dev/olpc/cafenand/selftest.fth 2008-06-27 21:28:06 UTC (rev 840) +++ dev/olpc/cafenand/selftest.fth 2008-07-01 00:55:01 UTC (rev 841) @@ -137,7 +137,7 @@
\ Destroy content of flash. Argument is hex byte pattern value. : .skip-bad ( page# -- ) (cr ." Skip bad block" .page-byte cr ; -: fill ( subarg$ -- ) +: pfill ( subarg$ -- ) $number if 0 else 0 max h# ff min then ." Fill nandflash with h# " dup u. cr
@@ -222,7 +222,7 @@ i save-eblock 0= if ( stride ) i h# 55 test-eblock record-err ( stride ) i h# aa test-eblock record-err ( stride ) - restore-eblock ( stride ) + i restore-eblock ( stride ) then ( stride ) then ( stride ) dup +loop drop ( ) @@ -235,6 +235,7 @@ true to fixbbt? full #fixbbt if save-bbt then + false to selftest-err? \ Don't say "failed" if asked to fix the table ;
: none ( subarg$ -- ) 2drop exit ; @@ -250,7 +251,7 @@ ." none to do nothing" cr ." help to get this usage guide" cr ." erase! to erase the flash (destructive)" cr - ." fill[,<data>] to fill the flash with hex byte pattern <data> (destructive)" cr + ." pfill[,<data>] to fill the flash with hex byte pattern <data> (destructive)" cr ." Default <data> is 00" cr ." fast[,<#blk>] to non-destructively test the specified <#blk> of flash" cr ." Default <#blk> is decimal 10" cr