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
|
