Moving the check if it is a hidden VM object only to the moveToPermSp…

…aceAllOldObjects only
guillep · Sep 5, 2023 · 5686845 · 5686845
1 parent cdec7b5
commit 5686845
Showing 1 changed file with 5 additions and 7 deletions.
diff --git a/smalltalksrc/VMMaker/SpurMemoryManager.class.st b/smalltalksrc/VMMaker/SpurMemoryManager.class.st
@@ -8010,10 +8010,6 @@ SpurMemoryManager >> isValidToMoveToPermSpace: objOop [
 
 	(self isPinned: objOop) 
 		ifTrue: [ ^ false ].	
-
-	"If it is a hidden Object of the VM"
-	((self classIndexOf: objOop) <= self classIsItselfClassIndexPun)
-		ifTrue: [ ^ false ].
 
 	fmt := self formatOf: objOop. 
 
@@ -9173,9 +9169,11 @@ SpurMemoryManager >> moveToPermSpaceAllOldObjects [
 	becomeEffectsFlags := 0.
 
 	self allOldSpaceObjectsDo: [ :objOop |
-		(self isValidToMoveToPermSpace: objOop) 
-			ifTrue: [ self doMoveToPermSpace: objOop addToRememberedSet: true]		
-	].
+		"If it is a hidden Object of the VM, we skip it"
+		((self classIndexOf: objOop) <= self classIsItselfClassIndexPun)
+			ifFalse: [
+			(self isValidToMoveToPermSpace: objOop) 
+				ifTrue: [ self doMoveToPermSpace: objOop addToRememberedSet: true ]]].
 
 	self allPermSpaceObjectsDo: [ :permObj |
 		self followForwardedObjectFields: permObj toDepth: 0 ].