[squeak-dev] The Trunk: Tools-mt.669.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Feb 3 20:03:33 UTC 2016


Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.669.mcz

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

Name: Tools-mt.669
Author: mt
Time: 3 February 2016, 9:03:12.626922 pm
UUID: 17c9ee50-3551-4758-b80a-85670df52561
Ancestors: Tools-mt.668

Fixes regression in pointer explorer.

=============== Diff against Tools-mt.668 ===============

Item was changed:
  ----- Method: PointerExplorerWrapper>>contents (in category 'accessing') -----
  contents
  	"Return the wrappers with the objects holding references to item. Eldest objects come first, weak only referencers are at the end and have parentheses around their identity hash."
  
  	| objects weakOnlyReferences |
+ 	objects := self object inboundPointersExcluding: { self. self item. model }.
- 	objects := item inboundPointersExcluding: { self. model }.
  	weakOnlyReferences := OrderedCollection new.
  	objects removeAllSuchThat: [ :each |
  		each class == self class 
  			or: [ each class == PointerExplorer
  			or: [ (each class == MethodContext
  				and: [ each receiver class == PointerExplorer ] )
+ 			or: [ (each pointsOnlyWeaklyTo: self object)
- 			or: [ (each pointsOnlyWeaklyTo: item)
  				ifTrue: [ weakOnlyReferences add: each. true ]
  				ifFalse: [ false ] ] ] ] ].
  	 ^(objects replace: [ :each |	
+ 		self class with: each name: each identityHash asString model: self object ])
- 		self class with: each name: each identityHash asString model: item ])
  		addAll: (weakOnlyReferences replace: [ :each |
+ 			(self class with: each name: '(', each identityHash asString, ')' model: self object)
- 			(self class with: each name: '(', each identityHash asString, ')' model: item)
  				weakOnly: true;
  				yourself ]);
  		yourself!



More information about the Squeak-dev mailing list