[Win32forth-cvs] win32forth/src/lib multithr.f,1.4,1.5

[Jos v.d.V. <jo...@us...>]

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

Modified Files:
	multithr.f 
Log Message:
Jos: Fixed 2 stackbugs.

Index: multithr.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/multithr.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** multithr.f	13 Aug 2006 10:52:02 -0000	1.4
--- multithr.f	25 Feb 2008 17:40:57 -0000	1.5
***************
*** 67,71 ****
     0  swap  Call WaitForSingleObject 0=  ;
  
! : make-event-set       ( z"name" - ) \ In Win32
      false              \ init state      ( seems ignored ? )
      true               \ manuel reset ( seems ignored ? )
--- 67,71 ----
     0  swap  Call WaitForSingleObject 0=  ;
  
! : make-event-set       ( z"name" - hEvent ) \ In Win32
      false              \ init state      ( seems ignored ? )
      true               \ manuel reset ( seems ignored ? )
***************
*** 74,78 ****
      dup event-set ;
  
! : make-event-reset     ( z"name" - ) \ In Win32
      false              \ init state      ( seems ignored ? )
      true               \ manuel reset ( seems ignored ? )
--- 74,78 ----
      dup event-set ;
  
! : make-event-reset     ( z"name" - hEvent ) \ In Win32
      false              \ init state      ( seems ignored ? )
      true               \ manuel reset ( seems ignored ? )