[openfirmware] r1532 - ofw/fs
svn at openfirmware.info
svn at openfirmware.info
Wed Dec 2 15:26:51 CET 2009
Author: wmb
Date: 2009-12-02 15:26:50 +0100 (Wed, 02 Dec 2009)
New Revision: 1532
Modified:
ofw/fs/zipfs.fth
Log:
OLPC Trac 9784 - fixed zip decoding bug introduced by recent revamp of zip filesystem code.
Modified: ofw/fs/zipfs.fth
===================================================================
--- ofw/fs/zipfs.fth 2009-12-02 12:13:46 UTC (rev 1531)
+++ ofw/fs/zipfs.fth 2009-12-02 14:26:50 UTC (rev 1532)
@@ -155,7 +155,7 @@
: read-end-header ( -- ) zip-buffer /end-header read drop ;
: first-file-header ( -- false | id true )
- d# 2000 4 do
+ d# 2000 0 do
i get-file-header? if true unloop exit else drop then ( )
loop
0
More information about the openfirmware
mailing list