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
|
