[OpenBIOS] r667 - dev/olpc/cafenand

[svn at openbios.org]

Author: wmb
Date: 2007-10-05 20:36:19 +0200 (Fri, 05 Oct 2007)
New Revision: 667

Modified:
   dev/olpc/cafenand/ecc.fth
Log:
OLPC NAND driver - fixed ECC correction bug.


Modified: dev/olpc/cafenand/ecc.fth
===================================================================
--- dev/olpc/cafenand/ecc.fth	2007-10-04 08:19:30 UTC (rev 666)
+++ dev/olpc/cafenand/ecc.fth	2007-10-05 18:36:19 UTC (rev 667)
@@ -95,7 +95,7 @@
 \ Find the degree of a polynomial.  The degree of the 0 polynomial is 0.
 : poly-deg  ( poly -- )
    0  9 1  do                           ( 'poly degree )
-      over i wa+ @  if  drop i  then    ( 'poly degree' )
+      over i wa+ w@  if  drop i  then   ( 'poly degree' )
    loop                                 ( 'poly degree )
    nip                                  ( degree )
 ;