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 )