Introduce TruffleSqueakUtilities#primitiveGetDirectCallNodes:

hpi-swa · Sep 21, 2023 · e9ba6b7 · e9ba6b7
1 parent c884241
commit e9ba6b7
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 2 deletions.
diff --git a/...TruffleSqueak-Utilities.package/CallTargetBrowser.class/class/callTargetInfoStringFor..st b/...TruffleSqueak-Utilities.package/CallTargetBrowser.class/class/callTargetInfoStringFor..st
@@ -29,7 +29,7 @@ included call nodes:
 			ifNotNil: [ :t | (t asCollection collect: [ :ea | ea
 				ifNil: ['n/a']
 				ifNotNil: [ ea getSimpleName asString ]]) joinSeparatedBy: ', ' ] ].
-	(c getCallNodes asCollection
+	((TruffleSqueakUtilities primitiveGetDirectCallNodes: c getRootNode) asCollection
 		ifNotEmpty: [:n | (n collect: [ :ea |
 				'{1} (callCount: {2}; inliningForced: {3}; identity: {4})' format: {
 					ea getCurrentCallTarget toString asString.

diff --git 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/16/2021 16:56",
+		"callTargetInfoStringFor:" : "fn 9/21/2023 17:35",
 		"initialize" : "fn 3/29/2021 21:42",
 		"registerInWorldMenu" : "fn 3/29/2021 21:58",
 		"showClassIcons" : "fn 2/16/2021 22:17",

diff --git a/...ueak-Utilities.package/TruffleSqueakUtilities.class/class/primitiveGetDirectCallNodes..st b/...ueak-Utilities.package/TruffleSqueakUtilities.class/class/primitiveGetDirectCallNodes..st
@@ -0,0 +1,4 @@
+primitives
+primitiveGetDirectCallNodes: aRootNode
+	<primitive: 'primitiveGetDirectCallNodes' module: 'TruffleSqueakPlugin'>
+	self primitiveFailed
diff --git a/src/TruffleSqueak-Utilities.package/TruffleSqueakUtilities.class/methodProperties.json b/src/TruffleSqueak-Utilities.package/TruffleSqueakUtilities.class/methodProperties.json
@@ -18,6 +18,7 @@
 		"openNumPrimitiveExtensionHistogram" : "fn 2/1/2021 14:59",
 		"openTruffleSqueakTests" : "fn 3/30/2021 09:54",
 		"primitiveFormToBufferedImage:" : "fn 4/29/2020 12:29",
+		"primitiveGetDirectCallNodes:" : "fn 9/21/2023 17:31",
 		"primitiveGetVMObject:" : "fn 3/21/2020 16:23",
 		"primitiveVMObjectToHostObject:" : "fn 10/21/2021 09:06",
 		"registerInWorldMenu" : "fn 3/30/2021 10:31",