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 )