[Pkg] The Trunk: Collections-eem.366.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-eem.366.mcz

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

Name: Collections-eem.366
Author: eem
Time: 29 June 2010, 5:26:30.834 pm
UUID: b8b3d29c-7d22-45a6-a235-aae3dd6316ea
Ancestors: Collections-ul.365

Much faster Dictionary>>unreferencedKeys (single pass
over class hierarchy) speeds up removeUnreferencedKeys.

=============== Diff against Collections-ul.365 ===============

Item was changed:
  ----- Method: Dictionary>>unreferencedKeys (in category 'removing') -----
  unreferencedKeys
+ 	"| uk | (Time millisecondsToRun: [uk := TextConstants unreferencedKeys]) -> uk"
- 	"TextConstants unreferencedKeys"
  
  	^'Scanning for references . . .' 
  		displayProgressAt: Sensor cursorPoint
  		from: 0
+ 		to: Smalltalk classNames size * 2
- 		to: self size
  		during: 
+ 			[:bar | | currentClass n associations referencedAssociations |
+ 			currentClass := nil.
- 			[:bar | 
- 			| n |
  			n := 0.
+ 			associations := self associations asIdentitySet.
+ 			referencedAssociations := IdentitySet new: associations size.
+ 			self systemNavigation allSelect:
+ 				[:m|
+ 				m methodClass ~~ currentClass ifTrue:
+ 					[currentClass := m methodClass.
+ 					 bar value: (n := n + 1)].
+ 				m literalsDo:
+ 					[:l|
+ 					(l isVariableBinding and: [associations includes: l]) ifTrue:
+ 						[referencedAssociations add: l]].
+ 				false].
+ 			((associations reject: [:assoc | referencedAssociations includes: assoc]) collect: [:assoc| assoc key]) asSet]!
- 			self keys select: 
- 					[:key | 
- 					bar value: (n := n + 1).
- 					(self systemNavigation allCallsOn: (self associationAt: key)) isEmpty]]!