r1542 - ofw/fs

Author: wmb
Date: 2009-12-06 14:57:39 +0100 (Sun, 06 Dec 2009)
New Revision: 1542

Modified:
   ofw/fs/zipfs.fth
Log:
Fixed a bug in zipfs's handling of symlinks - it caused dir to hang.

Modified: ofw/fs/zipfs.fth
===================================================================
--- ofw/fs/zipfs.fth	2009-12-06 13:56:04 UTC (rev 1541)
+++ ofw/fs/zipfs.fth	2009-12-06 13:57:39 UTC (rev 1542)
@@ -45,6 +45,8 @@
 0 instance value name-len
 : zip-name$  ( -- adr len )  zip-name name-len  ;

+d# 512 instance buffer: saved-name
+
 d# 512 instance buffer: path-prefix
 0 instance value prefix-len
 : prefix$  ( -- adr len )  path-prefix prefix-len  ;
@@ -376,7 +378,7 @@
    \     di-expansion be-l@                ( id s m h d m y size )
    \     ?dup 0=  if  di-size be-l@  then  ( id s m h d m y size )
          zip-attrs                         ( id s m h d m y size attributes )
-         zip-name$                         ( id s m h d m y size attr name$ )
+         zip-name$ saved-name $save        ( id s m h d m y size attr name$ )
          prefix-len /string                ( id s m h d m y size attr name$' )
          true                              ( id s m h d m y size attr name$ true )
          exit