[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.62,1.63

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

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv1867

Modified Files:
	fkernel.f 
Log Message:
Fixed bug in file-size

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.62
retrieving revision 1.63
diff -C2 -d -r1.62 -r1.63
*** fkernel.f	27 Dec 2008 16:04:39 -0000	1.62
--- fkernel.f	21 Oct 2009 21:57:53 -0000	1.63
***************
*** 4111,4115 ****
  2 PROC GetFileSize
  : file-size     ( fileid -- len-ud ior )
!    0 sp@ rot call GetFileSize
     tuck INVALID_FILE_SIZE <>
     if false
--- 4111,4115 ----
  2 PROC GetFileSize
  : file-size     ( fileid -- len-ud ior )
!    sp@ 0 swap rot call GetFileSize
     tuck INVALID_FILE_SIZE <>
     if false