The Trunk: Tools-ul.281.mcz

Levente Uzonyi uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ul.281.mcz

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

Name: Tools-ul.281
Author: ul
Time: 23 November 2010, 1:37:02.237 pm
UUID: 30464fa6-e09b-764a-a157-57bc3f46560d
Ancestors: Tools-ul.280

- replaced the PointerFinder >> #isLiteral hack by a direct class check, also reordered the checks in #follow:from:, so cheaper and common ones are performed first.

=============== Diff against Tools-ul.280 ===============

Item was changed:
  ----- Method: PointerFinder>>follow:from: (in category 'application') -----
  follow: anObject from: parentObject
+
+ anObject == goal ifTrue: [
+ parents at: anObject put: parentObject.
+ ^ true].
- anObject == goal
- ifTrue:
- [parents at: anObject put: parentObject.
- ^ true].
- anObject isLiteral ifTrue: [^ false].
  "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 ].
- (anObject class isPointers or: [anObject isCompiledMethod]) ifFalse: [^ false].
- anObject class isWeak ifTrue: [^ false].
- (parents includesKey: anObject)
- ifTrue: [^ false].
  parents at: anObject put: parentObject.
  toDoNext add: anObject.
  ^ false!

Item was removed:
- ----- Method: PointerFinder>>isLiteral (in category 'application') -----
- isLiteral
- "Horrible hack to omit other Pointer Finders from scanning."
-
- ^ true!