[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.12,1.13

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

Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31161/win32forth/src/kernel

Modified Files:
	fkernel.f 
Log Message:
gah:  minor optimizations

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** fkernel.f	30 Apr 2005 16:03:40 -0000	1.12
--- fkernel.f	3 May 2005 13:19:49 -0000	1.13
***************
*** 1085,1094 ****
  \ -------------------- Double Stack Operators -------------------------------
  
! CODE 2DROP      ( n1 n2 -- ) \ discard two single items on the data stack
                  add     esp, # 4
                  pop     ebx
                  next    c;
  
! CODE 2NIP       ( n1 n2 n3 n4 -- n3 n4 ) \ discard third and fourth items on data stack
                  pop     eax
                  mov     4 [esp], eax
--- 1085,1094 ----
  \ -------------------- Double Stack Operators -------------------------------
  
! CODE 2DROP      ( n1 n2 -- ) \ discard two single items from the data stack
                  add     esp, # 4
                  pop     ebx
                  next    c;
  
! CODE 2NIP       ( n1 n2 n3 n4 -- n3 n4 ) \ discard third and fourth items from data stack
                  pop     eax
                  mov     4 [esp], eax
***************
*** 2959,2963 ****
                      IF OVER COUNT NAME-MAX-CHARS MIN
                        2 PICK @ (SEARCH-SELF) ?DUP
!                       IF 2SWAP 2DROP              \ found it, so
                          _EXIT                     \ we're done searching
                        THEN
--- 2959,2963 ----
                      IF OVER COUNT NAME-MAX-CHARS MIN
                        2 PICK @ (SEARCH-SELF) ?DUP
!                       IF 2NIP                     \ found it, so
                          _EXIT                     \ we're done searching
                        THEN