[OpenBIOS] r554 - cpu/x86/pc/olpc dev/olpc/cafenand
svn at openbios.org
svn at openbios.org
Thu Aug 16 22:58:17 CEST 2007
Author: wmb
Date: 2007-08-16 22:58:17 +0200 (Thu, 16 Aug 2007)
New Revision: 554
Modified:
cpu/x86/pc/olpc/nandstat.fth
dev/olpc/cafenand/badblock.fth
Log:
Graphical copy-nand - fixed some stack bugs in the support routines.
Modified: cpu/x86/pc/olpc/nandstat.fth
===================================================================
--- cpu/x86/pc/olpc/nandstat.fth 2007-08-16 20:53:50 UTC (rev 553)
+++ cpu/x86/pc/olpc/nandstat.fth 2007-08-16 20:58:17 UTC (rev 554)
@@ -50,14 +50,14 @@
h# ff h# ff 0 rgb>565 ( #eblocks color )
0 rot 0 ?do ( color eblock# )
dup nand-pages/block * " block-bad?" $call-nand 0= if ( color eblock# )
- 2dup swap show-state
- 1
- else
- 0
- then
- swap 1+ swap
- +loop
- drop
+ 2dup swap show-state ( color eblock# )
+ 1 ( color eblock# increment )
+ else ( color eblock# )
+ 0 ( color eblock# increment )
+ then ( color eblock# increment )
+ swap 1+ swap ( color eblock#' increment )
+ +loop ( color eblock#' )
+ 2drop
;
: gshow-written ( eblock# -- ) 0 h# ff 0 rgb>565 show-state ;
Modified: dev/olpc/cafenand/badblock.fth
===================================================================
--- dev/olpc/cafenand/badblock.fth 2007-08-16 20:53:50 UTC (rev 553)
+++ dev/olpc/cafenand/badblock.fth 2007-08-16 20:58:17 UTC (rev 554)
@@ -307,8 +307,8 @@
i pages/eblock / over execute
i erase-block
then
- pages/eblock +loop
- exit
+ pages/eblock +loop ( 'show-bad 'show-erased )
+ 2drop exit
then ( 'show-bad 'show-erased )
\ If there is no existing bad block table, make one from factory info
make-bbt
More information about the OpenBIOS
mailing list