Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv19142/win32forth/src/lib
Modified Files:
task.f
Log Message:
gah: Improved multi-tasing performance. Fixed bug in
Index: task.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** task.f 30 Oct 2006 09:17:53 -0000 1.14
--- task.f 31 Oct 2007 18:51:39 -0000 1.15
***************
*** 68,78 ****
\ -------------------- Task Start Initialisation --------------------
! 1 proc ExitThread as exit-task ( n -- ) \ W32F Task
\ *G Exit the current task returning the value n to the operating system, which can be retrieved
\ ** by calling GetExitCodeThread. The stacks and user area for the thread are freed and
\ ** DLLs are detatched. If the thread is the last active thread of the process then the
\ ** process is terminated.
: (task) ( parm cfa -- ) \ helper routine
catch \ execute cfa and catch errors gah 27nov03
exit-task \ and exit the thread, never returns
--- 68,83 ----
\ -------------------- Task Start Initialisation --------------------
! 1 proc ExitThread
!
! : exit-task ( n -- ) \ W32F Task
\ *G Exit the current task returning the value n to the operating system, which can be retrieved
\ ** by calling GetExitCodeThread. The stacks and user area for the thread are freed and
\ ** DLLs are detatched. If the thread is the last active thread of the process then the
\ ** process is terminated.
+ Release-Except-Buffer call ExitThread ;
: (task) ( parm cfa -- ) \ helper routine
+ Init-Except-Users
+ Allocate-Except-Buffer
catch \ execute cfa and catch errors gah 27nov03
exit-task \ and exit the thread, never returns
|
