[openfirmware] r1542 - ofw/fs
svn at openfirmware.info
svn at openfirmware.info
Sun Dec 6 14:57:39 CET 2009
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
More information about the openfirmware
mailing list