[openfirmware] r1067 - cpu/x86/pc/olpc

[svn at openfirmware.info]

Author: wmb
Date: 2009-01-07 10:14:26 +0100 (Wed, 07 Jan 2009)
New Revision: 1067

Modified:
   cpu/x86/pc/olpc/copynand.fth
Log:
OLPC trac 9179 - fixed Divide Error in scan-nand examination phase.





Modified: cpu/x86/pc/olpc/copynand.fth
===================================================================
--- cpu/x86/pc/olpc/copynand.fth	2009-01-07 09:07:30 UTC (rev 1066)
+++ cpu/x86/pc/olpc/copynand.fth	2009-01-07 09:14:26 UTC (rev 1067)
@@ -27,7 +27,7 @@
    fileih  ?dup  if  0 to fileih  close-dev  then
 ;
 : close-nand  ( -- )
-   nandih  ?dup  if  0 to nandih  close-dev  0 to #nand-pages  then
+   nandih  ?dup  if  0 to nandih  close-dev  then
 ;
 : close-nand-ihs  ( -- )
    0 to nanddump-mode?
@@ -697,7 +697,7 @@
 
 : slowdump-nand  ( -- )
    \ The stack is empty at the end of each line unless otherwise noted
-   #nand-pages  0  do
+   #nand-pages  0  ?do
       (cr i >eblock# .
       load-base  i  nand-pages/block  " read-pages" $call-nand  ( #read )
       nand-pages/block =  if