[Win32forth-cvs] win32forth/src/lib task.f,1.9,1.10

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

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<> ;