Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20491/win32forth/src/kernel
Modified Files:
fkernel.f
Log Message:
gah:Fixed bug in Z,"
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.39
retrieving revision 1.40
diff -C2 -d -r1.39 -r1.40
*** fkernel.f 3 Oct 2006 07:44:22 -0000 1.39
--- fkernel.f 10 Oct 2006 11:11:25 -0000 1.40
***************
*** 3297,3301 ****
CODE APPEND-LINK ( addr list -- ) \ W32F List
! \ *G Appendd a link to the end of a list.
@@1: mov ecx, 0 [ebx] \ get next link
test ecx, ecx \ is next link zero?
--- 3297,3301 ----
CODE APPEND-LINK ( addr list -- ) \ W32F List
! \ *G Append a link to the end of a list.
@@1: mov ecx, 0 [ebx] \ get next link
test ecx, ecx \ is next link zero?
***************
*** 3351,3355 ****
: Z", ( addr len -- ) \ W32F String Extra
\ *G Compile the string, addr len at here.
! HERE OVER ALLOT place ;
: Z," ( -<string">- ) \ compile string" at here
--- 3351,3355 ----
: Z", ( addr len -- ) \ W32F String Extra
\ *G Compile the string, addr len at here.
! HERE OVER ALLOT swap cmove ;
: Z," ( -<string">- ) \ compile string" at here
|
