r441 - dev/olpc/cafenand

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