[Win32forth-cvs] win32forth-stc/src/lib MAPFILE.F,1.1,1.2

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

Update of /cvsroot/win32forth/win32forth-stc/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv6730/win32forth-stc/src/lib

Modified Files:
	MAPFILE.F 
Log Message:
gah:Made MAP-FILE+ a synonym of FIELD+ and removed redundant DOES> from MAP-FILE to optimise performance and code size.

Index: MAPFILE.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/lib/MAPFILE.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** MAPFILE.F	29 Oct 2006 08:31:56 -0000	1.1
--- MAPFILE.F	31 Oct 2006 11:44:30 -0000	1.2
***************
*** 7,12 ****
  IN-APPLICATION
  
  : map-handle    ( -<name>- )
! \ *G Define a data structure to hold a mapped file
                  create
                       -1 ,                 \ hfile
--- 7,14 ----
  IN-APPLICATION
  
+ in-system \ Without the empty does part map-handle can go in the system space.
+ 
  : map-handle    ( -<name>- )
! \ *G Define a data structure to hold a mapped file.
                  create
                       -1 ,                 \ hfile
***************
*** 16,26 ****
                        0 ,                 \ hfileMaxLength
                        0 c, max-path allot \ hfileName
!                 does> ;
  
  
! : map-field+    ( n1 n2 -<name>- n3 )
!                 ( a1 -- a2 )
!                 CREATE over + swap ,            nostack1
!                 DOES>  @ + ;
  
  0   cell map-field+ >hfile
--- 18,27 ----
                        0 ,                 \ hfileMaxLength
                        0 c, max-path allot \ hfileName
!                       ;
  
  
! synonym map-field+ field+   ( compilation; n1 n2 -<name>- n3 execution; a1 -- a2 )
! 
! in-previous
  
  0   cell map-field+ >hfile