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

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

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

Modified Files:
	fkernel.f 
Log Message:
gah: added 2nip to fkernel.f

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** fkernel.f	26 Apr 2005 19:56:49 -0000	1.11
--- fkernel.f	30 Apr 2005 16:03:40 -0000	1.12
***************
*** 1085,1093 ****
  \ -------------------- Double Stack Operators -------------------------------
  
! CODE 2DROP      ( n1 n2 -- ) \ discard two single items from the data stack
                  add     esp, # 4
                  pop     ebx
                  next    c;
  
  CODE 2DUP       ( n1 n2 -- n1 n2 n1 n2 ) \ duplicate the top two single items
                                           \ on the data stack
--- 1085,1099 ----
  \ -------------------- 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
+                 pop     eax
+                 next    c;
+ 
  CODE 2DUP       ( n1 n2 -- n1 n2 n1 n2 ) \ duplicate the top two single items
                                           \ on the data stack
***************
*** 5726,5727 ****
--- 5732,5734 ----
  ' ?THROW        RESOLVES ?THROW
  ' WARNMSG       RESOLVES WARNMSG
+