Make it work for Pharo11

pharo-contributions · Aug 9, 2023 · 9fdeb95 · 9fdeb95
1 parent 038fff6
commit 9fdeb95
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 6 deletions.
diff --git a/src/Instrumentation/InstrumentationDeactivator.class.st b/src/Instrumentation/InstrumentationDeactivator.class.st
@@ -8,5 +8,5 @@ Class {
 InstrumentationDeactivator >> value [
 
 	<noInstrumentation>
-	thisProcess shiftLevelDown
+	Processor activeProcess shiftLevelDown
 ]
diff --git a/src/MethodProxies/MpInstrumentationUnwinder.class.st b/src/MethodProxies/MpInstrumentationUnwinder.class.st
@@ -59,6 +59,6 @@ MpInstrumentationUnwinder >> receiver: anObject [
 MpInstrumentationUnwinder >> value [
 
 	<methodProxyCannotWrap>
-	thisProcess runInMetaLevel: [
+	Processor activeProcess runInMetaLevel: [
 		^ handler aboutToReturnWithReceiver: receiver arguments: arguments ]
 ]
diff --git a/src/MethodProxies/MpMethodProxy.class.st b/src/MethodProxies/MpMethodProxy.class.st
@@ -226,7 +226,7 @@ MpMethodProxy >> run: aSelector with: anArrayOfObjects in: aReceiver [
 	"Do not intercept"
 
 	<methodProxyCannotWrap>
-	(isDisabled or: [ thisProcess isMeta ]) ifTrue: [
+	(isDisabled or: [ Processor activeProcess isMeta ]) ifTrue: [
 		^ self
 			  receiver: aReceiver
 			  withArgs: anArrayOfObjects
@@ -267,7 +267,7 @@ MpMethodProxy >> shouldWrap: aMethod [
 MpMethodProxy >> uninstall [
 
 	| installedMethod |
-	thisProcess runInMetaLevel: [
+	Processor activeProcess runInMetaLevel: [
 		installedMethod := methodClass
 			                   compiledMethodAt: selector
 			                   ifAbsent: [ ^ self ].
@@ -298,7 +298,7 @@ MpMethodProxy >> valueWithReceiver: receiver arguments: arguments [
 	| result |
 	"Hooking into user methods to define before actions.
 	Before actions are not instrumented."
-	thisProcess runInMetaLevel: [
+	Processor activeProcess runInMetaLevel: [
 		handler beforeExecutionWithReceiver: receiver arguments: arguments ].
 
 	"Purposely do not use a non-local return.
@@ -313,7 +313,7 @@ MpMethodProxy >> valueWithReceiver: receiver arguments: arguments [
 			 receiver: receiver
 			 arguments: arguments).
 
-	thisProcess runInMetaLevel: [^ handler
+	Processor activeProcess runInMetaLevel: [^ handler
 		  afterExecutionWithReceiver: receiver
 		  arguments: arguments
 		  returnValue: result]