[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.20,1.21

[Dirk B. <db...@us...>]

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
-