[Win32forth-cvs] win32forth/src/lib task.f,1.6,1.7

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

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16545/win32forth/src/lib

Modified Files:
	task.f 
Log Message:
gah: Added locking to unique class name generation for thread safety.

Index: task.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/task.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** task.f	4 Feb 2006 16:12:24 -0000	1.6
--- task.f	20 May 2006 12:02:06 -0000	1.7
***************
*** 233,254 ****
  \ of dialog linking and control subclasssing
  
! make-lock mem-lock                      \ to make mem allocation thread safe
  make-lock control-lock                  \ to make control subclassing thread safe
! make-lock dialog-lock                   \ to make linling dialogs thread safe
  
! : _memlock      mem-lock     lock   ;   \ for overriding defered lock memory word
! : _memunlock    mem-lock     unlock ;   \ for overriding defered unlock memory word
! : _controllock  control-lock lock   ;   \ for overriding deferred lock subclassing word
! : _controlunlock  control-lock unlock ;   \ for overriding deferred unlock subclassing word
! : _dialoglock   dialog-lock  lock   ;   \ for overriding deferred lock dialog linking word
! : _dialogunlock dialog-lock  unlock ;   \ for overriding deferred unlock dialog linking word
  
! : init-system-locks                     \ initialize system locks for multitasking
!                ['] _memlock       is (memlock)
!                ['] _memunlock     is (memunlock)
!                ['] _controllock   is (controllock)
!                ['] _controlunlock is (controlunlock)
!                ['] _dialoglock    is (dialoglock)
!                ['] _dialogunlock  is (dialogunlock)  ;
  
  init-system-locks
--- 233,259 ----
  \ of dialog linking and control subclasssing
  
! make-lock mem-lock                      \ to make memory allocation thread safe
  make-lock control-lock                  \ to make control subclassing thread safe
! make-lock dialog-lock                   \ to make linking dialogs thread safe
! make-lock classname-lock                \ to make unique window class naming thread safe
  
! : _memlock         ( -- )  mem-lock       lock   ;   \ for overriding defered lock memory word
! : _memunlock       ( -- )  mem-lock       unlock ;   \ for overriding defered unlock memory word
! : _controllock     ( -- )  control-lock   lock   ;   \ for overriding deferred lock subclassing word
! : _controlunlock   ( -- )  control-lock   unlock ;   \ for overriding deferred unlock subclassing word
! : _dialoglock      ( -- )  dialog-lock    lock   ;   \ for overriding deferred lock dialog linking word
! : _dialogunlock    ( -- )  dialog-lock    unlock ;   \ for overriding deferred unlock dialog linking word
! : _classnamelock   ( -- )  classname-lock lock   ;   \
! : _classnameunlock ( -- )  classname-lock unlock ;
  
! : init-system-locks  ( -- )                   \ initialize system locks for multitasking
!                ['] _memlock         is (memlock)
!                ['] _memunlock       is (memunlock)
!                ['] _controllock     is (controllock)
!                ['] _controlunlock   is (controlunlock)
!                ['] _dialoglock      is (dialoglock)
!                ['] _dialogunlock    is (dialogunlock)
!                ['] _classnamelock   is (classnamelock)
!                ['] _classnameunlock is (classnameunlock)  ;
  
  init-system-locks