r711 - ofw/fs/jffs2

Author: wmb
Date: 2007-11-05 19:38:22 +0100 (Mon, 05 Nov 2007)
New Revision: 711

Modified:
   ofw/fs/jffs2/jffs2.fth
Log:
OLPC trac 4599 - first-time? must be considered in optimizing out rescanning,
in case the NAND image was changed underneath JFFS2.

Modified: ofw/fs/jffs2/jffs2.fth
===================================================================
--- ofw/fs/jffs2/jffs2.fth	2007-11-04 17:32:52 UTC (rev 710)
+++ ofw/fs/jffs2/jffs2.fth	2007-11-05 18:38:22 UTC (rev 711)
@@ -118,7 +118,7 @@
 : eblock>page  ( eblock# -- page# )  pages/eblock *  ;
 : page>eblock  ( page# -- eblock# )  pages/eblock /  ;

--1 ( instance ) value have-eblock#  \ For avoiding redundant reads
+-1 instance value have-eblock#  \ For avoiding redundant reads
 : (read-pages)  ( page# #pages  -- #read )
    \ Partial reads invalidate the cache
    dup pages/eblock <>  if  -1 to have-eblock#  then  ( page# #pages )
@@ -824,7 +824,7 @@
 ;

: scan-occupied  ( -- )
-   " partition#" $call-parent partition# =  if  exit  then
+   " partition#" $call-parent partition# =  first-time? 0= and  if  exit  then
    init-curvars
    dirents 'next-dirent !
    inodes  'next-inode  !