# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1464946707 -7200
# Node ID baba8974a90d316bbcd2a4bb0ef3aefe799bd493
# Parent  96ed50f6882eac066d4f7d8bda4168c3bd3ac32c
#FEATURE by cg
class: SharedQueue
changed: #init:
remember who owns me (for easier debugging)

diff -r 96ed50f6882e -r baba8974a90d SharedQueue.st
--- 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$'
 ! !