From 1d2503cc3bc2b488146f01f2bd742e7c7a686ad0 Mon Sep 17 00:00:00 2001 From: Fabio Niephaus Date: Sun, 29 Aug 2021 22:12:30 +0200 Subject: [PATCH] Extend callTargetInfoStringFor: with more details on call nodes --- .../class/callTargetInfoStringFor..st | 6 +++++- .../CallTargetBrowser.class/methodProperties.json | 2 +- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/src/TruffleSqueak-Utilities.package/CallTargetBrowser.class/class/callTargetInfoStringFor..st b/src/TruffleSqueak-Utilities.package/CallTargetBrowser.class/class/callTargetInfoStringFor..st index d2220e5d8..8ce37cef3 100644 --- a/src/TruffleSqueak-Utilities.package/CallTargetBrowser.class/class/callTargetInfoStringFor..st +++ b/src/TruffleSqueak-Utilities.package/CallTargetBrowser.class/class/callTargetInfoStringFor..st @@ -31,6 +31,10 @@ included call nodes: ifNotNil: [ ea getSimpleName asString ]]) joinSeparatedBy: ', ' ] ]. (c getCallNodes asCollection ifNotEmpty: [:n | (n collect: [ :ea | - ea getCurrentCallTarget toString asString]) + '{1} (callCount: {2}; inliningForced: {3}; identity: {4})' format: { + ea getCurrentCallTarget toString asString. + ea getCallCount. + ea isInliningForced. + ea identityHash } ]) joinSeparatedBy: String cr, ' - ' ] ifEmpty: [ 'n/a' ] ) } ] diff --git a/src/TruffleSqueak-Utilities.package/CallTargetBrowser.class/methodProperties.json b/src/TruffleSqueak-Utilities.package/CallTargetBrowser.class/methodProperties.json index f1e5f1183..d917bd481 100644 --- a/src/TruffleSqueak-Utilities.package/CallTargetBrowser.class/methodProperties.json +++ b/src/TruffleSqueak-Utilities.package/CallTargetBrowser.class/methodProperties.json @@ -1,6 +1,6 @@ { "class" : { - "callTargetInfoStringFor:" : "fn 7/9/2021 19:07", + "callTargetInfoStringFor:" : "fn 7/16/2021 16:56", "initialize" : "fn 3/29/2021 21:42", "registerInWorldMenu" : "fn 3/29/2021 21:58", "showClassIcons" : "fn 2/16/2021 22:17",