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

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

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

Modified Files:
	task.f 
Log Message:
gah: Modified for Win95 (untested).

Index: task.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** task.f	20 May 2006 12:02:06 -0000	1.7
--- task.f	7 Jun 2006 12:35:26 -0000	1.8
***************
*** 192,195 ****
--- 192,207 ----
                  call LeaveCriticalSection drop ;
  
+ winver win95 = [if]
+ 
+ : trylock       ( lock -- fl )
+                 lock true ;
+ 
+ internal
+ 
+ : init-lock     ( lock -- )
+                 0 swap call InitializeCriticalSection drop ;
+ 
+ [else]
+ 
  : trylock       ( lock -- fl )                                \ W32F    Lock
  \ *G \b For NT 2000 and XP; \d
***************
*** 206,209 ****
--- 218,223 ----
                  0 swap call InitializeCriticalSectionAndSpinCount drop ;
  
+ [then]
+ 
  external