Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.187.mcz==================== Summary ====================
Name: System-ar.187
Author: ar
Time: 30 November 2009, 9:08:46 am
UUID: d896e46c-2d98-224d-b891-6900997ff309
Ancestors: System-ar.186, System-ul.186
Merging System-ul.186:
Part 2 of SystemDictionary hash change.
=============== Diff against System-ar.186 ===============
Item was changed:
Item was changed:
----- Method: SystemDictionary>>scanFor: (in category 'private') -----
scanFor: anObject
"Scan the key array for the first slot containing either a nil (indicating an empty slot) or an element that matches anObject. Answer the index of that slot or raise an error if no slot is found. This method will be overridden in various subclasses that have different interpretations for matching elements."
| index start |
- CollectionRehashingUtility quickRehashBecause: #systemDictionaryScanForChanged.
index := start := anObject hash \\ array size + 1.
[
| element |
((element := array at: index) == nil or: [ element key == anObject ])
ifTrue: [ ^index ].
(index := index \\ array size + 1) = start ] whileFalse.
self errorNoFreeSpace!