The Trunk: System-eem.920.mcz

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

The Trunk: System-eem.920.mcz

commits-2
Eliot Miranda uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-eem.920.mcz

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

Name: System-eem.920
Author: eem
Time: 3 December 2016, 9:33:47.096323 am
UUID: 694cd18b-4572-4762-b5b9-29e116119a9d
Ancestors: System-bf.919

The various scanFor: and scanForEmptySlotFor: implementations only need to access the size of their array once.

=============== Diff against System-bf.919 ===============

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 size |
+ index := start := anObject hash \\ (size := array size) + 1.
- | index start |
- index := start := anObject hash \\ array size + 1.
  [
  | element |
  ((element := array at: index) == nil or: [ element key == anObject ])
  ifTrue: [ ^index ].
+ (index := index \\ size + 1) = start ] whileFalse.
- (index := index \\ array size + 1) = start ] whileFalse.
  self errorNoFreeSpace!

Item was changed:
  ----- Method: SystemDictionary>>scanForEmptySlotFor: (in category 'private') -----
  scanForEmptySlotFor: anObject
  "Scan the key array for the first slot containing an empty slot (indicated by a nil). Answer the index of that slot. This method will be overridden in various subclasses that have different interpretations for matching elements."
 
+ | index start size |
+ index := start := anObject hash \\ (size := array size) + 1.
- | index start |
- index := start := anObject hash \\ array size + 1.
  [
  (array at: index) ifNil: [ ^index ].
+ (index := index \\ size + 1) = start ] whileFalse.
- (index := index \\ array size + 1) = start ] whileFalse.
  self errorNoFreeSpace!