[openfirmware] r1215 - ofw/fs
svn at openfirmware.info
svn at openfirmware.info
Sat Jun 6 01:33:43 CEST 2009
Author: wmb
Date: 2009-06-06 01:33:43 +0200 (Sat, 06 Jun 2009)
New Revision: 1215
Modified:
ofw/fs/minix.fth
Log:
Minix file system reader - fixed bug that prevented reading files.
Modified: ofw/fs/minix.fth
===================================================================
--- ofw/fs/minix.fth 2009-06-05 17:33:48 UTC (rev 1214)
+++ ofw/fs/minix.fth 2009-06-05 23:33:43 UTC (rev 1215)
@@ -340,7 +340,7 @@
: fsfread ( adr len 'fh -- #read )
\ fh is implicit (it is in our instance context) and len will be /zone
2drop ( adr )
- file-size lblk# /zone * - if drop 0 exit then ( adr )
+ file-size lblk# /zone * u< if drop 0 exit then ( adr )
next-zone# read-zone abort" fsfread failed" ( )
file-size lblk# /zone * - dup 0< if ( shortfall )
/zone + ( #read )
More information about the openfirmware
mailing list