[Win32forth-cvs] win32forth/src/kernel fkernel.f,1.42,1.43

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

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

Modified Files:
	fkernel.f 
Log Message:
gah: Improved multi-tasing performance. Fixed bug in

Index: fkernel.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v
retrieving revision 1.42
retrieving revision 1.43
diff -C2 -d -r1.42 -r1.43
*** fkernel.f	28 Apr 2007 10:00:20 -0000	1.42
--- fkernel.f	31 Oct 2007 18:51:39 -0000	1.43
***************
*** 1961,1964 ****
--- 1961,1966 ----
    DUP USER TCB        CELL+ ( task control block )
    DUP ( *1 )                ( absolute min user area )
+   DUP USER &EXREC     CELL+ ( for exception handling )
+   DUP USER &EXCEPT    CELL+ ( for exception handling )
    DUP USER HANDLER    CELL+ ( throw frame )
    DUP USER LP         CELL+ ( local variable pointer )
***************
*** 5452,5457 ****
  \ -------------------- Task support & initialisation ------------------------
  
! VARIABLE &EXCEPT
! VARIABLE &EXREC
  variable exc-guard
  variable exc-access
--- 5454,5459 ----
  \ -------------------- Task support & initialisation ------------------------
  
! \ VARIABLE &EXCEPT
! \ VARIABLE &EXREC
  variable exc-guard
  variable exc-access