#FEATURE by cg
class: SharedQueue
changed: #init:
remember who owns me (for easier debugging)
--- a/SharedQueue.st Wed Jun 01 15:03:32 2016 +0200
+++ b/SharedQueue.st Fri Jun 03 11:38:27 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
@@ -11,6 +13,8 @@
"
"{ Package: 'stx:libbasic2' }"
+"{ NameSpace: Smalltalk }"
+
Queue subclass:#SharedQueue
instanceVariableNames:'dataAvailable spaceAvailable accessLock'
classVariableNames:''
@@ -312,7 +316,9 @@
super init:size.
dataAvailable := Semaphore new name:'shared q-read'.
+ dataAvailable owner:self.
spaceAvailable := (Semaphore new:size) name:'shared q-write'.
+ spaceAvailable owner:self.
accessLock := RecursionLock new.
"Modified: 25.1.1997 / 00:19:45 / cg"
@@ -321,10 +327,10 @@
!SharedQueue class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.39 2014-10-21 19:35:52 stefan Exp $'
+ ^ '$Header$'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/SharedQueue.st,v 1.39 2014-10-21 19:35:52 stefan Exp $'
+ ^ '$Header$'
! !