[OpenBIOS] r441 - dev/olpc/cafenand
svn at openbios.org
svn at openbios.org
Thu Jun 7 02:32:10 CEST 2007
Author: wmb
Date: 2007-06-07 02:32:10 +0200 (Thu, 07 Jun 2007)
New Revision: 441
Modified:
dev/olpc/cafenand/selftest.fth
Log:
OLPC CaFe NAND selftest - fixed a stack error.
Modified: dev/olpc/cafenand/selftest.fth
===================================================================
--- dev/olpc/cafenand/selftest.fth 2007-06-07 00:13:32 UTC (rev 440)
+++ dev/olpc/cafenand/selftest.fth 2007-06-07 00:32:10 UTC (rev 441)
@@ -67,10 +67,16 @@
." Fill " dup .d ." random blocks with h# 55, h# aa and h# ff" cr
0 ?do
- i 1 > if random-page else i 0<> if usable-page-limit 1- else 0 then then
- pages/eblock 1- invert and
+ i case
+ 0 of 0 endof
+ 1 of usable-page-limit 1- endof
+ ( default ) random-page swap
+ endcase ( block# )
+ pages/eblock 1- invert and ( block#' )
- dup block-bad? not if
+ dup block-bad? if ( block#' )
+ drop ( )
+ else ( block#' )
(cr dup .
sbuf over read-eblock dup record-err 0= if
dup h# 55 test-eblock record-err
More information about the OpenBIOS
mailing list