Update of /cvsroot/win32forth/win32forth/src/kernel
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3491/src/kernel
Modified Files:
fkernel.f
Log Message:
move 'defer start/stop' up so it can be called in 'slow' to help in seeing warnings during build
Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** fkernel.f 8 Apr 2006 19:46:58 -0000 1.27
--- fkernel.f 1 May 2006 03:11:48 -0000 1.28
***************
*** 4252,4255 ****
--- 4252,4257 ----
;
+ DEFER START/STOP ' noop is start/stop \ has to be in systemspace
+
in-application
***************
*** 4273,4278 ****
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
--- 4275,4281 ----
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 start/stop ; \ set 'slfactor' to slow down loading
: HEADER ( -<name>- ) \ build a header
BL WORD COUNT (HEADER) slow ; \ self-call the header word
***************
*** 5618,5622 ****
THEN ;
! DEFER START/STOP ' _START/STOP IS START/STOP
VARIABLE ECHO \ ECHO ON echos everything to the console that's included
--- 5621,5625 ----
THEN ;
! ' _START/STOP IS START/STOP
VARIABLE ECHO \ ECHO ON echos everything to the console that's included
|
