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 ;