RBMethod's compilationContext variable do not offer getClass anymore.

We modify the senders of ``compilationContext getClass`` by ``self methodClass. ``
pharo-project · Jul 17, 2023 · cc3bab9 · cc3bab9
1 parent 6e5007f
commit cc3bab9
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/smalltalksrc/VMMakerCompatibilityForPharo6/RBMethodNode.extension.st b/smalltalksrc/VMMakerCompatibilityForPharo6/RBMethodNode.extension.st
@@ -19,7 +19,7 @@ RBMethodNode >> asTranslationMethodOfClass: aTMethodClass [
 
 	^aTMethodClass new
 		setSelector: selector
-		definingClass: compilationContext getClass
+		definingClass: self methodClass
 		args: arguments
 		locals: ((self allDefinedVariables copyWithoutAll: (arguments collect: #name)) collect: [:string| string -> string])
 		block: (body lastIsReturn
@@ -56,7 +56,7 @@ RBMethodNode >> asTranslationMethodOfClass: aTMethodClass forCodeGenerator: aCod
 
 	^aTMethodClass new
 		setSelector: selector
-		definingClass: compilationContext getClass
+		definingClass: self methodClass
 		args: arguments
 		locals: ((self allDefinedVariables copyWithoutAll: (arguments collect: #name)) collect: [:string| string -> string])
 		block: (body lastIsReturn