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!
squeak-dev@lists.squeakfoundation.org