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

[Dirk B. <db...@us...>]

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

Modified Files:
	task.f 
Log Message:
dbu: Modified for Win9x (untested).

Index: task.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** task.f	7 Jun 2006 12:35:26 -0000	1.8
--- task.f	7 Jun 2006 15:50:53 -0000	1.9
***************
*** 192,196 ****
                  call LeaveCriticalSection drop ;
  
! winver win95 = [if]
  
  : trylock       ( lock -- fl )
--- 192,197 ----
                  call LeaveCriticalSection drop ;
  
! winver winnt4 < [if]
! \ sorry, TryEnterCriticalSection() is only avaible for NT4 and later !!!
  
  : trylock       ( lock -- fl )
***************
*** 205,209 ****
  
  : trylock       ( lock -- fl )                                \ W32F    Lock
! \ *G \b For NT 2000 and XP; \d
  \ ** If the lock is owned by another thread return false. \n
  \ ** If the lock is free claim it for this thread,
--- 206,210 ----
  
  : trylock       ( lock -- fl )                                \ W32F    Lock
! \ *G \b For NT4, w2k and XP; \d
  \ ** If the lock is owned by another thread return false. \n
  \ ** If the lock is free claim it for this thread,