Changeset 2946

Timestamp:

Apr 19, 2012 9:05:54 PM (13 months ago)

Author:

wmb

Message:

OLPC trac 11786 - fixed bug with file deletion introduced by svn 2817.

File:

• ofw/fs/ext2fs/dir.fth (modified) (1 diff)

ofw/fs/ext2fs/dir.fth

@@ -78 +78 @@
 : +link-count  ( increment -- )
    \ link-count = 1 means that the directory has more links than can
-   \ be represented in a 16-bit number
-   link-count 1 =  if  drop exit  then  \ Don't increment if already 1
+   \ be represented in a 16-bit number; don't increment in that case.
+   dir?  if                ( increment )
+      link-count 1 =  if   ( increment )
+         drop exit         ( -- )
+      then                 ( increment )
+   then                    ( increment )
+
+   link-count +            ( link-count' )
 
    \ If the incremented value exceeds the limit, store 1
    \ We should also set the RO_COMPAT_DIR_NLINK bit in the superblock,
-   \ but we assume that OFW won't really be used to create enormous directories
-   link-count +  dup d# 65000 >=  if  drop 1  then  ( link-count )
-
-   link-count!
+   \ but we assume that OFW won't be used to create enormous directories
+   dir?  if                ( link-count )
+      dup d# 65000 >=  if  ( link-count )
+         drop 1            ( link-count' )
+      then                 ( link-count' )
+   then                    ( link-count )
+
+   link-count!             ( )
 ;