The Trunk: Monticello-ul.331.mcz

Andreas Raab uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-ul.331.mcz

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

Name: Monticello-ul.331
Author: ul
Time: 4 November 2009, 10:55:34 am
UUID: d5d3402e-d4f0-4c46-8a5f-0a81f2d790ae
Ancestors: Monticello-nice.330

- faster hashing with String >> #hashWithInitialHash:. Load  Collections-ul.179 before this package.

=============== Diff against Monticello-nice.330 ===============

Item was changed:
  ----- Method: MCClassTraitDefinition>>hash (in category 'accessing') -----
  hash
+
  | hash |
+ hash := baseTrait hashWithInitialHash: 0.
+ hash := self classTraitCompositionString hashWithInitialHash: hash.
- hash := String stringHash: baseTrait initialHash: 0.
- hash := String stringHash: self classTraitCompositionString initialHash: hash.
  ^hash
  !

Item was changed:
  ----- Method: MCClassDefinition>>hash (in category 'comparing') -----
  hash
+
  | hash |
+ hash := name hashWithInitialHash: 0.
+ hash := superclassName hashWithInitialHash: hash.
+ hash := self traitCompositionString hashWithInitialHash: hash.
+ hash := self classTraitComposition asString hashWithInitialHash: hash.
+ hash := (category ifNil: ['']) hashWithInitialHash: hash.
+ hash := type hashWithInitialHash: hash.
+ variables do: [ :v |
+ hash := v name hashWithInitialHash: hash ].
+ ^hash!
- hash := String stringHash: name initialHash: 0.
- hash := String stringHash: superclassName initialHash: hash.
- hash := String stringHash: self traitCompositionString initialHash: hash.
- hash := String stringHash: self classTraitComposition asString initialHash: hash.
- hash := String stringHash: (category ifNil: ['']) initialHash: hash.
- hash := String stringHash: type initialHash: hash.
- variables do: [
- :v |
- hash := String stringHash: v name initialHash: hash.
- ].
- ^ hash!

Item was changed:
  ----- Method: MCTraitDefinition>>hash (in category 'comparing') -----
  hash
+
  | hash |
+ hash := name hashWithInitialHash: 0.
+ hash := self traitCompositionString hashWithInitialHash: hash.
+ hash := (category ifNil: ['']) hashWithInitialHash: hash.
+ ^hash
- hash := String stringHash: name initialHash: 0.
- hash := String stringHash: self traitCompositionString initialHash: hash.
- hash := String stringHash: (category ifNil: ['']) initialHash: hash.
- ^ hash
  !

Item was changed:
  ----- Method: MCMethodDefinition>>hash (in category 'comparing') -----
  hash
  | hash |
+ hash := classIsMeta asString hashWithInitialHash: 0.
+ hash := source hashWithInitialHash: hash.
+ hash := category hashWithInitialHash: hash.
+ hash := className hashWithInitialHash: hash.
- hash := String stringHash: classIsMeta asString initialHash: 0.
- hash := String stringHash: source initialHash: hash.
- hash := String stringHash: category initialHash: hash.
- hash := String stringHash: className initialHash: hash.
  ^ hash!