Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv29799/win32forth/src/lib
Modified Files:
task.f
Log Message:
gah:Made pointers thread-safe and improved initialisation.
Index: task.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** task.f 8 Jun 2006 07:41:41 -0000 1.10
--- task.f 5 Aug 2006 12:30:52 -0000 1.11
***************
*** 252,255 ****
--- 252,257 ----
make-lock dialog-lock \ to make linking dialogs thread safe
make-lock classname-lock \ to make unique window class naming thread safe
+ make-lock pointer-lock \ to make allocating pointers thread safe
+ make-lock dyn-lock \ to make new$ thread safe
: _memlock ( -- ) mem-lock lock ; \ for overriding defered lock memory word
***************
*** 261,264 ****
--- 263,271 ----
: _classnamelock ( -- ) classname-lock lock ; \
: _classnameunlock ( -- ) classname-lock unlock ;
+ : _pointerlock ( -- ) pointer-lock lock ;
+ : _pointerunlock ( -- ) pointer-lock unlock ;
+ : _dynlock ( -- ) dyn-lock lock ;
+ : _dynunlock ( -- ) dyn-lock unlock ;
+
: init-system-locks ( -- ) \ initialize system locks for multitasking
***************
*** 270,274 ****
['] _dialogunlock is (dialogunlock)
['] _classnamelock is (classnamelock)
! ['] _classnameunlock is (classnameunlock) ;
init-system-locks
--- 277,285 ----
['] _dialogunlock is (dialogunlock)
['] _classnamelock is (classnamelock)
! ['] _classnameunlock is (classnameunlock)
! ['] _pointerlock is (pointerlock)
! ['] _pointerunlock is (pointerunlock)
! ['] _dynlock is (dynlock)
! ['] _dynunlock is (dynunlock) ;
init-system-locks
|
