followSpecialSelectos on moveToPermSpace

hernanmd · Jul 22, 2022 · fe7966f · fe7966f
1 parent 3991097
commit fe7966f
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 3 deletions.
diff --git a/smalltalksrc/VMMaker/SpurMemoryManager.class.st b/smalltalksrc/VMMaker/SpurMemoryManager.class.st
@@ -5354,6 +5354,14 @@ SpurMemoryManager >> followSpecialObjectsOop [
 	self followForwardedObjectFields: specialObjectsOop toDepth: 0.
 ]
 
+{ #category : #'become implementation' }
+SpurMemoryManager >> followSpecialSelectors [
+
+	self
+		followForwardedObjectFields: (self splObj: SpecialSelectors)
+		toDepth: 0
+]
+
 { #category : #'object access' }
 SpurMemoryManager >> followedKeyOfEphemeron: objOop [
 	"Answer the object the ephemeron guards.  This is its first element."
@@ -8874,6 +8882,7 @@ SpurMemoryManager >> moveToPermSpace: objOop [
 	becomeEffectsFlags := self becomeEffectFlagsFor: objOop.
 	self forward: objOop to: newObj.
 	self followSpecialObjectsOop.
+	self followSpecialSelectors.
 	coInterpreter postBecomeAction: becomeEffectsFlags.
 	self postBecomeScanClassTable: becomeEffectsFlags.
 	coInterpreter followForwardedMethodsInMethodZone.

diff --git a/smalltalksrc/VMMaker/StackInterpreter.class.st b/smalltalksrc/VMMaker/StackInterpreter.class.st
@@ -7211,9 +7211,7 @@ StackInterpreter >> handleForwardedSelectorFaultFor: selectorOop [
 	<inline: false>
 	self assert: (objectMemory isOopForwarded: selectorOop).
 	self followForwardedFieldsInCurrentMethod.
-	objectMemory
-		followForwardedObjectFields: (objectMemory splObj: SpecialSelectors)
-		toDepth: 0.
+	objectMemory followSpecialSelectors.
 	^objectMemory followForwarded: selectorOop
 ]