Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28803/win32forth/src/lib
Modified Files:
task.f
Log Message:
gah: Fixed bug in W98/ME (Tested on W98;still untested on W95).
Index: task.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** task.f 7 Jun 2006 15:50:53 -0000 1.9
--- task.f 8 Jun 2006 07:41:41 -0000 1.10
***************
*** 201,205 ****
: init-lock ( lock -- )
! 0 swap call InitializeCriticalSection drop ;
[else]
--- 201,205 ----
: init-lock ( lock -- )
! call InitializeCriticalSection drop ;
[else]
***************
*** 210,214 ****
\ ** If the lock is free claim it for this thread,
\ ** then increment the lock count and return true. \n
! \ ** \b For Win9x; \d
\ ** Perform the action of LOCK and return true.
call TryEnterCriticalSection 0<> ;
--- 210,214 ----
\ ** If the lock is free claim it for this thread,
\ ** then increment the lock count and return true. \n
! \ ** \b For Win9x, and NT<4; \d
\ ** Perform the action of LOCK and return true.
call TryEnterCriticalSection 0<> ;
|
