r406 - ofw/fs/jffs2

Author: wmb
Date: 2007-05-20 09:43:43 +0200 (Sun, 20 May 2007)
New Revision: 406

Modified:
   ofw/fs/jffs2/jffs2.fth
Log:
JFFS2 - Fixed bug in handling of deleted files.

Modified: ofw/fs/jffs2/jffs2.fth
===================================================================
--- ofw/fs/jffs2/jffs2.fth	2007-05-20 04:34:30 UTC (rev 405)
+++ ofw/fs/jffs2/jffs2.fth	2007-05-20 07:43:43 UTC (rev 406)
@@ -1059,7 +1059,7 @@
       then                                      ( rdirent )
       i tdlen                                   ( rdirent )
    +loop                                        ( rdirent )
-   place-tdirent                                ( )
+   dup rdinode@  if  place-tdirent  else  drop  then   ( )
 ;

: prep-dirents  ( -- )