checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 07 Oct 1999 13:47:56 +0200
changeset 4873 1642bad0297f
parent 4872 97d6aa9db3e9
child 4874 2af584ce2793
checkin from browser
Object.st
--- a/Object.st	Thu Oct 07 13:38:35 1999 +0200
+++ b/Object.st	Thu Oct 07 13:47:56 1999 +0200
@@ -21,7 +21,7 @@
 		DeepCopyErrorSignal AbortSignal ErrorRecursion Dependencies
 		InfoPrinting ActivityNotificationSignal InternalErrorSignal
 		NonWeakDependencies SynchronizationSemaphores ObjectAttributes
-		OSSignalInterruptSignal'
+		OSSignalInterruptSignal FinalizationLobby'
 	poolDictionaries:''
 	category:'Kernel-Objects'
 !
@@ -279,6 +279,10 @@
         ].
     ].
 
+    FinalizationLobby isNil ifTrue:[
+        FinalizationLobby := Registry new.
+    ].
+
     "/ initialize InfoPrinting to the VM's infoPrint setting
     "/ (which can be turned off via a command line argument)
     InfoPrinting := ObjectMemory infoPrinting.
@@ -290,7 +294,7 @@
     "Modified: / 4.8.1999 / 08:54:06 / stefan"
 ! !
 
-!Object class methodsFor:'ST80 compatibility'!
+!Object class methodsFor:'Compatibility - ST80'!
 
 rootError
     "return the signal used for error/error: - handling.
@@ -7732,6 +7736,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.299 1999-10-07 09:10:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.300 1999-10-07 11:47:56 cg Exp $'
 ! !
 Object initialize!