r1215 - ofw/fs

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 )