Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2638
Modified Files:
fkernel.f
Log Message:
added 'slow' which uses 'slfactor' to slow loading to be able to see warnings
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** fkernel.f 25 Feb 2006 08:33:53 -0000 1.26
--- fkernel.f 8 Apr 2006 19:46:58 -0000 1.27
***************
*** 4273,4279 ****
mov eax, VHEAD VOC#0 - [ecx] \ fetch header word to execute
exec c;
!
: HEADER ( -<name>- ) \ build a header
! BL WORD COUNT (HEADER) ; \ self-call the header word
in-system
--- 4273,4280 ----
mov eax, VHEAD VOC#0 - [ecx] \ fetch header word to execute
exec c;
! 0 value slfactor \ adjust this to slow down loading
! : SLOW ( -- ) slfactor ms ; \ set 'slfactor' to slow down loading
: HEADER ( -<name>- ) \ build a header
! BL WORD COUNT (HEADER) slow ; \ self-call the header word
in-system
|
