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 ? )
|
