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