[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.16,1.17

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

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

Modified Files:
	fkernel.f 
Log Message:
gah: modified rep-normal to (hopefully) work correctly for precision of 1 and fixed a few stack comments

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** fkernel.f	20 Jun 2005 07:40:47 -0000	1.16
--- fkernel.f	1 Jul 2005 09:42:41 -0000	1.17
***************
*** 87,91 ****
                  next    c;
  
! CFA-CODE DO2VALUE ( d1 -- )               \ runtime for 2VALUE fetch
                  push    ebx
                  mov     ecx, 4 [eax]
--- 87,91 ----
                  next    c;
  
! CFA-CODE DO2VALUE ( -- d1 )               \ runtime for 2VALUE fetch
                  push    ebx
                  mov     ecx, 4 [eax]
***************
*** 94,98 ****
                  next    c;
  
! CFA-CODE DOOFF     ( n -- )                \ run-time for OFFSET and FIELD+
                  add     ebx, 4 [eax]
                  next    c;
--- 94,98 ----
                  next    c;
  
! CFA-CODE DOOFF     ( n1 -- n2 )                \ run-time for OFFSET and FIELD+
                  add     ebx, 4 [eax]
                  next    c;