The Trunk: Collections-dtl.396.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Collections-dtl.396.mcz

commits-2
David T. Lewis uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-dtl.396.mcz

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

Name: Collections-dtl.396
Author: dtl
Time: 24 October 2010, 1:11:29.177 pm
UUID: 78839599-27f0-41a5-b4d7-d2941daeec4d
Ancestors: Collections-dtl.395

Remove #migrateOldRegistries (mistakenly restored in the last update)

=============== Diff against Collections-dtl.395 ===============

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.
- '.
- !