[Win32forth-cvs] win32forth-stc/src/kernel gkernel.f,1.44,1.45

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

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

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

Index: gkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gkernel.f,v
retrieving revision 1.44
retrieving revision 1.45
diff -C2 -d -r1.44 -r1.45
*** gkernel.f	9 Sep 2008 20:54:40 -0000	1.44
--- gkernel.f	21 Oct 2009 22:02:28 -0000	1.45
***************
*** 4135,4139 ****
  2 PROC GetFileSize
  : file-size     ( fileid -- len-ud ior )
!    0 sp@ rot call GetFileSize
     tuck INVALID_FILE_SIZE <>
     if false
--- 4135,4139 ----
  2 PROC GetFileSize
  : file-size     ( fileid -- len-ud ior )
!    sp@ 0 swap rot call GetFileSize
     tuck INVALID_FILE_SIZE <>
     if false