Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29423/src/kernel
Modified Files:
fkernel.f
Log Message:
Removed my (checksource) hack from REFILL, since the real bug was in SciEdit and not in the kernel.
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -d -r1.20 -r1.21
*** fkernel.f 18 Aug 2005 16:18:23 -0000 1.20
--- fkernel.f 19 Aug 2005 16:08:11 -0000 1.21
***************
*** 4607,4623 ****
0 value len-prev
- \ added for cf32 port (Samstag, August 13 2005 dbu)
- \ I don't know why, but when the last line of a source file is read
- \ then the last byte in TIB is a null byte. In older w32f version's
- \ (V3.5) there was no null byte in TIB. So this is makeing trubble
- \ in cf32, so I added this check as a quick and dirty fix.
- : (checksource) ( -- )
- (SOURCE) @
- if source + 1- c@ 0=
- if (source) @ 1- (source) !
- \ ." - source adjust"
- then
- then ;
-
: REFILL ( -- f ) \ refill TIB from current input stream
SOURCE-ID ?DUP
--- 4607,4610 ----
***************
*** 4632,4636 ****
IF DUP 2 + TO LEN-PREV
(SOURCE) !
- (checksource) \ added for cf32 port (Samstag, August 13 2005 dbu)
>IN OFF
.REFILL
--- 4619,4622 ----
***************
*** 5781,5783 ****
' ?THROW RESOLVES ?THROW
' WARNMSG RESOLVES WARNMSG
- |
