[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.24,1.25

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

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

Modified Files:
	fkernel.f 
Log Message:
gah: Modified WinPause to work w/o the console (needs new KERNEL.EXE to build).

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** fkernel.f	28 Nov 2005 09:25:42 -0000	1.24
--- fkernel.f	13 Feb 2006 14:06:09 -0000	1.25
***************
*** 1909,1915 ****
  \ -------------------- User Variables ---------------------------------------
  
! \ Task based variables are here. Each task has its own local copy of an uninitialised
! \ variable. All other VARIABLEs and VALUEs are global the the entire process, and must
! \ not be changed in a task unless locked or you know what you're doing.
  
  VARIABLE NEXT-USER                              \ offset of next user variable
--- 1909,1915 ----
  \ -------------------- User Variables ---------------------------------------
  
! \ *P Task based variables are here. Each task has its own local copy of an uninitialised
! \ ** variable. All other VARIABLEs and VALUEs are global the the entire process, and must
! \ ** not be changed in a task unless locked or you know what you're doing.
  
  VARIABLE NEXT-USER                              \ offset of next user variable
***************
*** 2730,2743 ****
  
  9  offset  L>NAME   ( lfa -- nfa )
  -9 offset  N>LINK   ( nfa -- lfa )
  -5 offset  N>CFAPTR ( nfa -- cfa-ptr )
  -1 offset  N>BFA    ( nfa -- bfa )
! 
  
  CODE LINK>      ( link -- cfa )
                  mov     ebx, 4 [ebx]
                  next    c;
  
  CODE NAME>      ( nfa -- cfa )
                  mov     ebx, -5 [ebx]
                  next    c;
--- 2730,2748 ----
  
  9  offset  L>NAME   ( lfa -- nfa )
+ \ *G Convert link address to name address.
  -9 offset  N>LINK   ( nfa -- lfa )
+ \ *G Convert name address to link address.
  -5 offset  N>CFAPTR ( nfa -- cfa-ptr )
+ \ *G Convert name address to the address of the CFA pointer address.
  -1 offset  N>BFA    ( nfa -- bfa )
! \ *G Convert neme address to the address of the bit fields.
  
  CODE LINK>      ( link -- cfa )
+ \ *G Convert the link address to the CFA (xt).
                  mov     ebx, 4 [ebx]
                  next    c;
  
  CODE NAME>      ( nfa -- cfa )
+ \ *G Convert the name address to the CFA (xt).
                  mov     ebx, -5 [ebx]
                  next    c;
***************
*** 4600,4605 ****
  
  \ 07/07/2003 21:10:55 fkernel.f  [ 745385 ] Bug in "Find Text in Files" Dialog
! : WINPAUSE      ( -- )  \ release control to OS for a moment, pump message loop (in wrapper)
!                 KEY? DROP ;
  
  
--- 4605,4610 ----
  
  \ 07/07/2003 21:10:55 fkernel.f  [ 745385 ] Bug in "Find Text in Files" Dialog
! DEFER WINPAUSE      ( -- )  \ release control to OS for a moment, pump message loop (in wrapper)
! : (WINPAUSE)    KEY? DROP ; ' (WINPAUSE) IS WINPAUSE