--- a/ObjMem.st Fri Jan 24 21:58:45 1997 +0100
+++ b/ObjMem.st Fri Jan 24 23:11:36 1997 +0100
@@ -616,7 +616,7 @@
MallocFailureSignal nameClass:self message:#mallocFailureSignal.
MallocFailureSignal notifierString:'(malloc) allocation failure'.
- LowSpaceSemaphore := Semaphore new.
+ LowSpaceSemaphore := Semaphore new name:'LowSpaceSemaphore'
].
DisposeInterruptHandler := self.
IncrementalGCLimit := 500000.
@@ -2960,7 +2960,7 @@
^ self
].
- FinalizationSemaphore := Semaphore new.
+ FinalizationSemaphore := Semaphore new name:'FinalizationSemaphore'.
p :=
[
@@ -3983,6 +3983,6 @@
!ObjectMemory class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.133 1997-01-24 20:44:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.134 1997-01-24 22:10:08 cg Exp $'
! !
ObjectMemory initialize!