Trying to fix forwarders in moveToPermSpace

hernanmd · Jul 8, 2022 · 3e7c787 · 3e7c787
1 parent 28da564
commit 3e7c787
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/smalltalksrc/VMMaker/SpurMemoryManager.class.st b/smalltalksrc/VMMaker/SpurMemoryManager.class.st
@@ -8834,6 +8834,8 @@ SpurMemoryManager >> moveToPermSpace: objOop [
 
 	0 to: numSlots - 1 do: [ :i | | referenced |
 		referenced := self fetchPointer: i ofObject: objOop.
+		((self isNonImmediate: referenced) and: [self isForwarded: referenced])
+			ifTrue: [ referenced := self followForwarded: referenced ].
 
 		"We check only if the object has not be already detected and only for the pointer slots."
 		((shouldBeRememberedInOldSpace not and: [ i <= numPointerSlots ])