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
|
