[Pkg] The Trunk: Tools-cmm.466.mcz

[commits at source.squeak.org]

Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cmm.466.mcz

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

Name: Tools-cmm.466
Author: cmm
Time: 26 May 2013, 11:28:10.784 am
UUID: e026107e-487a-4057-85ba-dcc1464a4a0f
Ancestors: Tools-fbs.465

PointerFinder delegate to #shouldFollowOutboundPointers, which Proxy classes can implement, to allow that tool to work when proxys exist in the image.

=============== Diff against Tools-fbs.465 ===============

Item was added:
+ ----- Method: Object>>shouldFollowOutboundPointers (in category '*Tools-Debugger') -----
+ shouldFollowOutboundPointers
+ 	(self class isPointers or: [ self isCompiledMethod ]) ifFalse: [ ^ false ].
+ 	^ self class isWeak not and: [ self isLiteral not ]!

Item was changed:
  ----- Method: PointerFinder>>follow:from: (in category 'application') -----
+ follow: anObject from: parentObject 
+ 	anObject == goal ifTrue:
+ 		[ parents
+ 			at: anObject
+ 			put: parentObject.
+ 		^ true ].
+ 	anObject shouldFollowOutboundPointers ifFalse: [ ^ false ].
+ 	((parents includesKey: anObject) or: [ anObject class = self class ]) ifTrue: [ ^ false ].
+ 	parents
+ 		at: anObject
+ 		put: parentObject.
- follow: anObject from: parentObject
- 
- 	anObject == goal ifTrue: [
- 		parents at: anObject put: parentObject.
- 		^ true].
- 	"Remove this after switching to new CompiledMethod format --bf 2/12/2006"
- 	(anObject class isPointers or: [ anObject isCompiledMethod ]) ifFalse: [ ^false].
- 	(anObject class isWeak or: [
- 		anObject class == self class or: [
- 		anObject isLiteral or: [
- 		parents includesKey: anObject ] ] ])
- 			ifTrue: [ ^false ].
- 	parents at: anObject put: parentObject.
  	toDoNext add: anObject.
  	^ false!