[openfirmware] r1698 - ofw/fs/ext2fs

[svn at openfirmware.info]

Author: wmb
Date: 2010-01-25 09:37:51 +0100 (Mon, 25 Jan 2010)
New Revision: 1698

Modified:
   ofw/fs/ext2fs/dir.fth
Log:
OLPC trac 9998 - ext2 file system - Fixed problem with deleting
the last file in a directory.


Modified: ofw/fs/ext2fs/dir.fth
===================================================================
--- ofw/fs/ext2fs/dir.fth	2010-01-25 08:36:22 UTC (rev 1697)
+++ ofw/fs/ext2fs/dir.fth	2010-01-25 08:37:51 UTC (rev 1698)
@@ -201,6 +201,7 @@
 
 \ delete directory entry at diroff
 : dirent-unlink   ( -- )
+   inode# >r
    dirent-inode@ set-inode  -1 +link-count
 
    \ Release the inode if it has no more links
@@ -217,6 +218,7 @@
       \ First dirent in block; zap its inode
       0 dirent-inode!
    then      
+   r> set-inode
 ;
 
 \ The argument inode# means the inode to which the new directory entry