Update of /cvsroot/win32forth/win32forth-stc/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28642/src/kernel
Modified Files:
gkernel.f
Log Message:
Rod: Added noop-chain-add-before and corrected d-
Index: gkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gkernel.f,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -d -r1.39 -r1.40
*** gkernel.f 27 Jun 2007 07:41:12 -0000 1.39
--- gkernel.f 1 Jul 2007 17:26:31 -0000 1.40
***************
*** 1565,1569 ****
mov ecx, 4 [ebp]
sub 8 [ebp], edx
! sbb eax, ecx
next;
--- 1565,1570 ----
mov ecx, 4 [ebp]
sub 8 [ebp], edx
! sbb ecx, eax
! mov eax, ecx
next;
***************
*** 5895,5901 ****
r> swap ! ;
: chain-add-before ( chain_address -<word_to_add>- ) \ for reverse chains like BYE
' ?sys-chain >r
! here over @ , r> , swap ! ;
: do-chain ( chain_address -- )
--- 5896,5909 ----
r> swap ! ;
+ : noop-chain-add-before ( chain_address -- addr ) \ add chain item,
+ \ return addr of xt added
+ here over @ ,
+ swap !
+ here ['] noop , ;
+
: chain-add-before ( chain_address -<word_to_add>- ) \ for reverse chains like BYE
' ?sys-chain >r
! noop-chain-add-before
! r> swap ! ;
: do-chain ( chain_address -- )
|
