r1012 - dev/olpc/cafenand

Author: wmb
Date: 2008-12-04 10:17:39 +0100 (Thu, 04 Dec 2008)
New Revision: 1012

Modified:
   dev/olpc/cafenand/redboot.fth
Log:
Fixed a stack bug in redboot.fth; it only affects the case where you try
to create a partition map but the first 16 NAND blocks are all bad.

Modified: dev/olpc/cafenand/redboot.fth
===================================================================
--- dev/olpc/cafenand/redboot.fth	2008-12-04 09:17:34 UTC (rev 1011)
+++ dev/olpc/cafenand/redboot.fth	2008-12-04 09:17:39 UTC (rev 1012)
@@ -44,11 +44,11 @@

0 instance value #partitions
 : read-partmap  ( -- )
-   part-buf  partition-map-page#  if  exit  then
-   partition-start >r  0 to partition-start
-   read-page
-   r> to partition-start
-   if  exit  then
+   part-buf  partition-map-page#  if  drop exit  then   ( buf page# )
+   partition-start >r  0 to partition-start             ( buf page# )
+   read-page                                            ( error? )
+   r> to partition-start                                ( error? )
+   if  exit  then                                       ( )
    part-buf (#partitions)  to #partitions
 ;