[Win32forth-cvs] win32forth/src/lib task.f,1.10,1.11

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

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