[Win32forth-cvs] win32forth/src/lib task.f,1.14,1.15

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

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