The Trunk: Tools-cmm.466.mcz

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!