Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5021/win32forth/src/lib
Modified Files:
task.f
Log Message:
gah:Added (make-lock) including documenting.
Index: task.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** task.f 25 Sep 2006 11:44:34 -0000 1.12
--- task.f 16 Oct 2006 11:22:22 -0000 1.13
***************
*** 223,234 ****
external
in-system
: make-lock ( compiling: -<name>- -- runtime: -- lock ) \ W32F Lock
\ *G Create a new lock. When executed the lock returns it's identifier.
! create
! here lock-size ( 6 cells ) allot \ gah
! lock-list link, \ add to list of locks gah
! init-lock ;
in-application
--- 223,239 ----
external
+ : (make-lock) ( -- lock ) \ W32F Lock
+ \ *G Make a new lock, and return it's identifier.
+ here dup
+ lock-size ( 6 cells ) allot
+ lock-list link, \ add to list of locks
+ init-lock \ Initialise the critical section
+ ;
+
in-system
: make-lock ( compiling: -<name>- -- runtime: -- lock ) \ W32F Lock
\ *G Create a new lock. When executed the lock returns it's identifier.
! create (make-lock) drop ;
in-application
|
