The Inbox: Tools-ul.518.mcz

A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-ul.518.mcz

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

Name: Tools-ul.518
Author: ul
Time: 3 February 2014, 6:32:58.482 pm
UUID: 83289b35-b273-47cd-a97c-7a189fb0178e
Ancestors: Tools-topa.517

PointerFinder >> #follow:from: works for weak objects with named slots. It also uses safe checks instead of #isLiteral to cut the object graph. Removed the now unused Object >> #shouldFollowOutboundPointers

=============== Diff against Tools-topa.517 ===============

Item was removed:
- ----- 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
+
+ | class |
- follow: anObject from: parentObject
  anObject == goal ifTrue:
  [ parents
  at: anObject
  put: parentObject.
  ^ true ].
+ class := anObject class.
+ (class isPointers or: [ anObject isCompiledMethod ]) ifFalse: [ ^false ].
+ class isWeak
+ ifTrue: [ class instSize = 0 ifTrue: [ ^false ] ]
+ ifFalse: [
+ (class instSize = 0 and: [
+ class isVariable not or: [
+ anObject basicSize = 0 ] ]) ifTrue: [ ^false ] ].
+ ((parents includesKey: anObject) or: [ class = self class ]) ifTrue: [ ^ false ].
- anObject shouldFollowOutboundPointers ifFalse: [ ^ false ].
- ((parents includesKey: anObject) or: [ anObject class = self class ]) ifTrue: [ ^ false ].
  parents
  at: anObject
  put: parentObject.
  toDoNext add: anObject.
  ^ false!