[OpenBIOS] r680 - ofw/fs/jffs2

[svn at openbios.org]

Author: wmb
Date: 2007-10-16 20:24:46 +0200 (Tue, 16 Oct 2007)
New Revision: 680

Modified:
   ofw/fs/jffs2/jffs2.fth
Log:
Fixed a bug introduced by r674, resolving OLPC Trac #4227.


Modified: ofw/fs/jffs2/jffs2.fth
===================================================================
--- ofw/fs/jffs2/jffs2.fth	2007-10-15 01:03:25 UTC (rev 679)
+++ ofw/fs/jffs2/jffs2.fth	2007-10-16 18:24:46 UTC (rev 680)
@@ -446,6 +446,7 @@
 \ with millions (literally) of obsolete records.
 
 variable prev-dirent  -1 prev-dirent !  \ Needed for erasing old one
+variable prev-pino    -1 prev-pino   !  \ Needed for restoring old state for regenerating
 variable prev-offset  -1 prev-offset !  \ Needed for restoring old state for regenerating
 d# 256 instance buffer: prev-name
 
@@ -457,6 +458,8 @@
    2drop                                         ( boffset pino )
 
    dup  cur-pino @  <>  if  exit  then           ( boffset pino )
+
+   prev-pino   @ cur-pino !
    prev-dirent @ 'next-dirent !
    prev-offset @ dirent-offset !
 ;
@@ -478,6 +481,7 @@
 
    swap pack-offset  swap               ( offset pino )
    dup cur-pino @ <>  if                ( offset pino )
+      cur-pino @ prev-pino !            ( offset pino )
       dup cur-pino !                    ( offset pino )
       encode-dirent-long                ( offset dirent-len )
    else                                 ( offset pino )