Make GraalInfoMorph work on TruffleSqueak (SVM)

hpi-swa · Jul 9, 2021 · eec990a · eec990a
1 parent 3dac6bf
commit eec990a
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/src/TruffleSqueak-Utilities.package/GraalInfoMorph.class/instance/mouseDown..st b/src/TruffleSqueak-Utilities.package/GraalInfoMorph.class/instance/mouseDown..st
@@ -3,6 +3,7 @@ mouseDown: anEvent
 	anEvent yellowButtonPressed ifTrue: [
 		(self confirm: 'Reset samples?') ifTrue: [ samples := nil ].
 		^ self ].
+	(Polyglot isPermitted: #R) ifFalse: [ ^self ].
 	samples ifNotNil: [ :s |
 		(RLivePlotMorph on: s with: 'ggplot(values, aes(x=x, y=y, color=y)) +
 		ggtitle("Graal Compilation Queue") + labs(x="time", y="size") +

diff --git a/src/TruffleSqueak-Utilities.package/GraalInfoMorph.class/instance/step.st b/src/TruffleSqueak-Utilities.package/GraalInfoMorph.class/instance/step.st
@@ -2,7 +2,7 @@ stepping and presenter
 step
 	| queueSize |
 	queueSize := Graal runtime
-		ifNil: [^ self] ifNotNil: [ :r | r getCompilationQueueSize asNumber ].
+		ifNil: [^ self] ifNotNil: [ :r | r getCompileQueue getQueueSize asNumber ].
 	self samples add: queueSize.
 	self color: (queueSize < 100 ifTrue: [ Color gray ] ifFalse: [
 		queueSize > 500 ifFalse: [ Color orange thriceDarker ] ifTrue: [ Color red darker ] ]).

diff --git a/src/TruffleSqueak-Utilities.package/GraalInfoMorph.class/methodProperties.json b/src/TruffleSqueak-Utilities.package/GraalInfoMorph.class/methodProperties.json
@@ -6,7 +6,7 @@
 	"instance" : {
 		"handlesMouseDown:" : "fn 4/26/2020 17:48",
 		"initialize" : "fn 4/29/2020 15:58",
-		"mouseDown:" : "fn 5/12/2020 16:45",
+		"mouseDown:" : "fn 7/9/2021 16:07",
 		"samples" : "fn 4/26/2020 17:49",
-		"step" : "fn 4/26/2020 17:51",
+		"step" : "fn 7/9/2021 14:41",
 		"stepTime" : "fn 2/25/2020 11:38" } }