[Win32forth-cvs] win32forth-stc/src/kernel gkernel.f,1.39,1.40

[Rod O. <rod...@us...>]

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 -- )