The Trunk: Tools-mt.851.mcz

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

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

Name: Tools-mt.851
Author: mt
Time: 11 July 2019, 9:58:05.941354 am
UUID: 1bc52807-ebb1-3640-b47c-e4219e085080
Ancestors: Tools-eem.850

Fixes "explore pointers" and "chase pointers" for CompiledCode.

Migrates the unused #explorerStringFor: (from 2018) to #asString. Seems interesting to also see the object hash besides the member name. Not sure why this was put into Trunk back then.

=============== Diff against Tools-eem.850 ===============

Item was added:
+ ----- Method: PointerExplorerWrapper>>asString (in category 'converting') -----
+ asString
+
+ ^ self object identityHash asString, ': ', super asString.!

Item was removed:
- ----- Method: PointerExplorerWrapper>>explorerStringFor: (in category 'converting') -----
- explorerStringFor: anObject
-
- ^ anObject identityHash asString, ': ', (super explorerStringFor: anObject).!

Item was changed:
  ----- Method: PointerExplorerWrapper>>memberNameFrom:to: (in category 'accessing') -----
  memberNameFrom: aParent to: aChild
 
  1 to: aParent class instSize do: [ :instVarIndex |
  (aParent instVarAt: instVarIndex) == aChild
  ifTrue: [ ^ '''', (aParent class instVarNameForIndex: instVarIndex), '''' ]].
+
+ "This covers compiled methods and compiled blocks."
+ aParent isCompiledCode ifTrue: [
+ 1 to: aParent numLiterals do: [ :index |
+ (aParent literalAt: index) == aChild
+ ifTrue: [^ 'literal', index asString]]].
+
  "This also covers arrays"
  1 to: aParent basicSize do: [ :index |
  (aParent basicAt: index) == aChild
  ifTrue: [^ index asString]].
  ^ '???'!