Update of /cvsroot/win32forth/win32forth/src/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25520/win32forth/src/tools
Modified Files:
dfc.F
Log Message:
gah: replaced 2swap 2drop with 2nip and other minor optimizations
Index: dfc.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/dfc.F,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** dfc.F 21 Dec 2004 00:19:11 -0000 1.1
--- dfc.F 3 May 2005 15:05:54 -0000 1.2
***************
*** 597,601 ****
dup 1+ X !
SLOT @ CANDIDATE Y ! ( )
! ELSE 2DROP DROP THEN
R> LCS @ = ( flag)
dup IF ( Move fence. )
--- 597,601 ----
dup 1+ X !
SLOT @ CANDIDATE Y ! ( )
! ELSE 3DROP THEN
R> LCS @ = ( flag)
dup IF ( Move fence. )
***************
*** 871,872 ****
--- 871,873 ----
\\ End of Differential File Comparison
+ |
