[squeak-dev] The Trunk: Collections-fbs.483.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Aug 3 20:31:23 UTC 2012


Frank Shearar uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-fbs.483.mcz

==================== Summary ====================

Name: Collections-fbs.483
Author: fbs
Time: 3 August 2012, 9:30:41.524 pm
UUID: 30032276-9f6d-43d6-8c2a-763acea1a80a
Ancestors: Collections-fbs.482

Re-remove WeakRegistry class>>migrateOldRegistries. Accidental commit during a merge.

=============== Diff against Collections-fbs.482 ===============

Item was removed:
- ----- Method: WeakRegistry class>>migrateOldRegistries (in category 'migrating registry') -----
- migrateOldRegistries
- 	Smalltalk at: #WeakFinalizationRegistry ifAbsent: [ ^ self "already done" ].
- 	
- 	Smalltalk recreateSpecialObjectsArray.
- 	WeakArray restartFinalizationProcess.
- 	
- 	Smalltalk garbageCollect; garbageCollect.
- 	
- 	"leave no chance to interrupt migration"	
- 	Compiler evaluate: '
- 	[ | old new oldClass newClass |
- 		old := OrderedCollection new.
- 		new := OrderedCollection new.
- 		WeakRegistry allInstancesDo: [:registry | | newr |
- 			old add: registry.
- 			newr := WeakFinalizationRegistry basicNew initialize.
- 			registry migrateTo: newr.
- 			new add: newr ].
- 		old asArray elementsForwardIdentityTo: new asArray.
- 		
- 		oldClass := WeakRegistry.
- 		newClass := WeakFinalizationRegistry.
- 		
- 		Smalltalk forgetClass: newClass logged: false.
- 		newClass superclass removeSubclass: newClass.
- 		newClass setName: #WeakRegistry.
- 		oldClass becomeForward: newClass.
- 	] forkAt: Processor highestPriority.
- 	'.
- !



More information about the Squeak-dev mailing list