Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5021/win32forth-stc/src
Modified Files:
task.f
Log Message:
gah:Added (make-lock) including documenting.
Index: task.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/task.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** task.f 4 Oct 2006 12:00:03 -0000 1.3
--- task.f 16 Oct 2006 11:22:21 -0000 1.4
***************
*** 261,272 ****
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
--- 261,277 ----
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
|
