Levente Uzonyi uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-ul.677.mcz==================== Summary ====================
Name: Collections-ul.677
Author: ul
Time: 9 January 2016, 2:32:25.271894 pm
UUID: 3973645f-83f8-4013-806f-a9c56673dec0
Ancestors: Collections-eem.676
Let #arrayType define the class of array in WeakSet.
=============== Diff against Collections-eem.676 ===============
Item was added:
+ ----- Method: WeakSet class>>arrayType (in category 'as yet unclassified') -----
+ arrayType
+
+ ^WeakArray!
Item was changed:
----- Method: WeakSet>>growTo: (in category 'private') -----
growTo: anInteger
"Grow the elements array and reinsert the old elements"
| oldElements |
oldElements := array.
+ array := self class arrayType new: anInteger withAll: flag.
- array := WeakArray new: anInteger withAll: flag.
self noCheckNoGrowFillFrom: oldElements!
Item was changed:
----- Method: WeakSet>>initialize: (in category 'private') -----
initialize: n
"Initialize array to an array size of n"
+ super initialize: n.
flag := Object new.
+ array atAllPut: flag!
- array := WeakArray new: n.
- array atAllPut: flag.
- tally := 0!