[openfirmware] r1262 - forth/kernel

[svn at openfirmware.info]

Author: wmb
Date: 2009-07-31 20:44:18 +0200 (Fri, 31 Jul 2009)
New Revision: 1262

Modified:
   forth/kernel/kernel.fth
Log:
Kernel - fixed problem in file buffering that caused failures
with "fputs" when the size of the input array was larger than
the distance from the file buffer to the end of address space.



Modified: forth/kernel/kernel.fth
===================================================================
--- forth/kernel/kernel.fth	2009-07-31 09:27:04 UTC (rev 1261)
+++ forth/kernel/kernel.fth	2009-07-31 18:44:18 UTC (rev 1262)
@@ -2120,7 +2120,7 @@
    \ Advance the file pointer to the new buffer starting position
    bufaddr> fstart 2!                   ( end curr aln-len )
 
-   bfbase @ + bflimit @ umin  bfend !   ( end curr )  \ Room for new bytes
+   bfbase @ + bflimit @ min  bfend !    ( end curr )  \ Room for new bytes
    bfbase @  dup bftop !  bfcurrent !   ( end curr )  \ No valid bytes yet
    false
 ;