[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.30,1.31

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22457/win32forth/src/kernel

Modified Files:
	fkernel.f 
Log Message:
gah: Fixed bug in FILE-SIZE where low order part is 0xFFFFFFFF..

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** fkernel.f	21 May 2006 10:04:49 -0000	1.30
--- fkernel.f	22 May 2006 11:44:14 -0000	1.31
***************
*** 3994,3999 ****
     else
       call GetLastError NO_ERROR <>
!      if
!        2drop 0 0 true
       then
     then ;
--- 3994,3999 ----
     else
       call GetLastError NO_ERROR <>
!      -if
!        3drop 0 0 true
       then
     then ;