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