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 ) ;