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
|
